期末复习资料 6
a.Write语句将自动加入逗号分隔符 b.Input语句将自动加入逗号分隔符 c.Write语句将自动加入回车 d.Input语句将自动加入回车
13.每个Visual Basic应用程序中最多可以包含几个MDI窗体？ a.1 b.2 c.3 d.4
14.将一个窗体设置为MDI子窗体的方法是( )?
a.将窗体的名称改为MDI b.将窗体的MDIChild属性设为True
c.将窗体的MDIChild属性设为False d.将窗体的Enabled属性设为False
15.要在MDI窗体中排列子窗体的位置,要利用MDI窗体的()方法? a.Move b.Show c.Refresh d.Arrange
16.当我们输入代码时,Visual Basic可以自动检测哪种错误？ a.语法错误 b.编译错误 c.运行错误 d.逻辑错误
17.以下哪个On error语句将关闭程序中的错误处理功能。 a.On error Resume Next b.On error goto 1 c.On error goto 0 d.On error goto Retry
18.在调试程序时，如果想要动态改变程序中的变量的值，可以利用()窗口？ a.监视 b.快速查看 c.立即 d.本地
19.要显示当前过程中的所有变量及对象的取值,可以利用()窗口？ a.监视 b.调用堆栈 c.立即 d.本地
20.在程序处于中断模式时,要在立即窗口中显示变量 X的值,可以输入()后回车即可。
a. ?X b. !X c. =X d. Display X
1.c, 2.c, 3.c, 4.a, 5.a, 6.b, 7.b,8.c, 9.b, 10.b,
11.b, 12.a, 13.a,14.b, 15.d, 16.a, 17.c, 18.c, 19.d, 20.a
期末复习资料 7
(1)DIM A(11 TO 30)所定义的数组有多少个元素？ A)11 B)20 C)30 D)330
(2) Print Int(Rnd(0) * 11) + 10的值的范围是 A)[0,10] B)[10,10] C)[10,20] D)[0,20]
(3) 下面程序运行后，输出的结果是 Private Sub Form_Click() Dim a, b, c Print c = b = a End Sub
A) False B)0 C)True D)显示出错信息 注意：运算顺序，c=b,得true的值，再true=a，得false
（4）下面程序执行后C的值是 Private Sub Form_Click() a = -1.2: b = 321
c = Len(Str$(a) + Str$(b)) Print c End Sub A)3 B)4 C)6 D)8
注意：数值型数转化为字符型时，前面有一个符号位
(5) 下面程序执行的结果是 Private Sub Form_Click() a$ = \c = Val(a$) + Val(b$) Print c End Sub A)123 B)456 C)\ D)579
(6) 下面程序运行时输出的结果是 Private Sub Form_Click() For X = 1 To 2 a = 0
For Y = 1 To X a = a + 1 Next Y Print a; Next X End Sub A)1 1 B)0 0 C)1 2 D)2 3
期末复习资料 8
(7) 下面程序运行时输出的结果是 Private Sub Form_Click() J = 0
Do While J < 30
J = (J + 1) * (J + 2) N = N + 1 Loop
Print N; J End Sub A)0 1 B)3 182 C)4 30 D)30 30 注意：⑴J=2,N=1; ⑵J=12,N=2; ⑶J=13*14=182, N=3
(8) 下面程序运行时输出的结果是 Private Sub Form_Click() Dim A(3, 3) For J = 1 To 3 For K = 1 To 3
A(J, K) = (J - 1) * 3 + K Next K Next J
For J = 2 To 3 For K = 1 To 2 Print A(K, J); Next K Print Next J End Sub
A)2 5 B)2 3 C)4 7 D)4 5 3 6 5 6 5 8 7 8 注意：得到的数组是: 1 2 3 4 5 6 7 8 9
要求输出的元素是:A(1,2),A(2,2) A(1,3),A(2,3)
(9) 下面程序运行时输出的结果是 Private Sub Form_Click() For K = 3 To 1 Step -1 X$ = String$(K, \ Print X$ Next K
期末复习资料 9
End Sub
A)* B)1* C)3* D)* * * * * 2* 2* * * * * * * 3* 1* * * *
注意：string函数的使用：String(number as long, char)
(10) 下面程序运行时输出的结果是 Private Sub Form_Click() S = 0
For K = 1 To 3 If K <1 Then X = 1
ElseIf K <= 2 Then X = 2
ElseIf K < 3 Then X = 3 Else
X = 4 End If Print X; S = S + X Next K Print S End Sub
A)3 3 3 9 B)3 2 1 6 C)1 2 3 6 D)2 2 4 8 注意要求输出的数据（运行时（1）x=2,s=2; (2)x=2,s=4; (3)x=4,s=8），输出的是每次的x值与最后的s值
(11) 下面程序运行后的输出是 (727) Private Sub Form_Click() K = 1
For J = 1 To 6 K = K * J Next J
Print K + J End Sub
(12) 下面程序运行后的输出Y的值是 (61) Private Sub Form_Click() For A = 1 To 5 Y = 1
For B = 1 To 10 For C = 1 To 6
期末复习资料 10
Y = Y + 1 Next C Next B Next A
Print \End Sub
注意：只需考虑A=5时，共循环了多少次
(13) 语句 Print Sgn(-3 ^ 2) + Int(-3 ^ 2)运行时输出的结果为 A)-1 B)27 C)1 D)-10
注意：sgn函数，返回数值数据的正负号，>0时值1，<0时值-1，=0为0
(14)骰子是一个正六面体,用1～6这六个数分别代表这六面, 掷一次骰子出现的数可表示为： A) Int(Rnd(6) + 1) B) Int(Rnd * 6) C) Int(Rnd * 7) D) Int(Rnd * 6 + 1)
(15)语句Dim A(4,5,6)定义的数组的元素个数是 A)15 B)120 C)210 D)456
注意：未说明为option base 1，则系统默认为base 0
(16)下面程序执行的结果是 Private Sub Form_Click() A$ = \ C = Val(A$) + Val(B$) Print C \\ 100 End Sub
A)123 B)3 C)5 D)579
(17) 下面程序运行时输出的结果是 Private Sub Form_Click() For X = 1 To 2 A = 0
For Y = 0 To X - 1 A = A + 1 Next Y Print A; Next X End Sub
A) 1 1 B) 0 3 C) 1 2 D) 3 6
(18)语句Print \输出的结果是
A)\出现错误信息 C)25*40 D)1000