(31) 設在窗體上有一個文本框，然后編寫如下的事件過程：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   Const Alt=4
   Const Key_F2=&H71
   altdown%=(Shift And Alt) > 0
   f2down%=(KeyCode=Key_F2)
   If altdown% And f2down% Then
       Text1.Text="abl"
   End If
End Sub
程序運行后，清除文本框中原有內容，如果按Shift+F2鍵，則在文本框中顯示的是
A) Alt+F2      
B) abl
C) 隨機出幾個數     
D) 不發生變化
正確答案:  D

(32) 設已經在菜單編輯器中設計了窗體的快捷菜單，其頂級菜單為Bt，取消其"可見"屬性，運行時，在以下事件過程中，可以使快捷菜單相應鼠標右鍵菜單的是
A) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
                            X As Single, Y As Single)
     If Button=2 Then PopupMenu Bt, 2
  End Sub
B) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
                            X As Single, Y As Single)
    PopupMenu Bt
  End Sub
C) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
                            X As Single, Y As Single)
     PopupMenu Bt,0
  End Sub
D) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
                            X As Single, Y As Single)
     If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bt
  End Sub
正確答案:  A

(33) 在窗體上畫一個通用對話框，其Name屬性為Cont，再畫一個命令按鈕，Name屬性為Command1，然后編寫如下事件過程：
Private Sub Command1_Click()
   Cont.FileName=""
   Cont.Flags=vbOFNFileMustExist
   Cont.Filter="All Files|*.*"
   Cont.FilterIndex=3
   Cont.DialogTitle="Open File"
   Co nt.Action=1
   If Cont.FileName="" Then
      MsgBox "No file selected"
   Else
      Open Cont.FileName For Input As #1
      Do While Not EOF(1)
         Input #1, b$
         Print b$
      Loop
   End If
End Sub
以下各選項，對上述事件過程描述錯誤的是
A) 該事件過程用來建立一個Open對話框，可以在這個對話框中選擇要打開的文件
B) 選擇后單擊"打開"按鈕，所選擇的文件名即作為對話框的FileName屬性值
C) Open對話框不僅僅用來選擇一個文件，還可以打開、顯示文件
D) 過程中的"Cont.Action=1"用來建立Open對話框，它與Cont.ShowOpen等價
正確答案:  C

(34) 已知使用Show方法的格式為：［窗體名稱］.Show ［模式］，如果要使窗體是"模態型"窗體，則"模式"值為
A) True       
B) 0
C) 1        
D) False
正確答案:  C

(35) 下面敘述不正確的是
A) 對順序文件中的數據操作只能按一定的順序操作
B) 順序文件結構簡單
C) 能同時對順序文件進行讀寫操作
D) 順序文件中只能知道第一個記錄的位置
正確答案:  C