(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) 如果要設計一個多窗體程序時，要設計一個封面窗體(名稱(Name) 為FormCover，標題(Caption 為"多媒體演示") ，其內部的各控件及其屬性見下表。
控件 名稱(Name) 標題(Caption) 
圖片框 Pic1  
命令按鈕1 Command1 "演示" 
命令按鈕2 Command2 "結束" 
則設計出的窗體可能是
A)     B) 
C)     D) 
正確答案:  A

(26) 下列語句中，不能實現循環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

(27) 單擊一次命令按鈕后，下列程序的執行結果為
Private Sub Command1_Click()
   Dim m As Integer, I As Integer, x(10) As Integer
   For I=0 To 4: x(I) =I + 1: Next I
   For I=1 To 2: Call Prioc(x) : Next I
   For I=0 To 3: Print x(I) ;: Next I
End Sub
Private Sub Prioc(a() As Integer)
   Static I As Integer
   Do
      a(I) =a(I) + a(I + 1)
      I=I + 1
      Loop While I < 2
End Sub
A) 3 4 7 5      
B) 3 5 7 4
C) 1 2 3 4      
D) 1 2 3 5
正確答案:  B

(28) 下面程序段的運行結果是
a=1
b=1
Do
    a=a + 1
    b=b + 1
Loop Until b > 5
Print "k="; a; Spc(4) ; "b="; b + a
A) k＝7  b＝14     
B) k＝6  b＝6
C) k＝4  b＝8     
D) k＝6  b＝12
正確答案:  D