2007年9月計算機二級VB模擬試題(8)及答案

(22) 用于將屏幕上的對象分組的控件是
A) 列表框      
B) 組合框
C) 標簽       
D) 框架
正確答案:  D

(23) 以下說法不正確的是
A) 使用ReDim語句可以改變數(shù)組的維數(shù)
B) 使用ReDim語句可以改變數(shù)組的類型
C) 使用ReDim語句可以改變數(shù)組的每一維的大小
D) 使用ReDim語句可以改變對數(shù)組中的所有元素進行初始化
正確答案:  B

(24) 有如下事件過程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   If (Button And 3) =3 Then
      Print "OK"
   End If
End Sub
程序運行后，為了在窗體上輸出"OK"，應當按下的鼠標鍵是
A) 左鍵       
B) 右鍵
C) 同時按下左鍵和右鍵   
D) 按什么都不顯示
正確答案:  D

(25) 在窗體上畫一個名稱為CommonDialog1的通用對話框，一個名稱為Command1的命令按鈕，要求單擊命令按鈕時，打開一個保存文件的對話框，該窗口的標題為"Save"，缺省文件名稱為"SaveFile"，在"文件類型"欄中顯示*txt，則能夠滿足上述要求的程序是
A) Private Sub Command1_Click()
     CommonDialog1.FileName="SaveFile"
     CommonDialog1.Filter="AllFiles|*.*|(*.txt) |*.txt|(*.doC) |*.doc"
     CommonDialog1.FilterIndex=2
     CommonDialog1.DialogTitle="Save"
     CommonDialog1.Action=2
End Sub
B) Private Sub Command1_Click()
      CommonDialog1.FileName="SaveFile"
      CommonDialog1.Filter="AllFiles|*.*|(*.txt) |*.txt|(*.doC) |*.doc"
      CommonDialog1.FilterIndex=1
      CommonDialog1.DialogTitle="Save"
      CommonDialog1.Action=2
End Sub
C) Private Sub Command1_Click()
      CommonDialog1.FileName="Save"
      CommonDialog1.Filter="AllFiles|*.*|(*.txt) |*.txt|(*.doC) |*.doc"
      CommonDialog1.FilterIndex=2
      CommonDialog1.DialogTitle="SaveFile"
      CommonDialog1.Action=2
End Sub
D) Private Sub Command1_Click()
      CommonDialog1.FileName="SaveFile"
      CommonDialog1.Filter="AllFiles|*.*|(*.txt) |*.txt|(*.doC) |*.doc"
      CommonDialog1.FilterIndex=1
      CommonDialog1.DialogTitle="Save"
      CommonDialog1.Action=1
End Sub
正確答案:  A

(26) 閱讀下面的程序段：
For a=1 To 2
   For b=1 To a
      For c=b To 2
         I=I + 1
      Next
    Next
Next
Print I
執(zhí)行上面的三重循環(huán)后，I的值為
A) 4        
B) 5
C) 6        
D) 9
正確答案:  B

(27) 設有下面的循環(huán)：
i=0
While i <=1
   i=i + 3
   Print i
Wend
則運行后的輸出結(jié)果是
A) 1        
B) 2
C) 3        
D) 4
正確答案:  C

(28) 設有下面的循環(huán)：
i=1
Do
   i=i + 3
   Print i
Loop Until I>    
程序運行后要執(zhí)行3次循環(huán)體，則條件中I的最小值為
A) 6        
B) 7
C) 8        
D) 9
正確答案:  B

(29) 執(zhí)行以下語句過程，在窗體上顯示的內(nèi)容是
Option Base 0
Private Sub Command3_Click()
Dim d
d=Array("a", "b", "c", "d")
Print d(1) ; d(3)
End Sub
A) ab       
B) bd
C) ac       
D) 出錯
正確答案:  B

(30) 下列程序段，在運行時最早輸出的內(nèi)容是
a=2
c=1
AAA:
   c=c + a
   If c < 10 Then
     Print c
     GoTo AAA
Else
     Print "10以內(nèi)的奇數(shù)顯示完畢。"
End If
A) 3        
B) 7
C) 9        
D) 6
正確答案:  A