(25) 在窗體上畫一個名稱為Drive1的驅動器列表框，一個名稱為Dir1的目錄列表框，一個名稱為File1的文件列表框，兩個名稱分雖為Label1、Label2，標題分別為空白和"共有文件"的標簽。編寫程序，使得驅動器列表框與目錄列表框、目錄列表框與文件列表框同步變化，并且在標簽Label1中顯示當前文件夾中文件的數量。如圖所示。
                        
能夠正確實現上述功能的程序是
A) Private Sub Dir1_Change()
     File1.Path=Dir1.Path
  End Sub
  Private Sub Dive1_Change()
     Dir1.Path=Drive1.Drive
     Label1.Caption=File1.ListCount
  End Sub
B) Private Sub Dir1_Change()
     File.Path=Dir1.Path
  End Sub
  Private Sub Dive1_Change()
     Dir1.Path=Drive1.Drive
     Label1.Caption=File1.List
  End Sub
C) Private Sub Dir1_Change()
     File1.Path = Dir1.Path
     Label1.Caption = File1.ListCount
  End Sub
  Private Sub Drive1_Change()
     Dir1.Path = Drive1.Drive
     Label1.Caption = File1.ListCount
  End Sub
(D) Private Sub Dir1_Change()
      File1.Path=Dir1.Path
      Label1.Caption=File1.ListCount
  End Sub
  Private Sub Dive1_Change()
     Dir1.Path=Drive1.Drive
     Label1.Caption= File1.List
  End Sub
正確答案:  C

(26) 設有聲明語句
Option Base 1
Dim b(-1 To 10, 2 To 9, 20) As Integer
則數組b中全部元素的個數
A) 2310       
B) 1920
C) 1500       
D) 1658
正確答案:  B

(27) 單擊命令按鈕，下列事件過程的執行結果為
Private Sub Command1_Click()
   Dim x As Integer, y As Integer
   x=40: y=72
   Call PtoP(x, y)
   Print x; y
End Sub
Public Sub PtoP(Byval n As Integer, ByVal m As Integer)
   n=n ＼ 10+2
   m=m ＼ 10+2
End Sub
A) 0  8       
B) 40  72
C) 4  50       
D) 78  50
正確答案:  B

(28) 下列程序的執行結果為
Private Sub Command1_Click()
   Dim p As Integer, q As Integer
   p=12: q=20
   Call Value(p, q)
   Print p; q
End Sub
Private Sub Value(ByVal m As Integer, ByVal n As Integer)
   m=m * 2: n=n - 5
   Print m; n
End Sub
A)20  12
   20  15
B)12  20
   12  25
C)24  15 
   12  20
 D)24  12
    12  15
考生答案:      正確答案:  C

(29) 在窗體上畫一個命令按鈕，然后編寫如下程序：
Private Sub Command3_Click()
   Cop 2
   Cop 3
   Cop 4
End Sub
Sub Cop (a As Integer)
   Static x As Integer
   x=x + a
   Print x;
End Sub
程序運行后，單擊命令按鈕，輸出結果為
A) 2 3 4       
B) 2 5 9
C) 3 5 4       
D) 2 4 3
正確答案:  B

(30) 有如下事件過程，單擊命令按鈕扣，輸出結果為
Private Sub Command1_Click()
   Dim b%(1 To 4) , j%, t#
   For j=1 To 4
      b(j) =j
   Next j
   t=Tax(b() )
   Print "t="; t,
End Sub
Function Tax (a() As Integer)
   Dim t#, i%
   t=1
   For i=2 To UBound(A)
      t=t * a(i)
      Next i
      Tax=t
End Function
A) t＝18       
B) t＝24
C) t＝30       
D) t＝32
正確答案:  B