vb实验答案

vb课后习题参考答案

第一章习题参考答案

一、填空题

1、对象事件驱动

2、编译运行模式解释运行模式

二、简答题

1、简述VB的特点。

答：①可视化的程序设计方法

②面向对象的程序设计思想

③事件驱动的编程机制

④结构化的程序设计语言

⑤高度的可扩充性

⑥强大的数据库访问能力

⑦支持动态数据交换

⑧支持对象链接与嵌入

2、简述VB的安装过程。

答：①向光驱中放入VB安装光盘；

②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe；

③根据提示逐一回答问题，并点击“下一步”；

④点击“完成”；

2、如何启动VB。

答：三种方法：

①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击；

②双击桌面上的VB6.0快捷图标；

③在“开始”菜单的运行对话框中输入命令来启动VB；

第二章习题参考答案

一、选择题：

1-10、DCACD BCBBC

11-20、BADCA BBAAB

21-29、AACBB CDDC

二、填空题

1．窗体、控件

2．属性值

3．属性窗口设置、代码窗口设置

4．事件过程

5．对象名、下划线、事件名

6．Form_Click

第三章习题参考答案

一、选择题

1、B

2、C

3、A

4、B

5、A

6、C

7、C

二、填空题

1、11

字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String、Byte、Integer、Long、Single、Double、Currency、Boolean

、Date、Object、Variant

2、双引号(英文)、#

3、ASCII、1、2

4、public、通用、Dim、Static、Private、Static

5、&、+、+

6、Now()、Time、日期型

三、解答题

1、(3)

2、(1 )

3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量

（7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度）

4、31

5、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y)

（3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c))

6、

7、（1）13 （2）17

（3）#1999-11-12# （4）zxy123ABC

8、（1）19 （2）8.16666666666667

（3）5．25 （4）2

9、（1）-4 （2）2 . 82842712474619 （3）-3 （4）49 （5）”hello”（6）He

7）16 （8）“-459.65”（9）5

10、（4）

11、（2）

12、（4）

第四章习题参考答案

一、选择题：

1—7: DAABBCD

二、填空题

1．500.00%

2．将字号扩大为原来的二倍

3． B

三、编程题（略）

1．文本框、标签和命令按钮的名称分别为text1、label1、command1

Private Sub Command1_Click()

Label1.caption=text1.text

Command1.caption=text1.text

End Sub

2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3和text4，计算和清除命令按钮的名称分别为：command1和command2。

Private Sub Command1_Click()

Text4=val(text1)*val(text2)*val(text3)

End Sub

Private Sub Command2_Click()

Text1=”” : Text2=””: Text3=””:Text4=””

End Sub

3．文本框、“转大写”命令按钮和“转大写”命令按钮的名称分别为text1、command1和command2

Private Sub Command1_Click()

Text1=Ucase(text1)

End Sub

Private Sub Command2_Click()

Text1=Lcase(text1)

End Sub

第五章习题参考答案

一、选择题：

1—11: CAABBABBBCC

二、填空题

1．(3) 2．1 2 3 3．2 2 3 4．160 5．9

6．78 7．x<=5 (或x<6 或x<7) 8．B

9．iSum iSum+j 1250

三、编程题

1．Private Sub Form_Click()

Dim i%,s%

S=0

For i = 101 To 200 step 2

If i mod 3<>0 then

Print i

S=s+i

End If

Next i

Print s

End Sub

2．Private Sub Form_Click()

Dim n%,s&

S=1:n=0

While s<=400000

N=n+1

S=s*n

Wend

If s>400000 Then n=n-1

Print n

End Sub

3．Private Sub Form_Click()

Dim imin%,imax%,i%,R%

Imin=100:imax=20

For i=1 to 20

R=Int(Rnd*51+50)

If R>imax Then imax=R

If R

Next i

Print imax,imin

End Sub

第六章习题参考答案

一、选择题：

1—13: ABAACCBADADBB

二、填空题

1．Interval Label1.caption=time

2．List1.ListCount InterVal Hscroll1.Max 三、编程题

第七章习题参考答案

一、选择题：

1—12: DCADDBBDACCB

二、填空题

1．42 2．Index 3．41

4．A(i)=a(11-i) a(11-i)=Tmp

5．1 6．X Mod 7=0 7．210

8．0 To 8 i+1 To 9

9．3 K 1

10．1001 Max MaxMax) 三、编程题

1．Private Sub C1_click()

If OP1(0).Value=True Then P1.Print “选择了椭圆形”

If OP1(1).Value=True The n P1.Print “选择了圆形”

