当前位置：文档视界 › vb实验指导后题目-参考答案

vb实验指导后题目-参考答案

期末自测题（A卷）

文件部分的选择题要做，其它类型的题目不用做，不作考察

选择题其它部分还没有时间做

一、单选题（每题1分，共25分）

1、211.66.160.1 是Internet上的( )。

(A) IP地址 (B)域名 (C)密码 (D)软件编号

2、在以下四个www网址中，（）网址不符合www网址书写规则。

(A) https://www.docsj.com/doc/7a8185556.html, (B) https://www.docsj.com/doc/7a8185556.html,

3、下列字符中，其ASCII码值最小的一个是（）。

(A) A (B) a (C) Z (D) X

4、下列软件中属于浏览器的是（）。

(A) Excel (B) Internet Explorer (C) QQ (D) Visual Basic

5、电子邮件(E-mail)地址的正确形式是（）。

(A)用户名@域名 (B)用户名#域名 (C)用户名/域名 (D)用户名.域名

6、下面变量名不合法的是（）。

(A) a2 (B) abcd (C) a$x (D) Cd_E

7、下列表达式中，正确的Visual Basic表达式是（）。

(A) 2sin45° (B) ∏*R2 (C) x÷y×5 (D) （x+1）/（x^2+1）/2

8、下面逻辑表达式的值为真的是（）。

(A) "A"> "a" (B) "abc"> "bc"

9、下列过程定义语句说明不合法的是（）。

(A) Sub f1(ByRef n() As Integer) (B) Sub f1(ByRef n As Integer)

10、执行下面的4个打印语句，将出错的是（）。

(A) Print a = 3 + 5 (B) Print "a="; 3 + 5

11、语句 For i = -3 To 20 Step 4 的循环次数为（）。

(A) 5 (B) 6 (C) 7 (D) 8

12、下列叙述中错误的是（）。

(A) 列表框与组合框都有List属性(B) 列表框与组合框都有Selected属性

13、窗体Form1里有两个对象，分别是图片框P1和标签L1。那么下面关于Print方法的使用中，错误的语句为（）。

(A) P1.Print 147 (B) Print 147

14、通过设置图像框Image的（）属性，可以自动调整图形的大小，以适应图像框Image的尺寸。

(A) Autosize (B) Stretch (C) AutoRedraw (D) Appearance

15、执行语句 Print Left( "VisualBasic" , 3 )，在窗体上显示的内容是（）。

(A)VVV (B)Vis (C)s (D) sualBasic

16、以下叙述中正确的是（）。

(A) 窗体的Name属性指定窗体的名称，用来标识一个窗体

(B) 窗体的Name属性的值是显示在窗体标题栏中的文本

(D) 对象的Name属性值可以为空

17、设x是整型变量，与函数IIf( x > 0 , -x , x )有相同结果的代数式是（）。

(A)|x| (B)-|x| (C) x (D )-x

18、将组合框Combo1当前选中的项目内容赋值给变量S，正确的语句是（）。

(A) S= Combo1.Text (B) S = Combo1.Value

19、建立一个图书资料管理输入界面，要求选择图书的借阅情况(借出/未借)、语种（中文/英文/日文/其他）及分类（8类，存在重复分类，一本图书既属于1类，也同时属于2类）。应如何在窗体中利用单选钮和复选框实现（）。

(A) 用一组14个复选框来实现

(B) 将8种分类用一组8个复选框、借阅情况和语种用一组6个单选钮实现

(D) 将8种分类用一组8个复选框、借阅情况用一组2个单选钮、语种用一组4个单选钮实现

20、已知A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式是（）。

(A) A>=B And B>=C And C>0 (B) A+C>B And B+C >A And C>0

(C)(A+B)>=C And A-B <=C) And C>0 (D) A+B>C And A-B>C And C>0

21、执行（）后，会弹出如下图所示的窗口。

(A) x = InputBox("输入框", "请输入VB数据")

(B) InputBox("输入框", "请输入VB数据")

(D) InputBox("请输入VB数据","输入框")

22、窗体有Text1文本框和Command1命令按钮，并有

