2004年4月二級(jí)VB真卷及答案

1、2004 年 4月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷公共基礎(chǔ)知識(shí)和 Visual Basic 語(yǔ)言程序設(shè)計(jì)（考試時(shí)間 90 分鐘，滿分 100 分）一， 選擇題（(1)(20)每小題2分，(21)(30)每小題3分，共70分）下列各題 A) 、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。(1) 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程： Private Sub Command1_Click() Move 500，500 End Sub 程序運(yùn)行后，單擊命令按鈕，執(zhí)行的操作為A) 命令按鈕移動(dòng)到距窗體左邊界、上邊

2、界各500的位置B) 窗體移動(dòng)到距屏幕左邊界、上邊界各500的位置C) 命令按鈕向左、上方向各移動(dòng)500D) 窗體向左、上方向各移動(dòng)500(2) 在窗體上有若干控件，其中有一個(gè)名稱為Text1的文本框。影響Text1的Tab順序的屬性是A) TabStop B)EnabledC) Visible D)TabIndex(3) 以下定義數(shù)組或給數(shù)組元素賦值的語(yǔ)句中，正確的是(4) 在窗體上畫一個(gè)名稱為L(zhǎng)ist1的列表框，為了對(duì)列表框中的每個(gè)項(xiàng)目都能進(jìn)行處理，應(yīng)使用的循環(huán)語(yǔ)句為A) For i=0 To List1.ListCount-1NextB) For i=0 To ListCount-1Ne

3、xtC) For i=1 To List1.listCountNextD) For i=1 To ListCountNext(5) 以下Case語(yǔ)句中錯(cuò)誤的是A) Case 0 To 10 B) Case Is>10C) Case Is>10 And Is<50 D) Case 3,5,Is>10(6) 以下關(guān)于圖片框控件的說(shuō)法中，錯(cuò)誤的是A) 可以通過(guò)Print方法在圖片框中輸出文本B) 清空?qǐng)D片框控件中圖形的方法之一是加載一個(gè)空?qǐng)D形C) 圖片框控件可以作為容器使用D) 用Stretch屬性可以自動(dòng)調(diào)整圖片框中圖形的大小(7) 執(zhí)行語(yǔ)句s=Len(Mid("

4、VisualBasic",1,6)后，s的值是A) Visual B) Basic C) 6 D) 11(8) 以下敘述中錯(cuò)誤的是A) 下拉式菜單和彈出式菜單都用菜單編輯器建立B) 在多窗體程序中，每個(gè)窗體都可以建立自己的菜單系統(tǒng)C) 除分隔線外，所有菜單項(xiàng)都能接收Click事件D) 如果把一個(gè)菜單項(xiàng)的Enabled屬性設(shè)置為False，則該菜單項(xiàng)不可見(jiàn)(9) 在窗體上畫一個(gè)命令按鈕，其名稱為Command1，然后編寫如下事件過(guò)程： Private Sub Command1_Click() a = 12345Print Format$(a, "000.00")En

5、d Sub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是A) 123.45 B) 12345.00 C) 12345 D)00123.45(10) 以下敘述中錯(cuò)誤的是A) 一個(gè)工程可以包括多種類型的文件B) Visual Basic應(yīng)用程序既能以編譯方式執(zhí)行，也能以解釋方式執(zhí)行C) 程序運(yùn)行后，在內(nèi)存中只能駐留一個(gè)窗體D) 對(duì)于事件驅(qū)動(dòng)型應(yīng)用程序，每次運(yùn)行時(shí)的執(zhí)行順序可以不一樣 (11) 以下關(guān)于函數(shù)過(guò)程的敘述中，正確的是A) 函數(shù)過(guò)程形參的類型與函數(shù)返回值的類型沒(méi)有關(guān)系B) 在函數(shù)過(guò)程中，過(guò)程的返回值可以有多個(gè)C) 當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞D) 如果不指明

6、函數(shù)過(guò)程參數(shù)的類型，則該參數(shù)沒(méi)有數(shù)據(jù)類型(12) 以下關(guān)于變量作用域的敘述中，正確的是A) 窗體中凡被聲明為Private的變量只能在某個(gè)指定的過(guò)程中使用B) 全局變量必須在標(biāo)準(zhǔn)模塊中聲明C) 模塊級(jí)變量只能用Private關(guān)鍵字聲明D) Static類型變量的作用域是它所在的窗體或模塊文件(13) 確定一個(gè)控件在窗體上的位置的屬性是A) Width和Height B) Width或HeightC) Top和Left D) Top或Left (14) 在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程 Private Sub Command1_C