If OP1(2).Value=True Then P1.Print “选择了正方形”

End Sub

2．统计按钮名为Command1，输入框名为text1，输出框为text2(MultLine 设为True)

Private Sub Command1_click()

Dim X(1 to 26) AS Integer,I As Integer

Dim S As String,L As Integer

L=Len(Text1.text)

For i=1 To L

S=Mid(Text1,I,1)

S=Ucase(S)

If S >= "A" And S <= "Z" Then

x(Asc(S) - 65 + 1) = x(Asc(S) - 65 + 1) + 1

End If

Next i

For i=1 To L

Text2=text2 & Chr(64+i) & “=” & x(i) & ““

If I Mod 7=0 then Text2=text2 & chr(13)+chr(10)

Next i

End Sub

3．设学生成绩的平均分已在Mark(1)至Mark(10)中,学生姓名在name(1)至name(10)中。

Private Sub Command1_click()

Dim I%,J%,T%,S$

For i=1 To 9

For j=i+1 To 10

If Mark(i)

T=Mark(i):Mark(i)=Mark(j):Mark(j)=T

S=name(i):name(i)=name(j):name(j)=S

Next J

Next i

For i=1 To 10

Print Name(i),Mark(i)

Next i

End Sub

第八章习题参考答案

一、选择题：

1—10: DCBBDDDBCB

二、填空题

1．a Ubound(b) n=n-1

2．Key=a(i) Index=-1

三、编程题

1．子过程

Sub P1(x As Single, esp As Single)

Dim p!,S!,F!,i%

P=1:S=1:i=1:F=x

Do

P=P*i

S=S+F/p

Loop Until Abs(F/p)

Print s

End Sub

子函数

Function P2(x As Single, esp As Single) As single

Dim p!,S!,F!,i%

P=1:S=1:i=1:F=x

Do

P=P*i

S=S+F/p

Loop Until Abs(F/p)

P2=s

End Function

2．Swap2能实现数据交换。因为地址传递方式形参和实参有共同的地址，那么形参的变化，会引起实参的变化（即形参将值回传给实参），故可实现两数交换。

3．Function LF( ByVal x As Single) As Single

LF=X*X*X

End Function

Sub Command1_Click()

Dim I%

For i=1 To 20

Print I, LF(i)

Next i

End Sub

4．Function WeekDay(ByVal x As Integer) As String

Select Case x

Case 0

WeekDay=”星期日”

Case 1

WeekDay=”星期一”

Case 2

WeekDay=”星期二”

Case 3

WeekDay=”星期三”

Case 4

WeekDay=”星期四”

Case 5

WeekDay=”星期五”

Case 6

WeekDay=”星期六”

End Select

End Function