以下代码：

Private Sub Command1_Click()

Dim n

If Text1.Text <> "123456" Then

n = n + 1

Print "口令输入错误" & n & "次！"

End If

End Sub

希望程序运行时若输入口令不正确，显示出错的次数（如下面

图），但实际运行时没有出现预期效果（如上面图）。修改方案中正确的是（）。

(A)在Dim n后添加一句：n=0

(B)将 Dim n改为Dim n%

(C)将Dim n放到“通用”-“声明”处

(D)将Print "口令输入错误" & n & "次！"改为Print "口令输入错误" + n + "次！"

23、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。

(A)单选按钮 (B) 图片框 (C) 通用对话框 (D) 文本框

24、设有语句Open "c:\Test.Dat" For Output As #1，则以下错误的叙述是（）。

(A) 该语句打开C盘根目录下一个已存在的文件Test.Dat

(B) 该语句在C盘根目录下建立一个名为Test.Dat的文件

(D) 执行该语句后，就可以通过Print #语句向文件Test.Dat中写入信息

25、滚动条产生Change事件是因为（）值改变了。

(A) Max (B) Min (C) Value (D) Caption

二、程序阅读题（每题3分，共15分）

1、执行下面的程序段后，列表框List1中余下的两项为 1 和3 。

For i = 1 To 4

List1.AddItem i

Next i

For i = 1 To 2

List1.RemoveItem i

Next i

2、执行下面的程序段后，输出结果为 21 21 。

x = 5

For I = 1 To 20 Step 2

x = x + I \ 5

Next I

Print x, I

3、执行下面的程序段后，则在Text1中显示的值为 24 。

Dim A%(10, 10), i%, j%

For i = 1 To 10

For j = 1 To 10

A(i, j) = i + j

Text1.Text = A(5, A(2, 3)) + A(7, A(3, 4))

4、执行下面的程序段后，在输入对话框中分别输入321和456，则窗体上的输出结果为 321456 。

a = InputBox("请输入一个整数")

b = InputBox("请输入一个整数")

Print a + b

5、程序运行后，单击命令按钮，则两个标签中显示的内容分别为 5 18 。

Private Sub Command1_Click()

Dim x%, y%

x = 5: y = 3

Call proc(x, y)

Label1.Caption = x

Label2.Caption = y

End Sub

Private Sub proc(ByVal a As Integer, b As Integer)

a = a * b

b = a + b

End Sub

三、填空题（每空2分,共40 分）

1、请完善程序，功能是：随机生成一个8位数的整数，统计0～9这10个数字在生成的8位整数中出现的次数，并显示统计结果。

Dim i%, s&, j%, a(0 To 9) As Integer

s = ___int(rnd*9+1) & _int(rnd*10)

&__int(rnd*10)_ & _int(rnd*10) & _int(rnd*10) &

_int(rnd*10) & _int(rnd*10) & _int(rnd*10)___

Print "这个八位数是";s

Print "其中"

For j = 1 To 8

c = Val(Mid(s, j, 1))

a(c) = __a(c)+1___

Next j

For i = 0 To 9

If a(i) <> 0 Then

Print i; "出现的次数";___ a(i)_____

_end if_____

Next i

2、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个命令按钮，标题分别为“计算”。编写代码实现：

1）程序启动时，将所有的3位素数添加到列表框中。函数Prime用于判断一个数是否为素数。请完善程序。

2）单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。请完善程序。

Function Prime( n% ) As Boolean '判断素数函数

Dim i%

Prime = true

For i = 2 To Sqr(n)

If n mod i=0 Then Prime = False

End Function

Private Sub Form_ Load ()

Dim i%, j%, t As Boolean

For i = 100 To 999

If prime(i)=true Then List1.AddItem i

Next i

End Sub

Private Sub Command1_Click() ‘计算

Dim i%，sum%

For i = 0 To List1. List Count-1

Sum = sum + Val(List1.List(i))

Text1.Text = Sum

End Sub

3、将“ABC ” 添加到列表框List1中第三项的语句为： List1.AddItem "ABC", 2 。

