(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
责任编辑：小草
