省二VB笔试真题精讲.doc

省二VB笔试真题精讲.doc1、运行以下程序后，输出结果为 O C
x%=l/4
y%=ll/4
PRINT x% ;y%
END
A. B. 0 2 C. 0 3 D. 1 3
2、 设 a=l,b=2,c=3,d=4,则表达式 IIf(a<b,a,IIf(c<d,a,d))的结果为。 D
A. 4 B. 3 C. 2 D. 1
3、 阅读下面的程序段：
nl=InputBox("请输入第一个数：")
n2=InputBox("请输入第二个数：")
Print nl+n2
当输入分别为111和222时，程序输出为 o A
A. 111222 C. 333
4、 语句Print (a=2) And (b=-2)的输出结果是。D
A. True B,结果不确定 C.-l D. False 5、若x=l,执行语句If x Then x = 0 Else x = 1的结果是。D
=l D. x=0 6、下列程序的执行结果为- 2
A=75
If A>60 Then 1=1
IfA>70 Then 1=2
IfA>80 Then 1=3
IfA>90 Then 1=4
Print I 7、在窗体的MouseUp事件中有下列程序代码：Hello!
Select Case Button
Case 1
Print "Ok!" "Hello!"
Case 2
Print “Hello!”
Case 4
Print "Welcome!"
End Select
运行此程序，当单击鼠标右键时，窗体显示
8、设输入的数据分别为14、3时，标签Labell中显示的值分别是。A
Private Sub Form_Click()
Dim a As Integer
a = Val(InputBox(n 请输入一个数”))
Select Case a Mod 5
Case Is < 2
w = a + 10
Case Is < 4
w = a * 2
Case Else
w = a - 10
End Select
Label = Str(w)
End Sub
A. 4、6 B. 6、4 C. 24、6 D. 6、24
9、 下列程序段的循环结构执行后，i的输出值是 o C
Dim y as Integer
For i = 1 To 10 Step 2 y = y + i
Next i
Print i
A) 25 B) 10 C) 11 D)因为y初值不知道，所以不确定
10、 以下程序运行的结果是- D
Dim a
a=Array(l, 3, 4, 5, 6, 7)
For i = LBound(a) To UBound(a) a(i) = a(i) * a(i)
Next i
Print a(i)
A) 49 B)0 C)不确定 D)下标越界
11、 下列程序输出结果为 o A
Private Sub Command 1 _Click()
For i = 1 To 3
GetValue (i)
Next i
Print GetValue(i)
End Sub
Private