(21) 當(dāng)在滾動(dòng)條內(nèi)拖動(dòng)滾動(dòng)塊時(shí)觸發(fā)
A) KeyUp事件
B) KeyPress事件
C) Scroll事件
D) Change事件
解析：本題考查的是滾動(dòng)條事件的應(yīng)用。在Visual Basic中，與滾動(dòng)條有關(guān)的事件是Scroll和Change事件。當(dāng)在滾動(dòng)條內(nèi)拖動(dòng)滾動(dòng)塊時(shí)觸發(fā)Scroll事件；改變滾動(dòng)框的位置后，將觸發(fā)Change事件。Scroll事件用于跟蹤滾動(dòng)條中的動(dòng)態(tài)變化，Change事件用于得到滾動(dòng)條的最后的值。
(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
解析：在本題中，Dim b(-1 To 10, 2 To 9, 20）As Integer定義了一個(gè)三維數(shù)組，如果沒(méi)有指定下界，缺省值是0，所以計(jì)算數(shù)組中的個(gè)數(shù)就容易了，表達(dá)式為：(10－(-1）+1）×(9-2+1）×(20-0+1）＝2016，所以選項(xiàng)B）是正確答案。
(23) 設(shè)在窗體上有個(gè)文本框，然后編寫如下的事件過(guò)程：
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ú)變化
解析：此題是有關(guān)KeyDown事件的題目，KeyDown是當(dāng)一個(gè)鍵被按下時(shí)所產(chǎn)生的事件，而KeyUp是松開被按的鍵時(shí)產(chǎn)生的事件，如果要判斷是否按下了某個(gè)轉(zhuǎn)換鍵，可以用邏輯運(yùn)算符And。例如：先定義了下面3個(gè)符號(hào)常量：Const Shift＝1，Const Ctrl＝2，Const Alt＝4；然后用下面的語(yǔ)句判斷是否按下Shift、Ctrl、Alt鍵；
如果Shift And Shift>0 ，則按下了Shift鍵；
如果Shift And Ctrl >0 ，則按下了Ctrl鍵；
如果Shift And Alt>0 ，則按下了Alt鍵；
這里的Shift時(shí)KeyDown的第二個(gè)參數(shù)；此事件過(guò)程中的If后的條件語(yǔ)句如果為真，則是按下了Alt+F2，而本題目中是按下了Shift+F2，所以不執(zhí)行Then語(yǔ)句，即文本框的內(nèi)容無(wú)變化。
(24) 設(shè)已經(jīng)在"菜單編輯器"中設(shè)計(jì)了窗體的快捷菜單，其頂級(jí)菜單為Bs，取消其"可見"屬性，運(yùn)行時(shí)，在以下事件過(guò)程中，可以使快捷菜單響應(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
解析：在Visual Basic中，允許出現(xiàn)快捷菜單，對(duì)用戶來(lái)說(shuō)，提供了很大的方便，一般來(lái)說(shuō)，菜單都在窗口的頂部，有時(shí)，用戶需要執(zhí)行菜單中的某一命令，就得把鼠標(biāo)移動(dòng)到窗口頂部，然后打開菜單選擇命令，這對(duì)用戶來(lái)說(shuō)，會(huì)覺得麻煩。而快捷菜單并不需要到窗口的頂部來(lái)打開，只要單擊鼠標(biāo)右鍵，就會(huì)彈出菜單。設(shè)計(jì)快捷菜單仍然可以用Visual Basic中提供的菜單編輯器，只要把某個(gè)菜單設(shè)置成隱藏就可以了，實(shí)際上，不管是在窗口頂部菜單條上顯示的菜單還是隱藏的菜單，都可以用PopupMenu方法把它們作為快捷菜單在運(yùn)行時(shí)顯示出來(lái)。PopupMenu方法的使用形式如下：
［對(duì)象］. PopupMenu 菜單名,標(biāo)志,x,y
其中，x,y是提供菜單顯示的位置；標(biāo)志：指定快捷菜單的行為。
(25) 下列程序的功能是調(diào)用字體對(duì)話框來(lái)設(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ò)！
解析：對(duì)話框的Cance1Error屬性的作用是指示當(dāng)選取"取消"按鈕時(shí)是否出錯(cuò)，本題目中該屬性為True，因此按Cnce1鍵后將導(dǎo)致程序出錯(cuò)，一般應(yīng)該在程序中添加對(duì)錯(cuò)誤的處理。
(26) 要將名為MyForm的窗體顯示出來(lái)，正確的使用方法是
A) MyForm.Show
B) Show.MyForm
C) MyForm Load
D) MyForm Show
解析：本題考核窗體處理時(shí)的使用方法或語(yǔ)句的格式。Visual Basic中方法和語(yǔ)句的書寫格式不同。
方法的格式為：對(duì)象.方法
語(yǔ)句的格式為：語(yǔ)句 對(duì)象名
使用方法要先寫對(duì)象名，要用"."運(yùn)算符；使用語(yǔ)句要先寫語(yǔ)句，語(yǔ)句后要空一格，后跟對(duì)象名。
