(21) 在窗體上畫一個命令按鈕(其Name屬性為Command1) ，然后編寫如下代碼：
Option Base 1
   Private Sub Command1_Click()
   Dim a
   s=0
   a=Array(1,2,3,4) ; j=1
   For i=4 To 1 Step-1
      s=s+a(i) *j
      j=j*10
   Next i
   Print s
End Sub
運行上面的程序，單擊命令按鈕，其輸出結果是
A) 4321       
B) 1234
C) 34       
D) 12
正確答案:  B

(22) 在窗體上畫一個名稱為Text1的文本框，要求文本框只能接收大寫字母的輸入。以下能實現該操作的事件過程是A) Private Sub Text1_KeyPress(KeyAscii As Integer)
     If KeyAscii<65 Or KeyAscii>90 Then
       MsgBox"請輸入大寫字母"
       KeyAscii=0
   End If
End Sub
B) Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
      If KeyCode<65 Or KeyCode>90 Then
        MsgBox"請輸入大寫字母"
        KeyCode=0
  End If
End Sub
C) Private Sub Text1_MouseDown(Button As Integer,_
       Shift As Integer, X As Single, Y As Single)
    If Asc(Text1.Text) <65 Or Asc(Text1.Text) >90 Then
       MsgBox"請輸入大寫字母"
    End If
End Sub
D) Private Sub Text1_Change()
     If Asc(Text1.Text) >64 And Asc(Text1.Text) <91 Then
       MsgBox"請輸入大寫字母"
     End If
End Sub
正確答案:  A

(23) 假定在窗體(名稱為Form1) 的代碼窗口中定義如下記錄類型：
Private Type animal
   animalName As String *20
   aColor As String *10
End Type
在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
   Dim rec As animal
   Open "c:＼vbTest.dat"For Random As #1 Len=Len(reC)
   rec.animalName="Cat"
   rec.aColor="White"
   Put #1,,rec
   Close #1
End Sub
則以下敘述中正確的是
A) 記錄類型animal不能在Form1中定義，必須在標準模塊中定義
B) 如果文件c:＼vbTest.dat不存在，則Open命令執行失敗
C) 由于Put命令中沒有指明記錄號，因此每次都把記錄寫在文件的末尾
D) 語句"Put #1,,rec"將animal類型的兩個數據元素寫到文件中
正確答案:  D

(24) 在窗體上畫一個名稱為Text1的文本框，一個名稱為Command1的命令按鈕，然后編寫如下事件過程和通用過程：
Private Sub Command1_Click()
   n=Val(Text1.Text)
   If n＼2=n/2 Then
     f=f1(n)
   Else
     f=f2(n)
   End If
   Print f;n
End Sub
Public Function f1(ByRef x)
   x=x*x
   f1=x+x
End Function
Public Function f2(ByVal x)
   x=x*x
   f2=x+x+x
End Function
程序運行后，在文本框中輸入6，然后單擊命令按鈕，窗體上顯示的是
A) 72  36      
B) 108  36
C) 72  6       
D) 108  6
正確答案:  A

(25) 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
   c=1234
   c1=Trim(Str(C) )
   For i=1 To 4
      Print     
   Next
End Sub
程序運行后，單擊命令按鈕，要求在窗體上顯示如下內容：
1
12
123
1234
則在下劃線處應填入的內容為
A) Right(c1,i)      
B) Left(c1,i)
C) Mid(c1,i,1)      
D) Mid(c1,i,i)
正確答案:  B

(26) 在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，然后編寫如下事件過程：
Private Sub Command1_Click()
   n=Val(Text1.Text)
   For i=2 To n
      For j=2 To Sqr(i)
         If i Mod j=0 Then Exit For
      Next j
      If j>Sqr(i) Then Print i
   Next i
End Sub
該事件過程的功能是
A) 輸出n 以內的奇數    
B) 輸出n 以內的偶數
C) 輸出n 以內的素數    
D) 輸出n以內能被j整除的數
正確答案:  C

(27) 以下描述中正確的是
A) 標準模塊中的任何過程都可以在整個工程范圍內被調用
B) 在一個窗體模塊中可以調用在其他窗體中被定義為Public的通用過程
C) 如果工程中包含Sub Main過程，則程序將首先執行該過程
D) 如果工程中不包含Sub Main過程，則程序一定首先執行第一個建立的窗體
正確答案:  B

(28) 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：
Private Function f(m As Integer)
   If m Mod 2=0 Then
       f=m
   Else
       f=1
   End If
End Function
Private Sub Command1_Click()
   Dim i As Integer
   s=0
   For i=1 To 5
      s=s+f(i)
   Next
   Print s
End Sub
程序運行后，單擊命令按鈕，在窗體上顯示的是
A) 11       
B) 10
C) 9        
D) 8
正確答案:  C

(29) 在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
   Dim array1(10,10) As Integer
   Dim i As Integer, j As Integer
   For i=1 To 3
      For j=2 To 4
         array1(i,j) =i+j
      Next j
   Next i
   Text1.Text=array1(2,3) +array1(3,4)
End Sub
程序運行后，單擊命令按鈕，在文本框中顯示的值是
A) 15       
B) 14
C) 13       
D) 12
正確答案:  D

(30) 在窗體上畫4個文本框(如圖所示) 并用這4個文本框建立一個控件數組，名稱為Text1(下標從0開始，自左至右順序增大) ，然后編寫如下事件過程：
                  
Private Sub Command1_Click()
   For Each TextBox In Text1
     Text1(i) =Text1(i) �盜ndex
     i=i+1
   Next
End Sub
程序運行后，單擊命令按鈕，4個文本框中顯示的內容分別為
A) 0  1  2  3     
B) 1  2  3  4
C) 0  1  3  2     
D) 出錯信息
正確答案:  A

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

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