07年4月計(jì)算機(jī)等級(jí)考試二級(jí)VB考前密卷(1)

(16) 下列符號(hào)常量的聲明中，不合法的是
  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中，要強(qiáng)制用戶對(duì)所用的變量進(jìn)行顯式聲明，這可以在哪里設(shè)置?
  A) "屬性"對(duì)話框    
  B) "程序代碼"窗口
  C) "選項(xiàng)"對(duì)話框    
  D) 對(duì)象瀏覽器

  答案：C

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

  答案：A

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

  答案：B

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

  答案：C

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

  答案：C

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

  答案：B

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

  答案：D

(24) 設(shè)已經(jīng)在"菜單編輯器"中設(shè)計(jì)了窗體的快捷菜單，其頂級(jí)菜單為Bs，取消其"可見"屬性，運(yùn)行時(shí)，在以下事件過程中，可以使快捷菜單響應(yīng)鼠標(biāo)右鍵菜單的是
  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)用字體對(duì)話框來設(shè)置文本框字體，單擊按鈕彈出對(duì)話框后，按Cancel鍵退出對(duì)話框，則
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) 程序出錯(cuò)！

  答案：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) 以下程序段運(yùn)行時(shí)從鍵盤上輸入字符"-"，則輸出結(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

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

更多信息請(qǐng)?jiān)L問：考試吧計(jì)算機(jī)等級(jí)考試欄目