(21) 使用语句Dim A(2) As Integer 声明数组A之后，以下说法正确的是
A) A数组中的所有元素都为0
B) A数组中的所有元素值不确定
C) A数组中所有元素值都为Empty
D) 执行Erase A后，A数组中所有元素值都不为0
正确答案: A
(22) 有如下事件过程，当同时按下转换键Shift和功能键F5时其最后输出的信息是
Const ShiftKey=1
Const CtrlKey=2
Const Key_F5=&H74
Const Key_F6=&H75
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode=Key_F5 And Shift=ShiftKey Then
Print "Press Shift+F5"
ElseIf KeyCode=Key_F6 And Shift=CtrlKey Then
Print "Press Ctrl+F6"
End If
End Sub
A) 无任何信息
B) Press Shift+F5
C) Press Ctrl+F6
D) 程序出错
正确答案: B
(23) 执行下列程序后，鼠标单击窗体，输出结果为 。
Private Sub Form_Click()
Print "Click";
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
Print "Donw"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
Print " Up"
End Sub
A) DownUpClick
B) ClickDownUp
C) DownClickUp
D) UpDownClick
正确答案: A
(24) 以下事件过程可以将打开的对话框的标题改为"新时代"的是
A) Private Sub Command2_Click()
CommonDialog1.DialogTitle="新时代"
CommonDialog1.ShowOpen
End Sub
B) Private Sub Command2_Click()
CommonDialog1.DialogTitle="新时代"
CommonDialog1.ShowFont
End Sub
C) Private Sub Command2_Click()
CommonDialog1.DialogTitle="新时代"
CommonDialog1.Show
End Sub
D) Private Sub Command2_Click()
CommonDialog1.DialogTitle="新时代"
CommonDialog1.ShowColor
End Sub
正确答案: A
(25) 下列语句中，不能实现循环100次的是
A) N=0
Do
N=N+1
Loop Until N>=100
B) N=0
Do
N=N+1
Loop While n<100
C) N=0
N=N+1
Do
Loop Until N<100
D) N=0
Do While n<100
N=N+1
Loop
正确答案: C
责任编辑：小草