7、lick() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program"End Sub程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的是A) Visual B) Basic C) Program D) 出錯(cuò)(15) 以下關(guān)系表達(dá)式中，其值為False的是A) "ABC">"AbC" B) "the"<>"they"C) "VISUAL"=UCase("

8、Visual") D) "Integer">"Int"(16) 語(yǔ)句Print 5/4*65 Mod 2的輸出結(jié)果是A) 0 B)1 C) 2 D) 3(17) 在窗體上畫一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱分別為Text1、Label1和Command1，然后編寫如下兩個(gè)事件過(guò)程：Private Sub Command1_Click() strText = InputBox("請(qǐng)輸入") Text1.Text = strTextEnd SubPrivate Sub Text1_Change() Label1.C

9、aption = Right(Trim(Text1.Text), 3)End Sub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入abcdef，則在標(biāo)簽中顯示的內(nèi)容是A)空 B) abcdef C) abc D) def(18) 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：Private Sub Command1_Click()x = -5If Sgn(x) Then y = Sgn(x 2)Else y = Sgn(x)End IfPrint yEnd Sub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是A) -5 B) 25 C) 1 D) -1(19) 一個(gè)工程中含

10、有窗體Form1、Form2和標(biāo)準(zhǔn)模塊Model1，如果在Form1中有語(yǔ)句Pubilc X As Integer，在Model1中有語(yǔ)句Pubilc Y As Integer，則以下敘述中正確的是A) 變量X、Y的作用域相同 B) Y的作用域是Model1C) 在Form1中可以直接使用X D) 在Form2中可以直接使用X和Y(20) 在窗體上畫一個(gè)名稱為Drive1的驅(qū)動(dòng)器列表框，一個(gè)名稱為Dir1的目錄列表框。當(dāng)改變當(dāng)前驅(qū)動(dòng)器時(shí)，目錄列表框應(yīng)該與之同步改變。設(shè)置兩個(gè)控件同步的命令放在一個(gè)事件過(guò)程中，這個(gè)事件過(guò)程是A）Drive1_Change B) Drive1_ClickC) Dir

11、1_Click D) Dir1_Change (21) 在窗體上畫一個(gè)命令按鈕（其NAME屬性為Command1），然后編寫如下代碼:Option Base 1Private Sub Command1_Click() Dim a s = 0 a = Array(1,2,3,4) j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print sEnd Sub運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是A) 4321 B) 1234 C) 34 D) 12(22) 在窗體上畫一個(gè)名稱為Text1的文本框，要求文本框只能接收

12、大寫字母的輸入。以下能實(shí)現(xiàn)該操作的事件過(guò)程是A) Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 65 Or KeyAscii > 90 Then MsgBox "請(qǐng)輸入大寫字母" KeyAscii = 0 End IfEnd SubB) Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode < 65 Or KeyCode > 90 Then MsgBox "請(qǐng)輸入大寫字

13、母" KeyCode = 0 End IfEnd SubC) Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Asc(Text1.Text) < 65 Or Asc(Text1.Text) > 90 Then MsgBox "請(qǐng)輸入大寫字母" End IfEnd SubD) Private Sub Text1_Change() If Asc(Text1.Text) > 64 And Asc(Text1.Tex

14、t) < 91 Then MsgBox "請(qǐng)輸入大寫字母" End IfEnd Sub(23) 假定在窗體（名稱為Form1）的代碼窗口中定義如下記錄類型：Private Type animal AnimalName As String*20 AColor As String*10End Type在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程:Private Sub Command1_Click() Dim rec As animal Open "c:vbTest.dat" For Random As #1 Len = Len

15、(rec) rec.animalName = "Cat" rec.aColor = "White" Put #1, , rec Close #1End Sub則以下敘述中正確的是A) 記錄類型animal不能在Form1中定義，必須在標(biāo)準(zhǔn)模塊中定義B) 如果文件c:vbTest.dat不存在，則Open命令執(zhí)行失敗C) 由于Put命令中沒(méi)有指明記錄號(hào)，因此每次都把記錄寫到文件的末尾D) 語(yǔ)句“Put #1, , rec”將animal類型的兩個(gè)數(shù)據(jù)元素寫到文件中(24) 在窗體上畫一個(gè)名稱為Text1的文本框，一個(gè)名稱為Command1的命令按鈕，然后編

