(21) 當滾動條位于最左端或最上端時，Value屬性被設置為
A) Min       
B) Max
C) Max和Min之間    
D) Max和Min之外
解析：一般情況下，垂直滾動條的值由上往下遞增，最上端代表最小值，最下端代表最大值；水平滾動條的值從左到右遞增，最左端代表最小值，最右端代表最大值。因此當滾動條位于最左端或最下端時，Value屬性被設置為Min。
(22) 下面的數組聲明語句中正確的是
A) Dim gg［1,5］ As String   
B) Dim gg［1 To 5,1 To 5］ As String
C) Dim gg(1 To 5) As String   
D) Dim gg［1 :5,1: 5］ As String
解析：在默認情況下無論是一維還是二維或更多維的數組其缺省下標都從0開始，但有時為了方便，用戶可以自定義數組的上下界，那就得用關鍵字To來設置。例如：d(1 To 6），其含義就是一個名為d，上界為6，下界為1的數組。
(23) 下列說法正確的是
A) 任何時候都可以使用標準工具欄的"菜單編輯器"按鈕打開菜單編輯器
B) 只有當代碼窗口為當前活動窗口時，才能打開菜單編輯器
C) 只有當某個窗體為當前活動窗體時，才能打開菜單編輯器
D) 任何時候都可以使用"工具"菜單下的"菜單編輯器"命令，打開菜單編輯器
解析：在Visual Basic中，因為"菜單編輯器"命令是在"工具"菜單下，所以只有當某個窗體為當前活動窗體時，才能從"工具"菜單中選擇"菜單編輯器"選項，打開菜單編輯器。
(24) 下列各選項說法錯誤的一項是
A) 文件對話框可分為兩種，即打開(Open) 文件對話框和保存(Save As) 文件對話框
B) 通用對話框的Name屬性的默認值為CommonDialogX，此外，每種對話框都有自己的默認標題
C) 打開文件對話框可以讓用戶指定一個文件，由程序使用；而用保存文件對話框可以指定一個文件，并以這個文件名保存當前文件
D) DefaultEXT屬性和DialogTitle屬性都是打開對話框的屬性，但非保存對話框的屬性
解析：文件對話框分為兩種：即打開對話框和保存對話框，所以選項A）的正確；通用對話框的Name屬性的默認值為CommonDialogX，此外，每種對話框都有自己的默認標題，所以選項B）正確；打開文件對話框可以讓用戶指定一個文件，由程序使用，而用保存文件對話框可以指定一個文件，并以這個文件名保存當前文件，所以選項C）正確；除DefaultEXT、DialogTitle屬性是打開和保存對話框共有的，還有FileName、FileTitle、Filter、FilterIndex、Flags、InitDir、MaxFileSize、CancelError、HelpCommand、HelpContext和HelpFile屬性，都是它們共有的，所以選項D）不正確。
(25) 用InputBox函數設計的對話框，其功能是
A) 只能接收用戶輸入的數據，但不會返回任何信息
B) 能接收用戶輸入的數據，并能返回用戶輸入的信息
C) 既能用于接收用戶輸入的信息，又能用于輸出信息
D) 專門用于輸出信息
解析：InputBox函數能接收用戶輸入的數據，并能返回用戶輸入的信息，不能用于輸出信息。InputBox函數中的Prompt參數是在對話框中顯示提示信息，這種提示信息是由用戶確定的，不能把它當作輸出信息的功能。
(26) 下列程序段的執行結果為
I=4
x=5
Do
  I=I + 1
  x=x + 2
Loop Until I>=7
Print "I="; I
Print "x="; x
A) I＝4x＝5     
B) I＝7x＝15
C) I＝6x＝8     
D) I＝7x＝11
解析：此題用的是Do循環結構，其格式為：
Do
  語句塊］
  ［Exit Do］
Loop Until 循環條件
此循環由于"先執行后檢查"，所以至少執行一次。本題中，程序運行到循環條件I>=7的值為True時才停止。所以當程序結束運行后I＝7，x＝11。
(27) 下列程序段的執行結果為
a=1
b=5
Do
  a=a + b
  b=b + 1
Loop While a < 10
Print a; b
A) 1 5     
B) 12 7
C) a b     
D) 10 25
解析：此題比較簡單，開始a為1，b為5，執行Do語句，具體運行為：執行a＝a+b，b＝b+1語句后，a為6，b為6。這樣運行到a＝12，程序終止循環，此時b＝7。
(28) 下列程序段的執行結果為
a=75
If a > 60 Then I=1
If a > 70 Then I=2
If a > 80 Then I=3
If a < 90 Then I=4
Print "I="; I
A) I＝1     
B) I＝2
C) I＝3     
D) I＝4
解析：此題為If Then 結構的條件語句，如果a > 60 ，則I = 1；如果a > 70 ，則I = 2；如果a > 80 ，則I = 3；如果 a < 90，則I = 4；本題的條件是a＝75，所以輸出結果應該是I = 4。
(29) 有如下事件過程：
Private Sub Command1_Click()
   b=10
   Do Until b=-1
     a=InputBox("請輸入a的值")
     a=Val(A)
     b=InputBox("請輸入b的值")
     b=Val(b)
     a=a * b
   Loop
   Print a
End Sub
程序運行后，依次輸入數值30，20，10，－1，輸出結果為
A) 6000       
B) －10
C) 200       
D) -6000
解析：Do Until-Loop循環執行的規則是：先判斷Do語句中的<條件>，若為真，則結束循環；若<條件>為假，則執行循環體。
本程序執行時，先判斷條件"b=-1"是否為真，此時b為10，"b＝-1"不成立，執行循環體。a和b分別取得InputBox函數接收到的值為30和20，做乘法后a的值為600。執行Loop后，返回Do語句再判斷"b＝-1"是否為真，此時b為20，"b＝-1"不成立，繼續執行循環體，a和b再次取得InputBox函數接收到的值為10和-1，做乘法后a的值為-10。執行Loop后，返回到Do語句判斷"b＝-1"是否為真，此時b＝-1，"b＝-1"條件成立，結束循環，把a的值打印出來。
(30) 下面程序段執行結果為
x=Int(Rnd() + 3)
Select Case x
   Case 5
      Print "excellent"
    Case 4
      Print "good"
   Case 3
      Print "pass"
   Case Else
      Print "fail"
End Select
A) excellent      
B) good
C) pass       
D) fail
解析：本題中可以看到x = Int(Rnd(）+ 3) 語句，其中Rnd用來產生隨機數，其值在0～1之間，而在(Rnd(）+3) 前面有Int進行強制轉換，所以x為3，執行Print "pass"語句。

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目