(21) 與List1.Text屬性值相同的是
A) List1.ListCount     
B) List1.List(ListCount-1)
C) List1.ListIndex     
D) List1.List(List.ListIndex)
正確答案:  D

(22) 當把框架的何屬性設置為False時，其標題會變灰，框架中所有的對象均被屏蔽？
A) Name       
B) Enabled
C) Caption      
D) Visible
正確答案:  B

(23) 設執行以下程序段時依次輸入2，4，6，執行結果為
Dim a(4) As Integer
Dim b(4) As Integer
For k=0 To 2
   a(k + 1) =Val(InputBox("Enter data:") )
   b(3 - k) =a(k + 1)
Next k
Print b(k)
A) 2        
B) 4
C) 6        
D) 0
正確答案:  A

(24) 編寫如下事件過程：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
                          X As Single, Y As Single)
   If Shift＝6 And Button＝2 Then
      Print "PC"
   End If
End Sub
程序運行后，為了在窗體上輸出"PC"，應執行的操作為
A) 同時按下Shift鍵和鼠標左鍵 
B) 同時按下Ctrl，Alt鍵和鼠標右鍵
C) 同時按下Shift鍵和鼠標右鍵  
D) 同時按下Ctrl，Alt鍵和鼠標左鍵
正確答案:  B

(25) 如果在窗體上添加一個通用對話框控件DBT，那么語句"DBT.Action=4"的作用是
A) 顯示"打開文件" 對話框  
B) 顯示"保存文件"對話框
C) 顯示"字體"對話框   
D) 顯示"打印"對話框
正確答案:  C

(26) 下列說明中，不屬于隨機文件特點的是
A) 可以隨意讀取隨機文件中任一記錄的數據
B) 隨機文件沒有只讀或只寫的操作方式，隨機文件只要一打開，就既可讀又可寫
C) 隨機文件的操作是以記錄為單位進行的
D) 隨機文件的讀、寫操作語句與順序文件的讀寫操作語句一樣
正確答案:  D

(27) 執行下面的程序后，輸出的結果是
x=1
For j=1 To 4
   x=x - 1: y=0
   For k=1 To 4
      x=x + 1: y=y + 1
   Next k
Next j
Print x; y
A) 1  4       
B) 13  4
C) 12  8       
D) 20  6
正確答案:  B

(28) 有如下程序段，該程序段執行完后，執行循環的次數是
total=0
Counter=1
Do
   Print Counter
   total=total + Counter
   Print total
   Counter=Counter + 1
   If total > 10 Then
      Exit Do
   End If
Loop While Counter <=10
A) 5        
B) 10
C) 15       
D) 20
正確答案:  A

(29) 在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command _Click()
   s=0
   Do
      s=(s + 1) �� (s + 2)
      Number=Number + 1
   Loop Until s >=30
   Print Number, s
End Sub
程序運行后，輸出的結果是
A) 2  3       
B) 3  182
C) 5  12       
D) 10  20
正確答案:  B

(30) 有如下程序：
Private Sub Command1_Click()
   a$="A WORKER IS HERE"
   x=Len(a$)
   For i=1 To x - 1
      b$=Mid$(a$, i, 3)
      If b$="WOR" Then S=S + 1
   Next
   Print S
End Sub
單擊命令按鈕，程序運行結果為
A) 1        
B) 2
C) 3        
D) 5
正確答案:  A