5．Function Rand30(ByVal X As`Integer) As Integer Randomize

Rand30=Int(Rnd*X+1)

End Function

Sub Command1_Click()

For i=1 To 30

Print Rand30(100)

Next i

End Sub

6．Function F1(ByVal X As`Single, ByVal Y As`Single) As Integer If X>Y Then

F1=X

Else

F1=Y

End If

End Function

7．

Function GDBH(ByVal x%) As String

Dim i%

For i = 3 To x - 3 Step 2

If isp(i) And isp(x - i) Then

GDBH = i & "+" & (x - i) & "=" & x

Exit Function

End If

Next

End Function

Function isp(y%) As Boolean

i = 2: k = Int(y / 2)

Do While i <= k

If y Mod i = 0 Then Exit Do

i = i + 1

Loop

If i > k Then

isp = True

Else

isp = False

End If

End Function

Private Sub Form_Click()

For i = 6 To 40 Step 2

Print GDBH(i)

Next i

End Sub

8．Function isQO(ByVal x As Integer) As String If x Mod 2 =0 Then

isQO=”偶数”

Else

isQO=”奇数”

End If

End Function

9．Function F1(ByVal x As Integer) As Boolean If x Mod 17 =0 and x Mod 37 =0Then

F1=True

Else

F1=False

End If

End Function

Private Sub Form_Click()

For i = 1000 To 2000

If F1(i) Then

Print i

End if

Next i

End Sub

10．Sub F1(a() As Integer, ByVal L1 As Integer, ByVal L2 As Integer)

Dim L%, U%, x%, i%

L = LBound(a): U = UBound(a)

If L1 > U Or L2 > U Then

Print "位置输入错误！"

Exit Sub

End If

If L1 > L2 Then

x = a(L1)

For i = L1 To L2 + 1 Step -1

a(i) = a(i - 1)

Next i

a(L2) = x

ElseIf L2 > L1 Then

x = a(L1)

For i = L1 To L2 - 1

a(i) = a(i + 1)

Next i

a(L2) = x

End If

End Sub

第九章习题参考答案

一、选择题：

1—3: ADD

二、填空题

1．下拉式弹出式2．PopupMenu

3．Visible Enabled 4．-

三、编程题(略)

第十章习题参考答案

一、选择题：

1—3: DBD

二、填空题

1．Load 2．窗体模块标准模块类模块

3．DoEvents

三、编程题

1．(略)

2．Function F(ByVal x&,ByVal Y&) As Integer

Dim t&,r&

If x

R= x Mod y

Do While R<>0

X=y

Y=r

R= x Mod y

Loop

F=y

End Function

Private Sub Command1_Click()

Text3 = Val(Text1) / F(Val(Text1), Val(Text2))

Text4 = Val(Text2) / F(Val(Text1), Val(Text2))

End Sub

第十一章习题参考答案

一、选择题：

1—3: DDA

二、填空题

6 2．AB A

三、编程题

1．Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

Text1 = x: Text2 = Y

End Sub

2．

Dim startX, StartY As Integer …在通用中申明

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)

If Button = 2 Then

startX = x: StartY = Y

End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

If Button = 1 Then

PSet (x, Y), RGB(0, 0, 0)

End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)

If Button = 2 Then

Dim r%, c%

Dim EndX, EndY As Integer

EndX = x: EndY = Y

c = RGB(0, 0, 0)

r = Sqr((EndX - startX) ^ 2 + (EndY - StartY) ^ 2)

Form1.Circle (startX, StartY), r, c

End If

End Sub

第十二章习题参考答案

一、选择题：

1—8: BBABBCCA

9．I H F C L G E B A J K D

二、填空题

1．Drive 2．Path Print Dir1.Path

3．Path 4．Hidden system

5．顺序文件随机文件二进制文件

6．FreeFile

7．Close #1

8．Open “c:\samples\readme.txt” For Output AS #3

9．Open “c:\autoexec.bat” For Intput AS #4

10．Open “c:\samples\xscj.dat” For Random AS #3 Len=54 11．Open “smtext1.txt” For Binary AS #1

12．For Input Eof(1)

13．KeyAscii END(或者End end eNd enD) Text1.text

三、编程题

1．…在标准模块中定义

Type stu

ID As String * 12

name As String * 8

z1 As String * 12

z2 As String * 12

sex As String * 2

jc As Boolean

scool As String * 20

sx As Integer

yw As Integer

yy As Integer

wl As Integer

zf As Integer

Dim p As stu …在通用中定义

Private Sub CmdAppend_Click()

p.ID = Text1

https://www.sodocs.net/doc/0017787594.html, = Text2

p.z1 = Text3

p.z2 = Text4

p.scool = Text5

If Option1.Value = True Then p.sex = "男"

If Option2.Value = True Then p.sex = "女"

If Check1.Value = 1 Then p.jc = True Else p.jc = False

p.sx = Val(Text6) : p.yw = Val(Text7)

p.yy = Val(Text8) : p.wl = Val(Text9)

p.zf = Val(Text10)

Put #1, , p

End Sub

Private Sub CmdDisplay_Click()

Get #1, Val(txtRecord_No), p

Text1 = p.ID : Text2 = https://www.sodocs.net/doc/0017787594.html,

Text3 = p.z1 : Text4 = p.z2

Text5 = p.scool

If p.sex = "男" Then Option1.Value = True Else Option2.Value = True If p.jc = True Then Check1.Value = 1 Else Check1.Value = 0

Text6 = p.sx : Text7 = p.yw

Text8 = p.yy : Text9 = p.wl

Text10 = p.zf

End Sub

Private Sub Command3_Click()

Text1 = "" : Text2 = ""

Text3 = "" : Text4 = ""

Text5 = "" : Text6 = ""

Text7 = "" : Text8 = ""

Text9 = "" : Text10 = ""

End Sub

Private Sub Form_Load()

Open App.Path & "\stu.dat" For Random As #1 Len = Len(p)

End Sub

Private Sub Form_Unload(Cancel As Integer)

Close #1

Private Sub Text10_GotFocus()

Text10 = Val(Text6) + Val(Text7) + Val(Text8) + Val(Text9) End Sub

2.3.4.

Private Type books

id As String * 10

name As String * 8

sex As String * 2

math As Integer

eng As Integer

ele As Integer

End Type

…成绩输入

Private Sub Command1_Click()

Dim b As books

Open "c:\stu.dat" For Append As #1

b.id = InputBox("请输入学号")

https://www.sodocs.net/doc/0017787594.html, = InputBox("请输入姓名")

b.sex = InputBox("请输入性别")

b.math = InputBox("请输入数学成绩")

b.eng = InputBox("请输入英语成绩")

b.ele = InputBox("请输入电子成绩")

Write #1, b.id, https://www.sodocs.net/doc/0017787594.html,, b.sex, b.math, b.eng, b.ele

Close #1

End Sub

…不及格人员输出

Private Sub Command2_Click()

Dim a, b, c

Open "c:\stuo.dat" For Input As #1

While Not EOF(1)

Input #1, a, b, c

If c = "数学" Then List1.AddItem b

If c = "英语" Then List2.AddItem b

If c = "电子" Then List3.AddItem b

Wend

Close #1

End Sub

…将不及格人选出存入stuo.dat

Private Sub Command3_Click()

Dim a, b, c, d, e, f

Dim k%

Open "c:\stu.dat" For Input As #1 Open "c:\stuo.dat" For Output As #2 While Not EOF(1)

Input #1, a, b, c, d, e, f

If d < 60 Then Write #2, a, b, "数学" If e < 60 Then Write #2, a, b, "英语" If f < 60 Then Write #2, a, b, "电子" Wend

Close #1

Close #2

End Sub

VB实验报告

VB实验报告 实验一、VB控制结构 [实验目的] 1.掌握选择语句的使用 2.掌握循环语句的使用 [实验内容] 一、VB编程基础 练习：在应用程序的代码窗口中分别输入以下四段代码，当程序运行 时在窗体上单击，分别会发生什么情况，为什么？ ①Private Sub Form_Click() I = 10 Print I End Sub ②Private Sub Form_Click() Dim I% I = 10 Print I End Sub ③Option Explicit Private Sub Form_Click() I = 10 Print I End Sub ④Option Explicit Private Sub Form_Click() Dim I% I = 10 Print I

End Sub 第一个程序运行的结果是： 点击一次窗体便会出现一个“10” 第二个程序的运行结果是： 也是点击一次窗体出现一个“10” 第三个程序运行的结果是：无法运行，显示变量未定义第四个程序运行的结果是：

在应用程序的代码窗口中分别输入以下两段代码，当程序运行时在窗体上反复单击，分别会发生什么情况，为什么？ Private Sub Form_Click() Dim n As Integer n = n + 1 Print n End Sub Private Sub Form_Click() Static n As Integer n = n + 1 Print n End Sub 第一个程序运行结果是： 第二个程序运行的结果是：

二、选择语句 程序1：创建应用程序。要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。 Private Sub Text1_Change() Dim X1 As Single, X2 As Single, X3 As Single, Temp As Single '定义x1,x2,x3,temp X1 = CSng(InputBox("请输入第1个数：", "输入数据")) '弹出请求输入数据x1的文本框 X2 = CSng(InputBox("请输入第2个数：", "输入数据")) '弹出请求输入数据x2的文本框 X3 = CSng(InputBox("请输入第3个数：", "输入数据")) '弹出请求输入数据x3的文本框 If X1 > X2 Then Temp = X1: X1 = X2: X2 = Temp '比较x1,x2,若x1大于x2将两值交换 End If If X1 > X3 Then Temp = X1: X1 = X3: X3 = Temp '比较x1,x3,若x1大于x3将两值交换 End If If X2 > X3 Then Temp = X3: X3 = X2: X2 = Temp '比较x2,x3,若x2大于x3将两值交换 End If Print: Print Print "输出结果：" ’在屏幕上输出“输出结果：” Print Print x1,x2,x3 ’在屏幕上输出x1,x2,x3 End Sub

vb实验教程答案

第一章 答案： 一、单项选择题 1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C 二、判断题 1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T 第二章 一、单项选择题 1. B 2. D 3. A 4. D 5. B 6.A 7. D 8. D 9. D 10. A 11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D 21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B 31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A 41. D 二、判断题 1. True 2. True 3. False 4. False 5. False 6. False 7. False 第三章 一、单项选择题 1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A 16.C 17.B 二、判断题 1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F 11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F . 第四章 一、单项选择题 1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A 21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D 二、判断题 1.F 2.T 3.F 4.F 5.T 6.F 7.T 三、操作题 1.参考代码： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim sum As Integer For i = 2 To 10000 sum = 0 For j = 1 To i / 2 k = i Mod j If 0 = k Then sum = sum + j End If Next j

VB期末考试试题及答案

二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value

7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。

VB实验报告8

台州学院 《VB程序设计》实验报告实验八：图形的绘制 班级：14制药3班 学号： 姓名： 实验日期：2015.6.5

一、实验目的和要求 1．掌握Visual Basic 容器坐标系的设计方法； 2．熟练掌握Pset、Line和Circle方法的格式及其使用； 3．掌握与图形有关的常用属性，方法。 二、实验主要仪器和设备 计算机一台，Windows XP / Win7操作系统，Visual Basic环境。 三、实验内容 实验8.1 下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中将显示各公司销售额的圆饼图（如图8-1所示）。要求：在文本框中只能输入数字字符；在圆饼图中分别用红、绿、篮色显示A、B、C公司的扇区填充色。 图8-1 程序运行时的界面 四、实验原始纪录 实验8.1 程序的界面设计。

程序代码。 Const pi = 3.1415926 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer a = Text1.Text b = Text2.Text c = Text3.Text d = a + b + c Picture1.FillStyle = 0 Picture1.FillColor = vbRed Picture1.Circle (2000, 2000), 1000, vbBlack, -2 * pi, -(a / d) * pi * 2 Picture1.FillColor = vbGreen Picture1.Circle (2000, 2000), 1000, vbBlack, -(a / d) * pi * 2, -((a + b) / d) * pi * 2 Picture1.FillColor = vbBlue Picture1.Circle (2000, 2000), 1000, vbBlack, -((a + b) / d) * pi * 2, -pi * 2 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub 五、实验结果及分析 实验8.1运行结果。

VB实验报告一

本科实验报告 课程名称：人机界面程序设计基础 实验项目：一、VB环境和可视化编程基础实验地点： 专业班级：学号： 学生姓名： 指导教师：李何 年月日

一、实验目的和要求 1、掌握启动与退出Visual Basic的方法。 2、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。 3、掌握定义变量、常量的方法；了解运算符和表达式的使用；熟悉内部函数。 4、掌握基本控件的应用。 二、实验内容和原理 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 2、使用Print方法，掌握“，”和“；”的区别；以及Spc（n）函数、Tab(n)函数、属性Current X和Current Y的定位输出。 3、编写一程序，在标签上实时显示系统时间，系统时间要求00:00:00AM/PM格式 提示：使用Timer控件、Format函数和Now函数。 4、对教材上例4-13进行改动，用输入框函数完成输入，用消息框函数显示结果。 5、使用Len()函数、LenB()函数、Rnd函数和Randomize语句、Shell函数，并对运行结果进行分析。 三、主要仪器设备 计算机

四、实验步骤 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 打开VB软件，建立标准exe，在窗体设计器中添加Command1，更名为“按钮” 添加text1，删掉名称。 双击按钮，编写程序如图

vb程序设计实验教程习题答案

实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5

（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③

九江学院VB期末考试题目及详细答案

九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic?序开发的特点是面向对象的事件驱动。（J 2、Print_Text 是一个不合法的变量名。（为 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（翌 4、设置字体大小应使用Font属性（为 5、Sub过程可以实现嵌套调用（寸 6、IIF函数中的三个参数都不能省略。（寸 7、块结构条件语句以End If结束，而单行结构条件语句没有End旧（明 8、当终值小于初值时，步长为负数。（5 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（寸 10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用（/） 二、单项选择题 1. Print Format （123, ” ###说执行之后的结果为 A）# 123B） 123C） 123# D） # # # # 【答案】B 2. 下面可以表示注释语句开头的为 A）R e B R C Rem。dim 【答案】C 3. 下列选项中窗体载入事件为 A) Load 事件B) Click事件C) DblClick事件D) Unload 事件

【答案】A 4. Timer控件可以使用下列哪种事件 A) Click事件B) Timer 事件C) Dblclick 事件D) Change事件 【答案】B 5. 在InputBox函数中哪一个参数是必须的 A) Prompt B) Buttons C) Title D) Context 【答案】A 6. 以下叙述中错误的是： A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B) Sub过程中不能嵌套定义Sub过程 C) Sub过程可以嵌套调用Sub过程 D) 事件过程可以像通用过程一样由用户定义过程名 【答案】C 乙要填加一个标准模块，可使用“ 单中的添加模块”命令。 A)文件B)视图C)工程D)工具 【答案】C 8 .在块结构条件语句If-Then / Endif中 (A) 必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误

VB实验报告(含答案)

实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____

实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图所示。 图实验1-1 运行界面 三．实验结果：对象属性设置 对象属性属性值说明 caption我的第一个vb程序窗体Form1 caption请输入姓名标签Label1 text““文本框Text1 caption显示命令按钮Command1 caption清除命令按钮Command2 四．实验思考： 1.标签label控件设置的属性代码有哪些 =“请输入姓名” =24 =True 2.两个按钮所使用的是什么事件代码分别是什么 Private Sub Command1_Click() =“姓名”

实验二简单程序设计数据类型及常用内部函数的简单应用 一．实验目的： 1．掌握Visual Basic数据类型的基本概念。 2．掌握用Visual Basic的各种运算符及表达式。 3．学习使用Visual Basic内部函数和数据输入、输出方法。 4．掌握命令按钮、文本框和标签。 5．设计顺序程序。 二．实验内容： 1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。转换公式是：C= 5 / 9(F - 32)。F为华氏温度，C为摄氏温度。 2.用三种除法运算（/ 、\、Mod）做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。 图2-1 图2-2 三．实验结果：对象属性设置 1.温度转换 对象属性属性值说明 Form1Caption Inputbox与msgbox窗体

VB实验一 实验报告

实验报告一 课程VB程序设计实验项目Visual Basic环境 顺序选择程序设计(4学时) 成绩 专业班级 姓名学号实验日期 实验目的 （1）熟悉Visual Basic6.0集成开发环境 （2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握选择控制结构（If、Select case）语句实现程序分支 （4）掌握控制结构相关控件（单选按钮、复选框） （5）能综合运用选择及循环控制结构解决较复杂的问题 实验内容 一、VB环境和顺序结构 【实验1】设计一个简单VB程序（10分） 它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Basic 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。 实验结果： 【实验1 代码】 【实验1 典型结果】 【实验2】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为：

S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)) （20分） 程序界面如下所示 实验结果： 【实验2 代码】 【实验2 典型结果】 【选做1】单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序）（15分） 实验结果： 【方法1 代码】 【方法1 典型结果】 【方法2 代码】 【方法2 典型结果】

VB程序设计教程(第3版)课后实验答案最新版2

1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5

初三_vb期末考试试卷+答案

九年级期末VB 考试试卷 班级：学号：姓名： 123456789101112131415 一、选择题（每题两分，共十五题） 1.下列叙述中正确的是 (c) A. 只有窗体才是VB中的对象 B.只有控件才是VB中的对象 C. 窗体和控件都是VB中的对象 D.窗体和控件不是VB中的对象 2. 下列可以激活属性窗口的操作是(D) A. 用鼠标双击窗体的任何部位 B.执行“工程”菜单中的“工具箱”命令 C. 按 Ctrl+F4 键 D.按F4键 3. 下列不能打开工具箱窗口的操作是(B) A. 执行“视图”菜单中的“工具箱”命令 B.按 Alt+F8键 C. 单击工具栏上的“工具箱”按钮 D.按 Alt+V键，然后按 Alt+X键 4.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先 应执行的操作是 (A) A. 单击窗体上没有控件的地方 B.单击任一个控件 C. 不执行任何操作 D.双击窗体的标题栏 5. 为了把窗体上的某个控件变为活动的，应执行的操作是(C) A. 单击窗体的边框 B.单击该控件的内部 C. 双击该控件 D.双击窗体 6. 确定一个控件在窗体上的位置的属性是(D) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 7. 确定一个窗体或控件的大小的属性是(B) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 8. 为了同时改变一个活动控件的高度和宽度，正确的操作是( B) A. 拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块 C. 只能拖拉位于控件左下角的小方块 D.不能同时改变控件的高度和宽度

VB课程实验报告

山西财经大学《程序设计（VB+Acces）》实验报告 ＊＊＊＊年＊月＊＊日

Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim R1 As Single, R2 As Single A = Val B = Val C = Val If B ^ 2 - 4 * A * C < 0 Then MsgBox "该方程无解." ElseIf B ^ 2 - 4 * A * C = 0 Then R1 = -B / 2 / A MsgBox "该方程仅有一个根为" & R1 & "." Else R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A) R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A) MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "." End If End Sub

二． Private Sub cmdCal-Click() Dim x1 As Single,sign As String,x2 As Single X1=Val(txtA):sign=txtB:x2=Val(txtC) Select Case “+” =Str(x1+x2) Case”-“ =Str(x1-x2) Case”*”

=Str(x1*x2) Case“/” If x2<>0 Then =Str(x1/x2) Else MsgBox”分母不能为0” End If Case Else I=MsgBox(“请重新输入运算符：”vbRetryCancel) If I =vbretry Then =”“ Else End End Select End Sub 实验中发现的问题及解决方法： 表格之间的距离把握不是很准，通过上方调整距离来实现

VB课后实验6答案

实验6 数组 6-1 Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10) As Integer, t As Integer Print "交换前数据：" For i = 1 To 10 a(i) = ……‘生成20-80之间的随机数 Print ……;‘注意这里用分号，表示在一行上紧密输出各数组元素的值， ‘如不用分号和逗号，则分行输出各数组元素的值。 Next i Print ‘输出空行,表示后面的输出换到新的一行。 For i = 1 To 10 \ 2 ‘这里必须是10\2，表示交换5次，即可实现两两数据交换（第一' 个和最后一个的交换，第二个和第九个的交换，以此类推） ‘以下实现数据交换，必须通过第三个变量实现两两数据交换 t = a(i) a(i) = a(10 - i + 1) a(10 - i + 1) = t Next i Print "交换后数据：" ‘必须单独做循环输出数据，不能放在上面的循环里输出，因为上 面循环只有5次，只能输出5个元素。 For i = 1 To 10 Print ……; Next i End Sub 6-2 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, aver As Integer Dim max As Integer, imax As Integer Dim min As Integer, imin As Integer, sum As Integer Print "输入评委的评分" ‘①输入数组元素 For i = 1 To 10 a(i) =…… if a(i)<5 or a(i)>10 then ‘出错信息 ‘i控制变量作何处理？ endif

大一VB期末考试试卷及答案

大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10)

VB实验报告一VB环境和可视化编程基础

大学学生实验报告 开课学院及实验室：地理科学学院2014年4月1日

表A_1 对象属性设置 控件名属性 Form1 Caption=”实验A_1” Label1 Caption=”欢迎学习VisualBasic”;Font属性:字号为二号,字体为隶书 Label2 Caption=”请输入你的”Font属性:字体为楷体,有下划线 Text1 Text1=”” Command1 Caption=”” Label3 Caption=””,BorderStyle=1 ④窗体界面设计如图1： 图1 实验A_1窗体界面设计 ⑤代码设计如图2： 图2实验A_1代码设计 （3）实验结果

①运行结果如图3： 图3实验A_1运行结果 ②保存文件如图4： 图4实验A_1文件保存 A_2 （1）实验容：模仿教材例1.1，将事件过程自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。各控件及属性窗口的设置参见表格A.2，背景图形文件可以选择自己喜欢的，按钮上的图标通过Windows 搜索功能查找。以Sy1-2为项目名保存。 （2）实验步骤： ①创建一个“标准EXE”工程； ②在窗体上添加标签Label1、命令按钮Command1和Command2及Timer1； ③设置对象属性；

表A_2 对象属性设置 控件名属性 Form1 Caption=”实验A_2”;Picture:为你喜欢的图片 Label1 Caption=”我开始学习程序设计”;Fontsize=36 Command1 Caption=””;Style=1;Piciture=”clock02.ico”;ToolTipText=” 自动” Command2 Caption=””;Style=1;Piciture=”key04.ico”;ToolTipText=” 手动” Timer1 Internal=0 ④窗体界面设计如图5： 图5 实验A_2窗体界面设计 ⑤代码设计如图6：

VB实验报告模板

课程编号：B080103140 https://www.sodocs.net/doc/0017787594.html,程序设计 实验报告 东北大学软件学院

1.实验目的 （1）练习https://www.sodocs.net/doc/0017787594.html,的控件的综合运用。熟悉https://www.sodocs.net/doc/0017787594.html,的集成开发环境，掌握https://www.sodocs.net/doc/0017787594.html, 编程技巧和开发过程。 （2）训练学生对https://www.sodocs.net/doc/0017787594.html,的基本语句、控件、文件等的综合运用。 2.实验内容 （1）https://www.sodocs.net/doc/0017787594.html,控件综合应用。 （2）https://www.sodocs.net/doc/0017787594.html,文件操作——具体的名称（需要替换并变为黑色）。 3.程序中使用的控件及其命名 把程序中用到的控件类型及对应的名称以表格的形式给出，表格的行数可以根据需要进行扩充。 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。 注意说明文字需要删除，不能保留在文档中。 （1）实验1的控件及命名 （2）实验2的控件及命名 4.系统实现与调试 把主要实现的功能用语言进行描述，并给出调试时的截图（主要是功能验证的截图，在结算时，是否能正确的找零等） 如果包含图片，图片要居中，而且图片的高度不能超过页面高度的1/3。 （1）实验1的系统实现与调试 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。 注意说明文字需要删除，不能保留在文档中。

（2）实验2的系统实现与调试 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。注意说明文字需要删除，不能保留在文档中。 5.创新点及存在问题 列举出主要的创新点和存在的问题。正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。注意说明文字需要删除，不能保留在文档中。 6.实验总结 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。注意说明文字需要删除，不能保留在文档中。

VB程序设计教程第四版课后答案

vb 课后习题答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述 VB 的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述 VB 的安装过程。 答：①向光驱中放入VB 安装光盘； ②计算机将运行自动安装程序，若没有，执行VB 目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动 VB。 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0 快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、 DCACD BCBBC 11-20、 BADCA BBAAB 21-29、 AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6． Form_Click 第三章习题参考答案 一、选择题

1、B 2、 C 3、 A 4、B 5、 A 6、 C 7、 C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日 期型、对象型、变体型。 String、 Byte、 Integer 、 Long、 Single、 Double、 Currency、 Boolean 、Date、 Object 、 Variant 2、双引号 (英文 )、# 3、 ASCII、1 、2 4、 public 、通用、 Dim、 Static、Private、 Static 5、 &、 +、+ 6、 Now()、 Time 、日期型 三、解答题 1、(3) 2、 (1 ) 3、（ 1）常量（关键字）（ 2）字符型常量（ 3）逻辑型常量（ 4）变量（ 5）字符串常量（ 6）变量 （7）字符串常量（ 8）变量（ 9）日期型常量（题目应是 #11/16/1999# ）（ 10）数值型常量（单精度） 4、31 5、（ 1） (1+y/x)/(1-y/x) （2） x^3+3*x*y/(2-y) （3） sqr(abs(a*b-c^3)) （ 4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、（ 1） 13 （ 2） 17 （3） #1999-11-12# （ 4） zxy123ABC 8、（ 1） 19 （ 2） 8.16666666666667 （3） 5． 25 （4） 2 9、（ 1） -4 （2） 2 . 82842712474619 （ 3） -3 （ 4） 49 （5）” hello （”6）He 7）16 （ 8）“-459.65 ”（ 9） 5 10、（ 4） 11、（ 2） 12、（ 4） 第四章习题参考答案 一、选择题： 1—7: DAABBCD 二、填空题 1． 500.00% 2．将字号扩大为原来的二倍 3． B 三、编程题（略） 1．文本框、标签和命令按钮的名称分别为text1 、 label1、 command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text End Sub

vbvb期末考试实验答案作业

请参考10_2.exe程序的运行结果，新建一个工程，完成"调色板"程序的设计，该程序由红绿兰三原色进行调色，如果预览满意，单击"应用"按钮，将调好的颜色作为文本框中文字的颜色。将完成后的工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_2目录下。 具体要求如下： 1. 应用程序界面设计参考图示。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。[注意：滚动条最大值为255] 4. 要求在任意一个颜色成分输入文本框中输入一个0-255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 5. 单击"应用"按钮后将调好的颜色作为文本框中文字的颜色。 思考题：拖动滚动条时有没有触发滚动条的Change事件？ 提示: 1. 应用程序界面设计参考图示。 程序界面右下角的预览框架里的长方形是形状控件Shape1（工具箱中的），将其FillStyle属性设置为0。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 三个滚动条的Min设为0，Max设为255；三个文本框的Text属性设为空字串。

3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。 颜色是利用Rgb(r,g,b）函数来表示，其中r,g,b是红、绿、兰颜色的饱和度，分别通过滚动条来控制。 Private Sub HScroll1_Change(Index As Integer) Text1(Index).Text = HScroll1(Index).Value Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub 4. 要求在任意一个颜色成分输入文本框中输入一个0—255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 设计文本框的Change事件： Private Sub Text1_Change(Index As Integer) HScroll1(Index).Value = Val(Text1(Index).Text) End Sub 5. 单击“应用”按钮后将调好的颜色作为文本框中文字的颜色。 Text2.ForeColor = Shape1.FillColor 下载10_1.exe 请参考10_1.exe程序的运行结果，新建一个工程，完成"过程练习"程序的设计，并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_1目录下。 具体要求如下： 1. 各题必须按要求用通用过程或函数过程进行编程。 2. "第一题"：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。 3. "第二题"：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。 4. "第三题"：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。 5. "第四题"：编写一个每行可以打印5个下标变量的打印数组的通用过程，。随机产生一个∈[100，500]、有20个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。 思考题：通用过程与函数过程的区别？ 提示: