2004年4月計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試題及答案

(30) 在窗體上畫(huà)四個(gè)文本框，并用這四個(gè)文本框建立一個(gè)控件數(shù)組，名稱為T(mén)ext1（下標(biāo)從0開(kāi)始，自左至右順序增大），然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i) = Text1(i).Index
i = i + 1
Next
End Sub
程序運(yùn)行后，單擊命令按鈕，四個(gè)文本框中顯示的內(nèi)容分別為
A) 0　1　2　3 B) 1　2　3　4
C) 0　1　3　2 D) 出錯(cuò)信息
二、填空題(每空2分，共30分)
請(qǐng)將每空的正確答案寫(xiě)在答題卡【1】～【15】序號(hào)的橫線上，答在試卷上不得分。
(1) Visual Basic應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是【1】 。
(2) 在菜單編輯器中建立一個(gè)菜單，其主菜單項(xiàng)的名稱為mnuEdit，Visible屬性為False，程序運(yùn)行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與mnuEdit相應(yīng)的菜單。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡?BR>Private Sub Form 【2】 (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【3】 mnuEdit
End If
End Sub
(3) 為了使計(jì)時(shí)器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timer1控件的【4】屬性設(shè)置為【5】　。
(4) 與數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的Visual Basic表達(dá)式是【6】　。
(5) 將C盤(pán)根目錄下的圖形文件moon.jpg裝入圖片框Picture1的語(yǔ)句是【7】　。
(6) 在窗體上畫(huà)一個(gè)名稱為T(mén)ext1的文本框，然后畫(huà)三個(gè)單選按鈕，并用這三個(gè)單選按鈕建立一個(gè)控件數(shù)組，名稱為Option1，程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換，如圖所示，請(qǐng)?zhí)羁铡?BR>Private Sub Option1_Click(Index As Integer)
Select Case 【8】
Case 0
a = "宋體"
Case 1
a = "黑體"
Case 2
a = "楷體＿GB2312"
End Select
text1. 【9】　=a
End Sub
(7) 在窗體上畫(huà)兩個(gè)組合框，其名稱分別為Combo1、Combo2，然后畫(huà)兩個(gè)標(biāo)簽，名稱分別為L(zhǎng)abel1、Label2，如圖所示，程序運(yùn)行后，如果在某個(gè)組合框中選擇一個(gè)項(xiàng)目，則把所選中的項(xiàng)目在其下面的標(biāo)簽中顯示出來(lái)。請(qǐng)?zhí)羁铡?BR>Private Sub Combo1_Click()
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click()
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
【10】.Caption =【11】.Text
End Sub
（8）在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
n = 5
f = 1
s = 0
For i = 1 To n
f = f【12】
s = s + f
Next
Print s
End Sub
該事件過(guò)程的功能是計(jì)算的值。請(qǐng)?zhí)羁铡?/P>