4、求分段函数 ???<+≥+=)0(2)0(12x x x x x

y 的值，可用y = IIf( x>=0,1+x,x^2+abs(2*x) )。

5、设置文本框Text1中的文本字体颜色为红色的语句为： Text1.ForeColor = vbRed 。

6、命令按钮Command1左移200，实现语句是 Command1.Move Command1.Left - 200 。

7、将D:根目录下的顺序文件t1.txt 内容读入变量S ，并显示在文本框Text1中；继而将其中的字母（包括大小写）、数字及其它字符的分别串成不同的字符串，最后将结果显示在图形框P1中。请完善程序段。

Dim s$, i%, c$, n1$, n2$, n3$

Open "D:\t1.txt" For 【15】 As #1

Do While 【16】

s = 【17】 '文件的内容逐个读入变量s

Text1.Text = Text1.Text & s

Loop

Close #1

For i = 1 To Len(s)

c = Mid( 【18】 )

Select Case c

Case 【19】

n1 = n1 & c

Case "0" To "9"

n2 = n2 & c

【20】

n3 = n3 & c

End Select

P1.Print "字母串为："; n1

P1.Print "数字串为："; n2

P1.Print "其它字符串为："; n3

四、程序设计题（每题10分，共20分）

1、编程计算圆周率 Pi 的近似值。计算公式如下，一直到 1/i 小于0.0000001为止。

2、编写程序，形成数列1，1，1，3，5，9，17，……的前N 项（该数列的规律是从第四项开始，每一项是前三项之和），直到某项的值超过50000。

期末自测题（B卷）

一、单选题（每题1分，共25分）

1、211.66.160.1 是Internet上的( )。

(A) IP地址 (B)域名 (C)密码 (D)软件编号

2、https://www.docsj.com/doc/7a8185556.html,是Internet上的( )。

(A) IP地址 (B)域名 (C)密码 (D)软件编号

3、计算机病毒是（）。

(A) 一种令人生畏的传染病 (B) 一种使硬盘无法工作的细菌

4、下列表示存储容量的数据中，（）是最大的。

(A) 1.44MB (B) 20480KB (C) 1 GB (D)48657 Byte

5、下列设备中，不能作为计算机输出设备的是（）。

(A)显示器 (B)绘图仪 (C)扫描仪 (D)打印机

6、下列字符序列中，可以作为变量名的是（）。

(A) a24 (B) ab*d (C) a$x (D) Cd E

7、表达式 5 Mod 3+3\5*2的值是（）。

(A) 0 (B) 2 (C) 4 (D) 6

8、改变控件在窗体中的上下位置，应修改控件的（）属性。

(A) Top (B) Left (C) Width (D) Right

9、下列语句错误的是（）。

(A) Exit For (B) Exit If (C) Exit Do (D) Exit Sub

10、在默认情况下，InputBox函数返回值的类型为（）。

(A) 数值 (B)字符串 (C) 变体 (D) 数值或字符串(视输入的数据而定)

11、窗体上有一水平滚动条，其Max为1，Min为100。以下叙述中正确的是（）。

(A) 程序运行时，若使滚动块向左移动，滚动条的Value属性值会增大

(B) 程序运行时，若使滚动块向左移动，滚动条的Value属性值会减小

(D) 由于滚动条的Max值小于Min值，程序运行时滚动条的长度会缩为一点，滑块无法移动

12、在窗体上有两个名分别为Op1、Op2的单选按钮，一个名称为Ck1的复选框。程序运行后，要求Op1和Ck1被选中，以下能实现上述操作的程序段是（）。

(A) Op1.Value = True

Ck1.Value = True (B) Op1.Value = True

Ck1.Value = 1

Ck1.Value = 0 (D) Op1.Value = True

Ck1.Value = 2

13、设x=30,执行语句y = IIf(x > 10, x + 10, IIf(x < 0, x ^ 2, x ^ 3))后，y值

是（）。

(A) 30 (B) 40 (C) 900 (D) 2700

14、以下定义数组或给数组元素赋值的语句中，正确的是（）。

（A）Dim a As Variant

a=Array(1,2,3,4,5) （B）Dim a(10) As Integer a=Array(1,2,3,4,5)

（C）Dim a%(10)

a(1)="ABCDE" （D）Dim a(3),b(3) As Integer a(0)=0:a(1)=1:a(2)=2:b=a

15、下列语句中错误的是（）。

(A) Text1.Text = List1.Text (B) Label1.Caption = List1.Text

16、下列叙述中错误的是（）。

(A) 列表框与组合框都有List属性 (B) 列表框有Selected属性，而组合框没有

17、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（）。

(A) = (B) * (C) & (D) -

18、将组合框Combo1当前选中的项目下标赋值给变量S，正确的语句是（）。

(A) S= Combo1.Text (B) S = Combo1.ListIndex

19、要向文件t1.txt添加数据，正确的文件打开命令是（）。

(A) Open "t1.txt" For Write As #1 (B) Open "t1.txt" For Append As #1 (C) Open "t1.txt" For Input As #1 (D) Open "t1.txt" For Output As #1

20、表达式Abs(-5) + Len("ABCDE")的值是（）。

(A) -5ABCDE (B) 5ABCDE (C) 0 (D) 10

21、执行语句 Print Mid( "VisualBasic" , 3 )，在窗体上显示的内容是（）。

(A)s (B)Vis (C)sua (D) sualBasic

22、VB中窗体、图片框或图像框装入图形可使用（）函数。

(A) LoadPicture (B) PictureLoad (C) LoadImage (D) Imageload

23、有如下声明语句：Dim str1 As String*5，则执行语句Str1="Visual Basic"后，str1的值是（）。

(A) Visual (B) Visua (C) Visual Basic (D) V

24、窗体上有两个列表框List1和List2，List1中有若干项目（如下图所示），并有下面程序：

Private Sub Command1_Click()

For k = 0 To List1.ListCount - 1

If List1.Selected(k) Then

List2.AddItem List1.List(k)

List1.RemoveItem k

End If

Next k

End Sub

程序运行时若按图示在List1中选中2个项目并单击命令按钮，则产生的结果是（）。

(A)在List2中添加了“物理”、“计算机”两项

(B)在List1中删除了“物理”、“计算机”两项

(C)同时产生(A) 和(B) 的结果

(D)出现错误提示

25、能表示身高H超于1.7米且体重W小于62.5千克的逻辑表达式是（）。

(A) H > 1.7 And W <= 62.5 (B) H <= 1.7 Or W >= 62.5

二、程序阅读题（每题3分，共15分）

1、程序运行后，单击命令按钮，输出结果为 1 3 5 。

Private Sub Command1_Click()

Dim num As Integer

num = 1

Do Until num > 6

Print num;

num = num + 2.4

Loop

End Sub

2、以下程序片段运行后输出a的值是 3 。

a = 0

For i = 1 To 3

For j = 1 To 3

If j < i Then a = a + 1

Next j

Next i

Print a

3、程序运行后，单击命令按钮，则两个标签中显示的内容分别为 25 3 。

Private Sub Command1_Click()

Dim x%, y%

x = 5: y = 3

Call proc(x, y)

Label1.Caption = x

Label2.Caption = y

End Sub

Private Sub proc(a As Integer, ByVal b As Integer)

a = a* a

b = b + b

End Sub

4、程序运行后，单击命令按钮，则变量 a 的值是负。

Private Sub Command1_Click()

temp = Int (-0.8)

Select Case temp

Case Is < 0

a = "负"

Case 0

a = "零"

Case Is > 0

a = "正"

End Select

End Sub

5、执行下面的程序段后，输出结果为 93 。

Dim A%(10, 10), i%, j%

For i = 1 To 10

For j = 1 To 10

A(i, j) = i * j

Print A(5, A(2, 3)) + A(7, A(3, 3))

三、填空题（共40 分，每空2 分）

1、要使用下列For循环执行20次，请在下划线处填入正确的值。

For k= 99 To –2 Step -5

2、命令按钮Command1右移200，实现语句是 Command1.Move Command1.Left+200 。

3、设a、b、c都是整型变量，判断“a和b中有一个小于c”的表达式是 iif(a>b,b

4、请完善程序，功能是：在文本框Text1中输入一串字符，在窗体上输出其中出现频率最高的字母（不区分大小写）及其出现次数。例如：输入“This is a beautiful world.”则输出“使用频率最高的是i，共出现3次。”

Private Sub Command1_Click()

Dim s$, a%(65 To 90), i%, max%, n%

s = Text1.Text

For i = 1 To Len(s)

n = Asc( Ucase(mid(s,I,1)) )

If n >= 65 And n <= 90 Then

A(n)=a(n)+1

End If

max = 65

For i = 65 to 90

If a(i) > a(max) Then max=i

Print "使用频率最高的是:" & chr(max) & ",共出现" & a(max) & "次。"

End Sub

5、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个命令按钮，标题分别为“计算”。

1）程序启动时，将1000以内完数添加到列表框中。函数PerfNum用于判断一个数是否为完数(一个数如果恰好等于它的因子之和，这个数就被称为“完数”。一个数的因子是指除了该数本身以外能够被其整除的数)。请完善程序。

2）单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。请完善程序。

Function PerfNum ( n% ) As Boolean '判断完数函数

Dim i% , s%

For i = 1 To n - 1

If 【9】 Then s = s + i

Next i

If 【10】 Then PerfNum = True Else PerfNum = False

End Function

Private Sub Form_ 【11】 ()

Dim i%, j%, t As Boolean

For i = 1 To 1000

If 【12】 Then List1.AddItem i

Next i

End Sub

Private Sub Command1_Click() '计算

Dim i%，sum%

For i = 0 To 【13】

Sum = sum + 【14】

Text1.Text = Sum

End Sub

6、设有一个文本文件c:\aa.txt，其中有若干内容，如图，窗体界面如图所示。

1）将文本文件c:\aa.txt的数据读出来存放到数组中，并在列表

框中显示。请完善程序。

2）在Text1中输入一个名字或姓氏，将找到的显示在Text2中，

否则显示找不到。请完善程序。

Dim a$(), n%

Private Sub Command1_Click() '取数

Open "c:\aa.txt" For 【15】 As #1

Do While Not EOF(1)

n = n + 1

【16】 Preserve a(n)

【17】 #1 , a(n)

List1.AddItem a(n)

Loop

Close #1

End Sub

Private Sub Command2_Click() '查找

flag = False

For i = 1 To 【18】

If a(i) = Text1 Or Left(a(i), Len(Text1)) = Text1 Then

Text2 = Text2 & a(i) & vbCrLf

【19】

End If

If 【20】 Then MsgBox "找不到！"

End Sub

四、程序设计题（每题10分，共20分）

1、今年我国的国民生产总值为300670亿元,若今后每年以9%的增长率增长, 编写程序计算多少年后能实现国民生产总值翻一番?

2、编写程序，计算并输出数列1，2，3，5，16，231……的前N项（该数列的规律是从第三项开始，每一项是前两项的平方差），N值通过InputBox输入。

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实验指导与练习题实验部分的参考答案

VB实验指导与练习题实验部分的参考答案: 实验4 4-1: 2*pi*r Pi*r*r 4-3: chr(64+n) 4-4: x mod 10 x \10 mod 10 x\100 4-5: mid(s,i,1)=Lcase(t) 实验5 5-1: a+b+c+d Sum/4 5-2: (4*h-f)/2 (f-2*h)/2 5-4: sec\3600\24 Sec mod (1& 24*3600) mod 3600 mod 60 5-5: 0、5*g*t*t+v0*t 实验6 6-1: left(text1,text1、selstart) & text2 & right(text1, len(text1) – text1、selstart) 6-2: timer1、enabled=true Timer1、enabled=false

6-3: shape2、left=shape2、left +d *50 6-5: a & check2、caption 6-6: list1、listcount -1 6-7: 1000 List1、list(i) 6-8: text1 实验7 7-1: n=n-3500 n-y text1、setfocus 7-2: a=a & c 7-3: sum +j Sum=1250 7-4: m=n n=r r= m mod n 7-5: if a mod i=0 then exit for 7-6: text1 S2 & mid (s1,k,1) S2=”” 7-7: 2 n\factor

factor+1 7-8: n 7-9: sum=0 s & i & “ +” list1、clear 7-10: mid(text1, i, 1) 实验8 8-1:a(i)=a(16-i) a(16-i)=temp 8-2: a(i-2)+a(i+1)+1 Text2 & vbcrlf 8-3: picture1、print i=1 to 5 sum=sum+a(I,j) next i sum+a(i,j)+a(i,6-i) not ( i>1 and i<5 or j>1 and j<5 ) 8-4: text1 & str(a(i)) If a(i) < min then min=a(i) 8-5: (a(i)\10) * (b(i)\10) “sum=”;sum

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程序设计实验教程习题答案

实验教材实验一 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) ③

2015VB实验指导书

计算机程序设计基础（VB）实验指导书主编：刘华伟单位：信息工程学院

实验报告要求：每次实验要求写实验报告（word电子版），包括实验名称，实验目的，实验内容，所有主要界面（需把界面图贴上,用截图工具）和所有源程序（将代码复制粘贴到word报告里），每次上机课后的周五理论课对上机题目进行讲解，每次上机实验报告要求在上机内结束前提交，如果没做完最迟当天内提交给教师信箱458007844@https://www.docsj.com/doc/7a8185556.html, 只能用自己的邮箱在这个时间段提交。提交格式：邮件名和word文件名均为：公141班张三000000第1次作业第一次上机课要做实验指导书中前两次实验的内容，将两次上机的实验报告都写在同一个word文档里提交。以后每次上机均做一次实验的内容。

实验一VB6.0环境和程序设计初步一、实验目的 1．学会使用VB开发环境。 2．学会建立、编辑、运行一个简单的VB应用程序的全过程。 3．掌握变量的概念及使用。 4．通过程序实践结合课堂例子，理解类、对象的概念，掌握属性、事件、方法的应用。二、实验内容： 1．熟悉VB开发环境的标题栏、菜单栏、工具栏、窗体窗口、属性窗口、工程资源管理器窗口、代码窗口、立即窗口、窗体布局窗口、工具箱窗口的位置以及用法。（此题不需要写实验报告） 2．编写一个四则运算的功能，在界面上输入两个数，并设置加减乘除四个按钮，点击不同的按钮，显示不同的运算结果。步骤：（1）建立用户界面的对象。（2）对象属性的设置。（3）对象事件过程及编程。（4）保存和运行程序

实验二选择结构程序设计一、实验目的 1．掌握逻辑表达式的正确书写形式。 2．掌握单分支与双分支语句的使用。 3．掌握多分支条件语句的使用。 4．掌握情况语句的使用与多分支条件语句的区别。二、实验内容 1．P272实验C的1，2题，界面按自己思路设计。其中第1题要求用两种方法实现。 2．在界面上输入4个数，求最大值和最小值并显示，要求用两种方法实现。提示：先编写求最大值的程序，然后再编写求最小值的程序。 3．输入三门功课的成绩，评定某个学生是否得奖学金。评奖学金标准如下：平均分大于95分或两门100分第三门不低于80分。

九江学院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程序设计教程(第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实验指导知识点与课前练习答案

第五章实验5-1 知识点 1．数组与普通变量得区别在于数组是一组具有相同类型的有序变量的集合；而变量之间相互独立，没有内在的联系，并与其所在的位置无关。 2．VB中可以通过Dim,private,public,static这几个语句定义数组，他们之间得区别在于所定义的数组作用域不同。Static语句用于过程中，定义静态数组；private语句用于模块的通用声明处，定义模块级数组；public语句用于标准模块的声明处，定义全局数组；Dim 语句既可以用于过程中，定义局部数组，也可以用于模块的通用声明处，定义模块级数组。3．语句option base 1 Dim b(3) as integer 定义了3个数组元素，分别是b(1)，b(2)和b(3)，这两个b(3)的区别在于前者是定义数组使用的数组说明符，后者是数组元素b(3). 4. VB中的二维数组在存放的时候是按列_存储的。 5.常见的数组函数及语句有哪些？他们的功能各是什么？ Lbound函数，用于返回数组某维的维下界的值； Ubound函数，用于返回数组某维的维下界的值； Erase语句，功能有二，一是重新初始化固定大小数组的元素，二是释放动态数组的存储空间 Option base n 语句，用于说明数组的维下界从n开始计数 For-each-next语句，用于数组或对象集合中的每个元素重复执行一组语句。 6.For-each-next语句与For-next语句的区别在于前者专门用于数组或对象集合中的每个元素，而后者多用于普通变量。课前练习 1.①13 ②6 ③15 ④105 ⑤9 ⑥44 2．option base语句和redim语句。 3.33 4. 12 5 实验5-2 知识点 1.数组元素 2.数组元素的本质是变量，但是与之不同的是数组元素是有序的，通过改变下标就可以访问不同的数组元素。 3.数组元素赋值的方法有： ①用赋值语句给数组元素赋值②通过循环逐一给数组元素赋值③用inputbox函数给数组元素赋值④用array函数给数组赋值课前练习 1. D 2.LSP HXF BGJ 3. 1 5 9

初三_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课后实验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程序设计教程实验指导与习题解答上机答案

程序代码 Private Sub Command1_Click() End Sub Private Sub Command2_Click() = True End Sub Private Sub Command3_Click() = True End Sub Private Sub Command4_Click() = 10 = False = False End Sub 初始窗口：单机放大之后窗口：单机下划线之后窗口：单击加粗之后窗口：自测2 单击还原之后窗口：

Private Sub Command1_Click() Label1 = "visual basic" Text1 = " 程序设计题" End Sub Private Sub Command2_Click() Text1 = "visual basic" Label1 = " 程序设计题" End Sub 初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题3 Private Sub Command1_Click() End Sub Private Sub Command2_Click() = + 30 End Sub = + 20 = 1 初始窗口：

单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题4 程序代码 Private Sub Command1_Click() = "VB 学习" Print"简单的VB程序设计" End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub Private Sub Command3_Click() End End Sub 初始化窗口：单击显示之后的窗口：单击清除之后的窗口：自测题5 单击退出之后的窗口：

大一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实验作业参考答案作业一窗体设计 (2) 作业二计算器 (4) 作业三人民币张数求电阻值 (6) 作业四（必做）建康城 (8) 作业五阶乘累加 (9) 作业六（必做）九九乘法表 (11) 作业七（必做）I NPUT B OX 函数输入12个整数，赋值给3×4的二维数组 (12) 作业八递归函数计算两个正整数的最大公约数，递归公式为 (13) 作业九（必做）家电提货单 (15) 作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。 (17) 作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。 (19) 作业十二通过菜单选择，对字体、字号进行设置 (21)

作业一 1.简答题(略) 2.编程题： 1)单击窗体后在窗体上显示“您好！×××同学”。要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。答案参照课本P27的例1-6。 2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写：（1）用代码初始化各控件（提示：可写在Form_Load事件中）。（2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。（3）结束程序运行的代码（命令按钮）。程序代码： Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Form1.Width / 2 Text1.Height = Form1.Height / 2 Command1.Left = Form1.ScaleWidth - Command1.Width

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

VB程序设计学习与实验指导答案

Visual Basic 程序设计学习与实验指导答案上篇学习指导第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.docsj.com/doc/7a8185556.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1

2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6，845.30 9. （1）8 （2）1 （3）abcd （4）出错，类型不匹配（5）False （6）2008-6-29 （7）I likeVB （8）4 （9）4 4 （10）3 4 （11）10 -10 （12）-1 （13）aa （14）3 （15）0 （16）1 （17）C （18）5 （19）8 （20）34.54 （21）中国（22）上海（23）VISUAL BASIC （24）visual basic 10. （1）x<-100 or x>100 （2）a=Int(a) And b =Int(b) Or a<0 And b<0 （3）x<=y or x>=z （4）a>0 And a<>Int(a) （5）a=0 xor b=0 （6）Len(S)<10 （7）UCase(S)=S （8）Left(S,1)=”a” And Right(S,1)=”a” （9）Instr(S,”@”)<>0 （10）Trim(S)=S （11）Date=#8/8/2008#

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个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。思考题：通用过程与函数过程的区别？提示:

VB实验二实验答案

实验报告二实验目的（1）掌握分支结构（if、if else、select case）语句（2）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句（3）掌握循环嵌套结构（4）掌握素数算法（5）能综合运用循环控制结构解决较复杂的问题实验内容一、选择结构程序设计【实验3-1】编写一个“系统登录”程序，对用户输入的账号和密码进行检验。（10分）要求： ①账号不超过6位数，密码为4位字符，本题的密码假设为“majq”。 ②账号中不能有非数字字符，可以通过IsNumeric函数对文本框中的输入内容进行测试。 ③密码输入时，屏幕上不能显示输入字符，以“*”代替。 ④当输入不正确时，显示提示信息。若单击“重试”按钮，则清除原输入内容，焦点定位在原输入的文本框中，重新输入；若单击“取消”按钮，则停止程序的运行。 ⑤密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。图3-2 密码检验运行界面图3-3 输入密码错误显示信息掌握简单if语句的使用实验结果：【请将你的代码粘贴到下面】

【请将你的典型结果的截图粘贴到下面】【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分） ①当收入为200 元以内（含200元）时，免征； ②当收入为200 ~ 400 元（含400元）时，将超过200 元的部分纳税3% ； ③当收入为400 ~ 5000元（不含5000元）时，将超过400 元的部分纳税4% ； ④当收入为5000 元或5000元以上时，将超过400元的部分纳税5% 。程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示，要求纳税程序界面掌握多分支if语句的使用，可自行用select语句改写。实验结果：【请将你的代码粘贴到下面】【请将你的典型结果的截图粘贴到下面】【实验3-3】猜数游戏程序自动产生一个[1，100]内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”越多表示相差越近。（用select case语句实现）

VB程序设计教程实验指导与习题解答上机答案

自测1 程序代码 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize + 3 End Sub Private Sub Command2_Click() Label1.FontBold = True End Sub Private Sub Command3_Click() Label1.FontUnderline = True End Sub Private Sub Command4_Click() Label1.FontSize = 10 Label1.FontBold = False Label1.FontUnderline = False

— End Sub 初始窗口：单机放大之后窗口：单机下划线之后窗口：

单击加粗之后窗口：单击还原之后窗口：

自测2 程序代码 Private Sub Command1_Click() Label1 = "visual basic" Text1 = "程序设计题" End Sub Private Sub Command2_Click() Text1 = "visual basic" Label1 = "程序设计题" End Sub 初始窗口：

单击显示之后窗口：

—单击交换之后的窗口：自测题3 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize * (0.5) End Sub Private Sub Command2_Click() Label1.Top = Label1.Top + 30 Label1.Width = Label1.Width + 20 Label1.Alignment = 1 End Sub

大一的vb期末考试题和答案

大一的vb期末考试题和答案 1．在代码中引用一个控件时，应使用控件的（）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（）的值为“假”。 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产生的随机整数范围是（）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（）。

A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（）是有效的。 A.sum=sum-sum B.x+2=x+2 C.x+y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（）。 A．Print B．Textbox C．Optionbutto n D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（）属性来实现。 https://www.docsj.com/doc/7a8185556.html, B.ListIndex C．ListCount D．Text 10．下列代码的运行结果为（）。 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5

vb实验指导后题目-参考答案

vb实验教程答案

VB实验指导与练习题实验部分的参考答案

VB期末考试试题及答案

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

2015VB实验指导书

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

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

南京工业大学VB实验指导知识点与课前练习答案

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

VB课后实验6答案

VB程序设计教程实验指导与习题解答上机答案

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

vb实验作业参考答案

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

VB程序设计学习与实验指导答案

vbvb期末考试实验答案作业

VB实验二 实验答案

VB程序设计教程实验指导与习题解答上机答案

大一的vb期末考试题和答案

VB实验二实验答案