(16) 下列符號常量的聲明中，不合法的是
  A) Const a As Single=1.1   
  B) Const a="OK"
  C) Const a As Double=Sin(1)   
  D) Const a As Integer="12"

  答案：C

(17) 在Visual Basic中，要強制用戶對所用的變量進行顯式聲明，這可以在哪里設(shè)置?
  A) "屬性"對話框    
  B) "程序代碼"窗口
  C) "選項"對話框    
  D) 對象瀏覽器

  答案：C

(18) 下列語句中，獲得列表框List1中項目個數(shù)的語句是
  A) x=List1.ListCount    
  B) x=ListCount
  C) x=List1.ListIndex    
  D) x=ListIndex

  答案：A

(19) 要獲得當前驅(qū)動器應(yīng)使用驅(qū)動器列表框的屬性是
  A) Path       
  B) Drive
  C) Dir       
  D) Pattern

  答案：B

(20) 如果將文本框的MaxLength屬性設(shè)置為0，則文本框中的字符不能超過
  A) 8K       
  B) 16K
  C) 32K       
  D) 64K

  答案：C

(21) 當在滾動條內(nèi)拖動滾動塊時觸發(fā)
  A) KeyUp事件     
  B) KeyPress事件
  C) Scroll事件      
  D) Change事件

  答案：C

(22) 設(shè)有聲明語句
Dim b(-1 To 10, 2 To 9, 20) As Integer
則數(shù)組b中全部元素的個數(shù)
  A) 2310       
  B) 2016
  C) 1500       
  D) 1658

  答案：B

(23) 設(shè)在窗體上有個文本框，然后編寫如下的事件過程：
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="BBBBB"
   End If
End Sub
上述程序運行后，如果按 【Shift+F2】 ，則在文本框中顯示得是
  A) Alt+F2      
  B) BBBBB
  C) 隨機出幾個數(shù)     
  D) 文本框平均內(nèi)容無變化

  答案：D

(24) 設(shè)已經(jīng)在"菜單編輯器"中設(shè)計了窗體的快捷菜單，其頂級菜單為Bs，取消其"可見"屬性，運行時，在以下事件過程中，可以使快捷菜單響應(yīng)鼠標右鍵菜單的是
  A) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
     If Button=2 Then PopupMenu Bs, 2
   End Sub
  B) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
     PopupMenu Bs
   End Sub
  C) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
     PopupMenu Bs,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 Bs
   End Sub

  答案：A

(25) 下列程序的功能是調(diào)用字體對話框來設(shè)置文本框字體，單擊按鈕彈出對話框后，按Cancel鍵退出對話框，則
Private Sub Command1_Click()
   CommonDialog1.CancelError=True
   CommonDialog1.Flags=cdlCFEffects Or cdlDFBoth
   CommonDialog1.Action=4
   CommonDialog1.ShowFont
   Text1.Font.Name=CommonDialog1.FontName
   Text1.Font.Size=CommonDialog1.FontSize
   Text1.Font.Bold=CommonDialog1.FontBold
   Text1.Font.Italic=CommonDialog1.FontItalic
   Text1.Font.Underline=CommonDialog1.FontUnderline
   Text1.FontStrikethru=CommonDialog1.FontStrikethru
   Text1.ForeColor=CommonDialog1.Color
End Sub
  A) Text1的字體不發(fā)生變化   
  B) Text1的字體發(fā)生變化
  C) Text1的字體和顏色發(fā)生變化  
  D) 程序出錯！

  答案：D

(26) 要將名為MyForm的窗體顯示出來，正確的使用方法是
  A) MyForm.Show     
  B) Show.MyForm
  C) MyForm Load     
  D) MyForm Show

  答案：A

(27) 下列程序段的執(zhí)行結(jié)果為
  a=5
  For k=1 To 0
    a=a + k
  Next k
  Print k; a
  A) -1 6       
  B) -1 16
  C) 1 5       
  D) 11 21

  答案：C

(28) 下列程序段的執(zhí)行結(jié)果為
  a=3
  b=1
  For I=1 To 3
   f=a + b
   a=b
   b=f
   Print f
 Next I
  A) 4 3 6       
  B) 4 5 9
  C) 6 3 4       
  D) 7 2 8

  答案：B

(29) 下列程序段的執(zhí)行結(jié)果為
  I=9
  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＝10x＝7

  答案：D

(30) 以下程序段運行時從鍵盤上輸入字符"-"，則輸出結(jié)果為
  op$=InputBox("op=")
  If op$="+" Then a=a + 2
  If op$="-" Then a=a - 2
  Print a
  A) 2        
  B) -2
  C) 0        
  D) +2

  答案：B

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

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