16、寫如下事件過(guò)程和通用過(guò)程：Private Sub Command1_Click() n = Val(Text1.Text) If n2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; nEnd SubPublic Function f1(ByRef x) x=x*x f1=x+xEnd FunctionPublic Function f2(ByVal x) x=x*x f2=x+x+xEnd Function程序運(yùn)行后，在文本框中輸入6，然后單擊命令按鈕，窗體上顯示的是A) 72 36 B) 108 36 C) 72 6 D) 108 6

17、(25) 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程:Private Sub Command1_Click() c = 1234 c1 = Trim(Str(c) For i = 1 To 4 Print NextEnd Sub程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容1121231234則在下劃線處應(yīng)填入的內(nèi)容為A) Right(c1,i) B) Left(c1,i) C) Mid(c1,i,1) D) Mid(c1,i,i)(26) 在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Text1的文本框，然后編寫如下事件過(guò)程：東方教育網(wǎng)提供 Http

18、:/ eastedu Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr(i) Then Print i Next iEnd Sub該事件過(guò)程的功能是A) 輸出n以內(nèi)的奇數(shù) B) 輸出n以內(nèi)的偶數(shù)C) 輸出n以內(nèi)的素?cái)?shù) D) 輸出n以內(nèi)能被j整除的數(shù)(27) 在以下描述中正確的是A) 標(biāo)準(zhǔn)模塊中的任何過(guò)程都可以在整個(gè)工程范圍內(nèi)被調(diào)用B) 在一個(gè)窗體模塊中可以調(diào)用在其他窗體中被定義為

19、Public的通用過(guò)程C) 如果工程中包含Sub Main過(guò)程，則程序?qū)⑹紫葓?zhí)行該過(guò)程D) 如果工程中不包含Sub Main過(guò)程，則程序一定首先執(zhí)行第一個(gè)建立的窗體(28) 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下通用過(guò)程和命令按鈕的事件過(guò)程：Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End IfEnd FunctionPrivate Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i)

20、Next Print sEnd Sub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的是A) 11 B) 10 C) 9 D) 8(29) 在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + a

21、rray1(3, 4)End Sub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是A) 15 B) 14 C) 13 D) 12(30) 在窗體上畫四個(gè)文本框（如圖所示），并用這四個(gè)文本框建立一個(gè)控件數(shù)組，名稱為Text1（下標(biāo)從0開(kāi)始，自左至右順序增大），然后編寫如下事件過(guò)程：Private Sub Command1_Click() For Each TextBox In Text1 Text1(i) = Text1(i).Index i = i + 1 NextEnd Sub程序運(yùn)行后，單擊命令按鈕，四個(gè)文本框中顯示的內(nèi)容分別為A) 0123 B) 1234C) 0132 D) 出錯(cuò)信息二

22、、填空題(每空2分，共30分)請(qǐng)將每空的正確答案寫在答題卡【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í)羁?。Private Sub Form 【2】 (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=2 Then 【3】 mnu

23、EditEnd IfEnd 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】【7】。(6) 在窗體上畫一個(gè)名稱為Text1的文本框，然后畫三個(gè)單選按鈕，并用這三個(gè)單選按鈕建立一個(gè)控件數(shù)組，名稱為Option1，程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換，如圖所示，請(qǐng)?zhí)羁?。Private Sub Option1_Click(Index As Integer) Select Case 【8】 Case 0 a = "

24、;宋體" Case 1 a = "黑體" Case 2 a = "楷體GB2312" End Select text1. 【9】=aEnd Sub (7) 在窗體上畫兩個(gè)組合框，其名稱分別為Combo1、Combo2，然后畫兩個(gè)標(biāo)簽，名稱分別為L(zhǎng)abel1、Label2，如圖所示，程序運(yùn)行后，如果在某個(gè)組合框中選擇一個(gè)項(xiàng)目，則把所選中的項(xiàng)目在其下面的標(biāo)簽中顯示出來(lái)。請(qǐng)?zhí)羁?。Private Sub Combo1_Click() Call ShowItem(Combo1, Label1)End SubPrivate Sub Combo2_Click

25、() Call ShowItem(Combo2, Label2)End SubPublic Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label) 【10】.Caption =【11】.TextEnd Sub（8）在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：Private Sub Command1_Click() n = 5 f = 1 s = 0 For i = 1 To n f = f【12】 s = s + f Next Print sEnd Sub該事件過(guò)程的功能是計(jì)算的值。請(qǐng)?zhí)羁铡＃?）在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編