二級(jí)VB筆試試卷 全國(guó)計(jì)算機(jī)等級(jí)考試

《二級(jí)VB筆試試卷 全國(guó)計(jì)算機(jī)等級(jí)考試》由會(huì)員分享，可在線閱讀，更多相關(guān)《二級(jí)VB筆試試卷 全國(guó)計(jì)算機(jī)等級(jí)考試（102頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、2003年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB語(yǔ)言筆試試卷（含答案） 一、 選擇題（（1）~（20）每小題2分，（21）~（30）每小題3分，共70分） 　　 　?。?）以下敘述中錯(cuò)誤的是 　　 　　A）Visual Basic 是事件驅(qū)動(dòng)型可視化編程工具 　　 　　B）Visual Basic應(yīng)用程序不具有明顯的開(kāi)始和結(jié)束語(yǔ)句 　　 　　C）Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性 　　 　　D）Visual Basic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置 　　 　?。?）以下敘述中錯(cuò)誤的是 　　 　　A）在工程資源管理

2、器窗口中只能包含一個(gè)工程文件及屬于該工程的其他文件 　　 　　B）以.BAS為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件 　　 　　C）窗體文件包含該窗體及其控件的屬性 　　 　　D）一個(gè)工程中可以含有多個(gè)標(biāo)準(zhǔn)模塊文件 　　 　?。?）以下敘述中錯(cuò)誤的是 　　 　　A）雙擊鼠標(biāo)可以觸發(fā)DblClick事件 　　 　　B）窗體或控件的事件的名稱可以由編程人員確定 　　 　　C）移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件 　　 　　D）控件的名稱可以由編程人員設(shè)定 　　 　?。?）以下不屬于Visual Basic系統(tǒng)的文件類型是 　　 　　A）.frm B）.bat C）.

3、vbg D）.vbp 　　 　?。?）以下敘述中錯(cuò)誤的是 　　 　　A）打開(kāi)一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件 　　 　　B）保存Visual Basic程序時(shí)，應(yīng)分別保存窗體文件及工程文件 　　 　　C）Visual Basic應(yīng)用程序只能以解釋方式執(zhí)行 　　 　　D）事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā) 　　 　?。?）以下能正確定義數(shù)據(jù)類型TelBook的代碼是 　　 　?。ㄙY料來(lái)源：東方教育網(wǎng) ) 　　 　　A）Type TelBook B）Type TelBook 　　 　　Name As String*10 Name

4、As String*10 　　 　　TelNum As Integer TelNum As Integer 　　 　　End Type End TelBook 　　 　　C）Type TelBook D）Typedef TelBook 　　 　　Name String*10 Name String*10 　　 　　TelNum Integer TelNum Integer 　　 　　End Type TelBook EndType 　　 　?。?）以下聲明語(yǔ)句中錯(cuò)誤的是 　　 　　A）Const var1=123 B）Dim var2 = 'ABC' 　　

5、　　C）DefInt a-z D）Static var3 As Integer 　　 　?。?）設(shè)窗體上有一個(gè)列表框控件Lis選中的列表項(xiàng)內(nèi)容的是t1，且其中含有若干列表項(xiàng)。則以下能表示當(dāng)前被 　　 　　A）List1.List B）List1.ListIndex C）List1.Index D）List1. Text 　　 　　（9）程序運(yùn)行后，在窗體上單擊鼠標(biāo)，此時(shí)窗體不會(huì)接收到的事件是 　　 　　A）MouseDown B）MouseUp C）Load D）Click 　　 　　（10）設(shè)a=10，b=5，c =1，執(zhí)行語(yǔ)句Print a > b > c后，窗體上顯示

6、的是 　　 　　A）True B）False C）1 D）出錯(cuò)信息 　　 　　（11）如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是 　　 　　A）Caption B）Name C）BackColor D）BorderStyle 　　 　　（12）以下能判斷是否到達(dá)文件尾的函數(shù)是 　　 　　A）BOF B）LOC C）LOFD）EOF 　　 　?。?3）如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是 　　 　　A）如果工程中含有Sub Main過(guò)程，則程序一定首先執(zhí)行該過(guò)程 　　 　　B）不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊 　　 　　C）用Hide方法只是隱藏

7、一個(gè)窗體，不能從內(nèi)存中清除該窗體 　　 　　D）任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體 　　 　?。?4）窗體的MouseDown事件過(guò)程 　　 　　Form_MouseDown (ButtSingle) 　　 　　on As Integer, Shift As Integer, X As Single, Y As 　　 　　有4個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是 　　 　　A）通過(guò)Button參數(shù)判定當(dāng)前按下的是哪一個(gè)鼠標(biāo)鍵 　　 　　B）Shift參數(shù)只能用來(lái)確定是否按下Shift鍵 　　 　　C）Shift參數(shù)只能用來(lái)確定是否按下Alt和Ctrl鍵 　　

8、 　　D）參數(shù)x,y用來(lái)設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo) 　　 　　（15）設(shè)組合框Combo1中有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是 　　 　　A）Combo1.RemoveItem Text 　　 　　B）Combo1.RemoveItem2 　　 　　C）Combo1.RemoveItem 3 　　 　　D）Combo1.RemoveItemCombo1.Listcount 　　 　?。?6）以下關(guān)于焦點(diǎn)的敘述中，錯(cuò)誤的是 　　 　　A）如果文本框的TabStop屬性為False，則不能接收從鍵盤(pán)上輸入的數(shù)據(jù) 　　 　　B）當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā)LostFoc

9、us事件 　　 　　C）當(dāng)文本框的Enabled屬性為False時(shí)，其Tab順序不起作用 　　 　　D）可以用TabIndex屬性改變Tab順序 　　 　?。?7）如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其Caption屬性設(shè)置為 　　 　　A）= B）* C）& D）- 　　 　?。?8）執(zhí)行語(yǔ)句Open "數(shù)據(jù)能夠執(zhí)行的操作是Tel.dat" For Random As #1 Le 　　 　　n = 50后，對(duì)文件Tel.dat中的 　　 　　A）只能寫(xiě)，不能讀 B）只能讀，不能寫(xiě) 　　 　　C）既可以讀，也可以寫(xiě) D）不能讀，不能寫(xiě) 　　 　?。?9）在窗

10、體上畫(huà)一個(gè)本框，然后編寫(xiě)如下事件過(guò) 　　 　　名稱為Command1的命令按鈕和兩程：個(gè)名稱分別為T(mén)ext1、Text2的文 　　 　　Private Sub Command1_Click() 　　 　　n = Text1.Text 　　 　　Select Case n 　　 　　Case 1 To 20 　　 　　x = 10 　　 　　Case 2, 4, 6 　　 　　x = 20 　　 　　Case Is < 10 　　 　　x = 30 　　 　　Case 10 　　 　　x = 40 　　 　　End Select 　　 　　

11、Text2.Text = x 　　 　　End Sub 　　 　　程序運(yùn)行后，如果在文內(nèi)容是本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的 　　 　　A）10 B）20 C）30 D）40 　　 　?。?0）設(shè)有以下循環(huán)結(jié)構(gòu) 　　 　　Do 　　 　　循環(huán)體 　　 　　Loop While <條件> 　　 　　則以下敘述中錯(cuò)誤的是 　　 　　A）若"條件"是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體 　　 　　B）"條件"可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù) 　　 　　C）循環(huán)體中可以使用Exit Do語(yǔ)句 　　 　　D）如果"條件"

12、總是為T(mén)rue，則不停地執(zhí)行循環(huán)體 　　 　?。?1）在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程： 　　 　　Private Sub Command1_Click() 　　 　　Dim num As Integer 　　 　　num = 1 　　 　　Do Until num > 6 　　 　　Print num; 　　 　　num = num + 2.4 　　 　　Loop 　　 　　End Sub 　　 　　程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是 　　 　　A）1 3.4 5.8 B）1 3 5 　　 　　C

13、）1 4 7 D）無(wú)數(shù)據(jù)輸出 　　 　?。?2）在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程： 　　 　　Private Sub Command1_Click() 　　 　　Dim a As Integer, sAs Integer 　　 　　a = 8 　　 　　s = 1 　　 　　Do 　　 　　s = s + a 　　 　　a = a－1 　　 　　Loop While a <= 0 　　 　　Print s; a 　　 　　End Sub 　　 　　程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是 　　 　　A

14、） 7 9 B） 34 0 　　 　　C） 9 7 D）死循環(huán) 　　 　?。?3）設(shè)有如下通用過(guò)程： 　　 　　Public Function f(x As Integer) 　　 　　Dim y As Integer 　　 　　x = 20 　　 　　y = 2 　　 　　f = x * y 　　 　　End Function 　　 　　在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程： 　　 　　Private Sub Command1_Click() 　　 　　Static x As Integer 　　 　　x = 1

15、0 　　 　　y=5 　　 　　y = f(x) 　　 　　Print x; y 　　 　　End Sub 　　 　　程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是 　　 　　A）10 5 B）20 5 　　 　　C）20 40 D）10 40 　　 　?。?4）設(shè)有如下通用過(guò)程： 　　 　　Public Sub Fun(a(), ByVal x As Integer) 　　 　　For i = 1 To 5 　　 　　x = x + a(i) 　　 　　Next 　　 　　End Sub 　　 　　在窗體上畫(huà)一個(gè)名稱為T(mén)ext1的

16、文本下的事件過(guò)程：框和一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如 　　 　　Private Sub Command1_Click() 　　 　　Dim arr(5) As Variant 　　 　　For i = 1 To 5 　　 　　arr(i) = i 　　 　　Next 　　 　　n = 10 　　 　　Call Fun(arr(), n) 　　 　　Text1.Text = n 　　 　　End Sub 　　 　　程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是 　　 　　A）10 B）15 C）25 D）24 　　 　?。?5

17、）在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下代碼： 　　 　　Option Base 1 　　 　　Private Sub Command1_Click() 　　 　　d = 0 　　 　　c = 10 　　 　　x = Array(10, 12, 21, 32, 24) 　　 　　For i = 1 To 5 　　 　　If x(i) > c Then 　　 　　d = d + x(i) 　　 　　c = x(i) 　　 　　Else 　　 　　d = d－c 　　 　　End If 　　 　　Next i 　　 　　

18、Print d 　　 　　End Sub 　　 　　程序運(yùn)行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為 　　 　　A）89 B）99 C）23 D）77 　　 　?。?6）在窗體上畫(huà)兩個(gè)別為L(zhǎng)abel1、Label2、Labe顯示"A"、"B"、"A*B"等文Label3 　　 　　顯示A*B的計(jì)算結(jié)果。當(dāng)單擊命令按鈕"計(jì)算"時(shí)Label3中。以下不能實(shí)現(xiàn)上滾動(dòng)條，名稱分別為Hscroll1l3、Label4、Label5、Label6，字信息，標(biāo)簽Label1、Label2分。如圖所示。當(dāng)移動(dòng)滾動(dòng)框時(shí)，，對(duì)標(biāo)簽Label1、Label2中顯示述功能的事件過(guò)程是、Hsc

19、roll2；六個(gè)標(biāo)簽，名稱分其中標(biāo)簽Label 　　 　　4~ Label6分別別顯示其右側(cè)的滾動(dòng)條的數(shù)值，在相應(yīng)的標(biāo)簽中顯示滾動(dòng)條的值的兩個(gè)值求積，并將結(jié)果顯示在 　　 　　A）Private Sub Command1_Click() 　　 　　Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption)) 　　 　　End Sub 　　 　　B）Private Sub Command1_Click() 　　 　　Label3.Caption = HScroll1.Value * HScroll2.Va

20、lue 　　 　　End Sub 　　 　　C）Private Sub Command1_Click() 　　 　　Label3.Caption = HScroll1 * HScroll2 　　 　　End Sub 　　 　　D）Private Sub Command1_Click() 　　 　　Label3.Caption = HScroll1. Text * HScroll2.Text 　　 　　End Sub 　　 　?。?7）在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程： 　　 　　Private Sub Command1_C

21、lick() 　　 　　For n = 1 To 20 　　 　　If n Mod 3 <> 0 Thenm = m + n \ 3 　　 　　Next n 　　 　　Print n 　　 　　End Sub 　　 　　程序運(yùn)行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是 　　 　　A）15 B）18 C）21 D）24 　　 　　（28）在窗體上畫(huà)一個(gè)名稱為T(mén)ext1的文本框，并編寫(xiě)如下程序： 　　 　　Private Sub Form_Load() 　　 　　Show 　　 　　Text1.Text = "" 　　 　　Text1.SetFoc

22、us 　　 　　End Sub 　　 　　Private Sub Form_MouY As Single)seUp(Button As Integer, Shift As 　　 　　Integer, X As Single, 　　 　?。ㄙY料來(lái)源：東方教育網(wǎng) ) 　　 　　Print "程序設(shè)計(jì)" 　　 　　End Sub 　　 　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 　　 　　Print "Visual Basic"; 　　 　　End Sub 　　 　　程

23、序運(yùn)行后，如果按"A"鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是 　　 　　A）Visual Basic B）程序設(shè)計(jì) 　　 　　C）A程序設(shè)計(jì) D）Visual Basic程序設(shè)計(jì) 　　 　　（29）設(shè)有如下程序： 　　 　　Private Sub Command1_Click() 　　 　　Dim sum As Double, xAs Double 　　 　　sum = 0 　　 　　n = 0 　　 　　For i = 1 To 5 　　 　　x = n / i 　　 　　n = n + 1 　　 　　sum = sum + x 　　 　　N

24、ext 　　 　　End Sub 　　 　　該程序通過(guò)For循環(huán)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是 　　 　　A）1+1/2+ 2/3+3/4+4/5 B）1+1/2+2/3+3/4 　　 　　C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5 　　 　?。?0）以下有關(guān)數(shù)組定義的語(yǔ)句序列中，錯(cuò)誤的是 　　 　　A） Static arr1(3) 　　 　　arr1(1) = 100 　　 　　arr1(2) = "Hello" 　　 　　arr1(3) = 123.45 　　 　　B）Dim arr2() As Integer

25、　　 　　Dim size As Integer 　　 　　Private Sub Command2_Click() 　　 　　size = InputBox("輸入：") 　　 　　ReDim arr2(size) 　　 　?。? 　　 　　End Sub 　　 　　C）Option Base 1 　　 　　Private Sub Command3_Click() 　　 　　Dim arr3(3) As Integer 　　 　?。? 　　 　　End Sub 　　 　　D）Dim n As Integer 　　 　　Priv

26、ate Sub Command4_Click() 　　 　　Dim arr4(n) As Integer 　　 　?。? 　　 　　End Sub 　　 　　二、填空題（每空2分，共30分） 　　 　?。?）執(zhí)行下面的程序段后，i的值為〖1〗 ，s的值為 〖2〗 。 　　 　　s = 2 　　 　　For i = 3.2 To 4.9 Step 0.8 　　 　　s = s + 1 　　 　　Next i 　　 　?。?）把窗體的KeyPreview屬性設(shè)置為T(mén)rue，然后編寫(xiě)如下兩個(gè)事件過(guò)程： 　　 　　Private Sub Form_K

27、eyDown(KeyCode As Integer, Shift As Integer) 　　 　　Print Chr(KeyCode) 　　 　　End Sub 　　 　　Private Sub Form_KeyPress(KeyAscii As Integer) 　　 　　Print Chr(KeyAscii) 　　 　　End Sub 　　 　　程序運(yùn)行后，如果直接分別是 〖3〗 和 〖4〗 。按鍵盤(pán)上的"A"鍵（即不按住Shift鍵），則在窗體上輸出的字符 　　 　?。?）在窗體上畫(huà)一個(gè)標(biāo)簽（名稱為L(zhǎng)寫(xiě)如下幾個(gè)事件過(guò)程：abel1）和一個(gè)計(jì)時(shí)器（名稱為T(mén)im

28、er1），然后編 　　 　　Private Sub Form_Load() 　　 　　Timer1.Enabled = False 　　 　　Timer1.Interval = 〖5〗 　　 　　End Sub 　　 　　Private Sub Form_Click() 　　 　　Timer1.Enabled = 〖6〗 　　 　　End Sub 　　 　　Private Sub Timer1_Timer() 　　 　　Label1.Caption = 〖7〗 　　 　　End Sub 　　 　　程序運(yùn)行后，單擊窗體，將在標(biāo)簽中 　　 　　填空。

29、顯示當(dāng)前時(shí)間，每隔1秒鐘變換一次（見(jiàn)圖）。請(qǐng) 　　 　　—————————————————————— 　　 　　14：54：41 　　 　　—————————————————————— 　　 　?。?）在窗體上畫(huà)一個(gè)Label1和Command1，然后編文本框、一個(gè)標(biāo)簽和一個(gè)命令按寫(xiě)如下兩個(gè)事件過(guò)程：鈕，其名稱分別為T(mén)ext1、 　　 　　Private Sub Command1_Click() 　　 　　S$ = InputBox("請(qǐng)輸入一個(gè)字符串") 　　 　　Text1.Text = S$ 　　 　　End Sub 　　 　　Private Sub

30、Text1_Change() 　　 　　Label1.Caption = UCase(Mid(Text1.Text, 7)) 　　 　　End Sub 　　 　　程序運(yùn)行后，單擊命令"VisualBasic"，則在標(biāo)簽按鈕，將顯示一個(gè)輸入對(duì)話框，中顯示的內(nèi)容是 〖8〗 　　 　　。如果在該對(duì)話框中輸入字符串 　　 　　（5）在窗體上畫(huà)一個(gè)列表框、一個(gè)Command1和Label1，通過(guò)屬性窗口把列表、"第三個(gè)項(xiàng)目"、"第四個(gè)項(xiàng)目"。程序運(yùn)鈕，即可將所選擇的項(xiàng)目刪除，并在標(biāo)簽選擇"第三個(gè)項(xiàng)目"的情況)。下面是實(shí)現(xiàn)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為L(zhǎng)ist1、框中的項(xiàng)目設(shè)置為：

31、"第一個(gè)項(xiàng)目"、"第二個(gè)項(xiàng)目"行后，在列表框中選擇一個(gè)項(xiàng)目，然后單擊命令按中顯示列表框當(dāng)前的項(xiàng)目數(shù)，運(yùn)行情況如圖所示(上述功能的程序，請(qǐng)?zhí)羁铡? 　　 　　Private Sub Command1 _Click() 　　 　　If List1.ListIndex >= 〖9〗 Then 　　 　　List1.RemoveItem 〖10〗 　　 　　Label1.Caption = 〖11〗 　　 　　Else 　　 　　MsgBox "請(qǐng)選擇要?jiǎng)h除的項(xiàng)目" 　　 　　End If 　　 　　End Sub 　　 　　—————————— ——————————

32、— 　　 　　第一個(gè)項(xiàng)目 　　 　　第二個(gè)項(xiàng)目 COMMAND1 　　 　　第三個(gè)項(xiàng)目 　　 　　3 　　 　　————————————————————— 　　 　?。?）設(shè)有程序： 　　 　　Option Base 1 　　 　　Private Sub Command1_Click() 　　 　　Dim arr1, Max as Integer 　　 　　arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) 　　 　　（資料來(lái)源：東方教育網(wǎng) ) 　　 　　〖12〗 = arr1(1) 　　 　　Fo

33、r i = 1 To 8 　　 　　If arr1(i) > Max Then 〖13〗 　　 　　Next i 　　 　　Print "最大值是: "; Max 　　 　　End Sub 　　 　　以上程序的功能是：用Array函數(shù)建組中元素的最大值。請(qǐng)?zhí)羁?。立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù) 　　 　?。?）以下程序的功能在文本框Text1中顯示出來(lái)是：把當(dāng)前目錄下的順序文件sm。請(qǐng)?zhí)羁?。text1.txt的內(nèi)容讀入內(nèi)存，并 　　 　　Private Sub Command1_Click() 　　 　　Dim inData As String 　

34、　 　　Text1.Text = "" 　　 　　Open ".\smtext1.txt"〖14〗 As #1 　　 　　Do While 〖15〗 　　 　　Input #1, inData 　　 　　Text1.Text = Text1.Text & inData 　　 　　Loop 　　 　　Close #1 　　 　　End Sub 　　 　　2003年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB語(yǔ)言筆試試卷參考答案 　　 　　一、 選擇題 　　 　?。?） C （2） A （3） B （4） B （5） C 　　 　?。?） A （7） B （8） D

35、 （9） C （10）B 　　 　?。?1）A （12）D （13）A （14）A （15）B 　　 　?。?6）A （17）D （18）C （19）A （20）A 　　 　?。?1）B （22）C （23）C （24）A （25）C 　　 　?。?6）D （27）C （28）D （29）C （30）D 　　 　　二、 填空題 　　 　?。?） 〖1〗 5.6 〖2〗 5 　　 　?。?） 〖3〗 A 〖4〗 a 　　 　?。?） 〖5〗 1000 〖6〗 True 〖7〗 Time 　　 　?。?） 〖8〗 BASIC 　　 　?。?） 〖9〗 0 〖

36、10〗List1.ListIndex 〖11〗 List1.ListCount 　　 　?。?） 〖12〗 Max 〖13〗 Max = arr1(i) 　　 　?。?） 〖14〗 For Input 〖15〗 Not EOF(1)） 2005年4月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷及答案 一、選擇題((1)~(35)每小題2分，共70分) 　　 　　下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)涂寫(xiě)在答題卡相應(yīng)位置上，答在試卷上不得分。 　　 　　(1)數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)是指 　　 　　A) 存儲(chǔ)在外存中的數(shù)據(jù)B) 數(shù)據(jù)所占的存儲(chǔ)空間量 　

37、　 　　C) 數(shù)據(jù)在計(jì)算機(jī)中的順序存儲(chǔ)方式D) 數(shù)據(jù)的邏輯結(jié)構(gòu)在計(jì)算機(jī)中的表示 　　 　　(2)下列關(guān)于棧的描述中錯(cuò)誤的是 　　 　　A)棧是先進(jìn)后出的線性表B) 棧只能順序存儲(chǔ) 　　 　　C) 棧具有記憶作用D) 對(duì)棧的插入與刪除操作中，不需要改變棧底指針 　　 　　(3)對(duì)于長(zhǎng)度為n的線性表，在最壞情況下，下列各排序法所對(duì)應(yīng)的比較次數(shù)中正確的是 　　 　　A) 冒泡排序?yàn)閚/2B) 冒泡排序?yàn)閚 　　 　　C) 快速排序?yàn)閚D) 快速排序?yàn)閚(n-1)/2 　　 　　(4)對(duì)于長(zhǎng)度為n的線性表進(jìn)行順序查找，在最壞情況下所需要的比較次數(shù)為 　　 　　

38、A) log2nB) n/2C) nD) n1 　　 　　(5)下列對(duì)于線性鏈表的描述中正確的是 　　 　　A)存儲(chǔ)空間不一定是連續(xù)，且各元素的存儲(chǔ)順序是任意的 　　 　　B)存儲(chǔ)空間不一定是連續(xù)，且前件元素一定存儲(chǔ)在后件元素的前面 　　 　　C)存儲(chǔ)空間必須連續(xù)，且前件元素一定存儲(chǔ)在后件元素的前面 　　 　　D)存儲(chǔ)空間必須連續(xù)，且各元素的存儲(chǔ)順序是任意的 　　 　　(6)下列對(duì)于軟件測(cè)試的描述中正確的是 　　 　　A)軟件測(cè)試的目的是證明程序是否正確 　　 　　B)軟件測(cè)試的目的是使程序運(yùn)行結(jié)果正確 　　 　　C)軟件測(cè)試的目的是盡可能多地發(fā)現(xiàn)程序中的錯(cuò)

39、誤 　　 　　D)軟件測(cè)試的目的是使程序符合結(jié)構(gòu)化原則 　　 　　(7)為了使模塊盡可能獨(dú)立，要求 　　 　　A)模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量強(qiáng) 　　 　　B)模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量弱 　　 　　C)模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量弱 　　 　　D)模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量強(qiáng) 　　 　　(8)下列描述中正確的是 　　 　　A) 程序就是軟件 　　 　　B) 軟件開(kāi)發(fā)不受計(jì)算機(jī)系統(tǒng)的限制 　　 　　C) 軟件既是邏輯實(shí)體，又是物理實(shí)體 　　 　　D) 軟件是程

40、序、數(shù)據(jù)與相關(guān)文檔的集合 　　 　　(9)數(shù)據(jù)獨(dú)立性是數(shù)據(jù)庫(kù)技術(shù)的重要特點(diǎn)之一。所謂數(shù)據(jù)獨(dú)立性是指 　　 　　A) 數(shù)據(jù)與程序獨(dú)立存放 　　 　　B) 不同的數(shù)據(jù)被存放在不同的文件中 　　 　　C) 不同的數(shù)據(jù)只能被對(duì)應(yīng)的應(yīng)用程序所使用 　　 　　D) 以上三種說(shuō)法都不對(duì) 　　 　　(10) 用樹(shù)形結(jié)構(gòu)表示實(shí)體之間聯(lián)系的模型是 　　 　　A) 關(guān)系模型B) 網(wǎng)狀模型C) 層次模型D) 以上三個(gè)都是 11、在窗體（名稱為Form1）上畫(huà)一個(gè)名稱為T(mén)ext1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)一個(gè)事件過(guò)程。程序運(yùn)行以后，如果在文本框中輸入一個(gè)字符，

41、則把命令按鈕的標(biāo)題設(shè)置為“計(jì)算機(jī)等級(jí)考試”。以下能實(shí)現(xiàn)上述操作的事件過(guò)程是： 　　 　　A)Private Sub Text1_Change() 　　 　　Command1.Caption=”計(jì)算機(jī)等級(jí)考試” 　　 　　End Sub 　　 　　B) Private Sub Command1_Click() 　　 　　Caption=”計(jì)算機(jī)等級(jí)考試” 　　 　　End Sub 　　 　　C) Private Sub Form1_Click() 　　 　　Text1.Caption=”計(jì)算機(jī)等級(jí)考試” 　　 　　End Sub 　　 　　D) Priva

42、te Sub Command1_Click() 　　 　　Text1.Text=”計(jì)算機(jī)等級(jí)考試” 　　 　　End Sub 　　 　　(12)設(shè)a=5b=4c=3d=2，下列表達(dá)式的值是 　　 　　3>2*b Or a=c And b<>c Or c>d 　　 　　A)1　　　　B)True　　　　C)False　　　　D)2 　　 　　(13)設(shè)a=”MicrosoftVisualBasic” 則以下使變量b的值為”VisualBasic”的語(yǔ)句是 　　 　　A)b=Left(a10) 　　 　　B)b=Mid(a10) 　　 　　C)b=Right(a

43、10) 　　 　　D)b=Mid(a1110) 　　 　　(14)假定有如下的窗體事件過(guò)程： 　　 　　Private Sub Form_Click() 　　 　　a$ = "Microsoft Visual Basic" 　　 　　b$ = Right(a$ 5) 　　 　　c = Mid(a$ 1 9) 　　 　　MsgBox a$ 34 b$ c$ 5 　　 　　End Sub 　　 　　程序運(yùn)行后單擊窗體，則在彈出的信息框中的標(biāo)題欄中顯示的信息是： 　　 　　A)Microsoft Visual 　　 　　B)Microsoft 　　 　

44、　C)Basic 　　 　　D)5 　　 　　(15)設(shè)a=”a”b=”b”c=”c”d=”d”執(zhí)行語(yǔ)句x=Iif((ad)”A””B”)后，x的值為： 　　 　　A)”a” 　　 　　B)”b” 　　 　　C)”B” 　　 　　D)”A” 　　 　　(16)為了使命令按鈕(名稱為Command1)右移200，應(yīng)使用的語(yǔ)句是 　　 　　A)Command1.Move -200 　　 　　B) Command1.Move 200 　　 　　C) Command1.Left= Command1.Left200 　　 　　D) Command1.Left=

45、 Command1.Left-200 　　 　　(17)在窗體上畫(huà)一個(gè)文本框，然后編寫(xiě)如下事件過(guò)程： 　　 　　Private Sub Form_Click() 　　 　　x = InputBox("請(qǐng)輸入一個(gè)整數(shù)") 　　 　　Print x Text1.Text 　　 　　End Sub 　　 　　程序運(yùn)行時(shí)，在文本框中輸入456，然后單擊窗體，在輸入對(duì)話框中輸入123，單擊“確定”按鈕后，在窗體上顯示的內(nèi)容是： 　　 　　A)123 　　 　　B)456 　　 　　C)579 　　 　　D)123456 　　 　?。?8）在窗體上畫(huà)一個(gè)文本框和

46、一個(gè)計(jì)時(shí)器控件，名稱分別為T(mén)ext1和Timer1在屬性窗口中把計(jì)時(shí)器的Interval屬性設(shè)置為1000，Enabled屬性設(shè)置為False程序運(yùn)行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的時(shí)間。以下是實(shí)現(xiàn)上述操作的程序： 　　 　　Private Sub Command1_Click() 　　 　　Timer1._________ 　　 　　End Sub 　　 　　Private Sub Timer1_Timer() 　　 　　Text1.Text = Time 　　 　　End Sub 　　 　　在______處應(yīng)填入的內(nèi)容是 　　 　　

47、A)Enabled=True 　　 　　B)Enabled=False 　　 　　C)Visible=True 　　 　　D)Visible=False 　　 　　(19)假定在圖片框Picture1中裝入了一個(gè)圖形，為了清除該圖形（不刪除圖片框），應(yīng)采用的正確方法是： 　　 　　A)選擇圖片框，然后按Del鍵 　　 　　B)執(zhí)行語(yǔ)句Picture1.Picture=LoadPicture(“”) 　　 　　C)執(zhí)行語(yǔ)句Picture1.Picture=”” 　　 　　D)選擇圖片框，在屬性窗口中選擇Picture屬性，然后按回車鍵 　　 　　（20）在窗體

48、上畫(huà)一個(gè)List1的列表框，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，列表框中顯示若干個(gè)項(xiàng)目，當(dāng)單擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽中顯示被選中的項(xiàng)目的名稱，下列能正確實(shí)現(xiàn)上述操作的程序是 　　 　　A) Private Sub List1_Click() 　　 　　Label1.Caption = List1.ListIndex 　　 　　End Sub 　　 　　B) Private Sub List1_Click() 　　 　　Label1.Name = List1.ListIndex 　　 　　End Sub 　　 　　C) Private Sub List1_Click(

49、) 　　 　　Label1.Name = List1.Text 　　 　　End Sub 　　 　　D) Private Sub List1_Click() 　　 　　Label1.Caption = List1.Text 　　 　　End Sub （21）在窗體上畫(huà)一個(gè)命令按鈕，名稱為Command1，然后編寫(xiě)如下事件過(guò)程： 　　 　　Private Sub Command1_Click() 　　 　　Dim i As Integer x As Integer 　　 　　For i = 1 To 6 　　 　　If i = 1 Then x = i 　

50、　 　　If i <= 4 Then 　　 　　x = x 1 　　 　　Else 　　 　　x = x 2 　　 　　End If 　　 　　Next i 　　 　　Print x 　　 　　End Sub 　　 　　程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為 　　 　　A)9 　　 　　B)6 　　 　　C)12 　　 　　D)15 　　 　　（22）在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程： 　　 　　Private Sub Command1_Click() 　　 　　c = "ABCD" 　　 　

51、　For n = 1 To 4 　　 　　Print _________ 　　 　　Next 　　 　　End Sub 　　 　　程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容： 　　 　　D 　　 　　CD 　　 　　BCD 　　 　　ABCD 　　 　　則在________處應(yīng)填入的內(nèi)容為 　　 　　A)Left(cn) 　　 　　B)Right(cn) 　　 　　C)Mid(cn1) 　　 　　D)Mid(cnn) 　　 　　(23)執(zhí)行以下程序段 　　 　　Dim x As Integer i As Integer 　　

52、 　　x=0 　　 　　For i = 20 To 1 Step -2 　　 　　x = x i \ 5 　　 　　Next I 　　 　　后，x的值為 　　 　　A)16 　　 　　B)17 　　 　　C)18 　　 　　D)19 　　 　　（24）在Visual Basic工程中，可以作為啟動(dòng)對(duì)象的程序是 　　 　　A)任何窗體或標(biāo)準(zhǔn)模塊 　　 　　B)任何窗體或過(guò)程 　　 　　C)Sub Main過(guò)程或其他任何模塊 　　 　　D)Sub Main過(guò)程或任何窗體 　　 　　(25)假定建立了一個(gè)名為Command1的命令按鈕數(shù)組，則

53、以下說(shuō)法中錯(cuò)誤的是 　　 　　A)數(shù)組中每個(gè)命令按鈕的名稱(名稱屬性)均為Command1 　　 　　B)數(shù)組中每個(gè)命令按鈕的標(biāo)題(Caption屬性)都一樣 　　 　　C)數(shù)組中所有命令按鈕可以使用同一個(gè)時(shí)間過(guò)程 　　 　　D)用名稱Command1(下標(biāo))可以訪問(wèn)數(shù)組中的每個(gè)命令按鈕 (26)把窗體的KeyPreview屬性設(shè)置為T(mén)rue然后編寫(xiě)如下事件過(guò)程: 　　 　　Private Sub Form_KeyPress(KeyAscii As Integer) 　　 　　Dim ch As String 　　 　　ch = Chr(KeyAscii) 　　

54、 　　KeyAscii = Asc(UCase(ch)) 　　 　　Print Chr(KeyAscii 2) 　　 　　End Sub 　　 　　程序運(yùn)行后按鍵盤(pán)上的”A”鍵則在窗體上顯示的內(nèi)容是 　　 　　A)A 　　 　　B)B 　　 　　C)C 　　 　　D)D 　　 　　(27)在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)文本框名稱分別為Command1和Text1然后編寫(xiě)如下程序: 　　 　　Private Sub Command1_Click() 　　 　　a = InputBox("請(qǐng)輸入日期(1~31)") 　　 　　t = "旅游景點(diǎn):" _

55、 　　 　　& IIf(a > 0 And a <= 10 "長(zhǎng)城" "") _ 　　 　　& IIf(a > 10 And a <= 20 "故宮" "") _ 　　 　　& IIf(a > 20 And a <= 30 "頤和園" "") 　　 　　Text1.Text = t 　　 　　End Sub 　　 　　程序運(yùn)行后如果從鍵盤(pán)輸入16則在文本框中顯示的內(nèi)容是: 　　 　　A)旅游景點(diǎn)：長(zhǎng)城故宮 　　 　　B)旅游景點(diǎn)：長(zhǎng)城頤和園 　　 　　C)旅游景點(diǎn)：頤和園 　　 　　D)旅游景點(diǎn)：故宮 　　 　　(28)在窗體上畫(huà)一個(gè)名稱為L(zhǎng)abel1

56、的標(biāo)簽然后編寫(xiě)如下事件過(guò)程: 　　 　　Private Sub Form_Click() 　　 　　Dim arr(10 10) As Integer 　　 　　Dim i As Integer j As Integer 　　 　　For i = 2 To 4 　　 　　For j = 2 To 4 　　 　　arr(i j) = i * j 　　 　　Next j 　　 　　Next i 　　 　　Label1.Caption = Str(arr(2 2) arr(3 3)) 　　 　　End Sub 　　 　　程序運(yùn)行后單擊窗體在標(biāo)簽中顯示的內(nèi)容

57、是 　　 　　A)12 　　 　　B)13 　　 　　C)14 　　 　　D)15 　　 　　(29) 在窗體上畫(huà)一個(gè)名稱為Comamnd1的命令按鈕然后編寫(xiě)如下通用過(guò)程和命令按鈕的事件過(guò)程: 　　 　　Private Function fun(ByVal m As Integer) 　　 　　If m Mod 2 = 0 Then 　　 　　fun = 2 　　 　　Else 　　 　　fun = 1 　　 　　End If 　　 　　End Function 　　 　　Private Sub Command1_Click() 　　 　

58、　Dim i As Integer s As Integer 　　 　　s = 0 　　 　　For i = 1 To 5 　　 　　s = s fun(i) 　　 　　Next 　　 　　Print s 　　 　　End Sub 　　 　　程序運(yùn)行后單擊命令按鈕則窗體上顯示的是: 　　 　　A)6 　　 　　B)7 　　 　　C)8 　　 　　D)9 　　 　　(30)閱讀程序: 　　 　　Option Base 1 　　 　　Dim arr() As Integer 　　 　　Private Sub Form_Click() 　

59、　 　　Dim i As Integer j As Integer 　　 　　ReDim arr(3 2) 　　 　　For i = 1 To 3 　　 　　For j = 1 To 2 　　 　　arr(i j) = i * 2 j 　　 　　Next j 　　 　　Next i 　　 　　ReDim Preserve arr(3 4) 　　 　　For j = 3 To 4 　　 　　arr(3 j) = j 9 　　 　　Next j 　　 　　Print arr(3 2) arr(3 4) 　　 　　End Sub 　　 　　程序運(yùn)

60、行后單擊窗體輸出結(jié)果為: 　　 　　A)21 　　 　　B)13 　　 　　C)8 　　 　　D)25 (31)在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕然后編寫(xiě)如下程序: 　　 　　Option Base 1 　　 　　Private Sub Command1_Click() 　　 　　Dim c As Integer d As Integer 　　 　　d = 0 　　 　　c = 6 　　 　　x = Array(2 4 6 8 10 12) 　　 　　For i = 1 To 6 　　 　　If x(i) > c Then 　　

61、 　　d = d x(i) 　　 　　c = x(i) 　　 　　Else 　　 　　d = d - c 　　 　　End If 　　 　　Next i 　　 　　Print d 　　 　　End Sub 　　 　　程序運(yùn)行后如果單擊命令按鈕則在窗體上輸入的內(nèi)容為 　　 　　A)10 　　 　　B)16 　　 　　C)12 　　 　　D)20 　　 　　(32)設(shè)有如下程序: 　　 　　Private Sub Command1_Click() 　　 　　Dim c As Integer d As Integer 　　 　　c =

62、4 　　 　　d = InputBox("請(qǐng)輸入一個(gè)整數(shù)") 　　 　　Do While d > 0 　　 　　If d > c Then 　　 　　c = c 1 　　 　　End If 　　 　　d = InputBox("請(qǐng)輸入一個(gè)整數(shù)") 　　 　　Loop 　　 　　Print c d 　　 　　End Sub 　　 　　程序運(yùn)行后單擊命令按鈕如果在輸入對(duì)話框中依次輸入1、2、3、4、5、6、7、8、9、0則輸出結(jié)果是: 　　 　　A)12 　　 　　B)11 　　 　　C)10 　　 　　D)9 　　 　　(33)在窗體上

63、畫(huà)一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為T(mén)ext1的文本框在文本框中輸入以下字符串: 　　 　　Microsoft Visual Basic Programming 　　 　　然后編寫(xiě)如下事件過(guò)程: 　　 　　Private Sub Command1_Click() 　　 　　Open "d:\temp\outf.txt" For Output As #1 　　 　　For i = 1 To Len(Text1.Text) 　　 　　c = Mid(Text1.Text i 1) 　　 　　If c >= "A" And c <= "Z" Then 　　

64、 　　Print #1 LCase(c) 　　 　　End If 　　 　　Next i 　　 　　Close 　　 　　End Sub 　　 　　程序運(yùn)行后單擊命令按狃文件outf.txt中的內(nèi)容是: 　　 　　A)MVBP 　　 　　B)mvbp 　　 　　C)M 　　 　　V 　　 　　B 　　 　　P 　　 　　D)m 　　 　　v 　　 　　b 　　 　　p 　　 　　(34)在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕然后編寫(xiě)如下程序: 　　 　　Dim SW As Boolean 　　 　　Functio

65、n func(X As Integer) As Integer 　　 　　If X < 20 Then 　　 　　Y = X 　　 　　Else 　　 　　Y = 20 X 　　 　　End If 　　 　　func = Y 　　 　　End Function 　　 　　Private Sub Command1_Click() 　　 　　Dim intNum As Integer 　　 　　intNum = InputBox("") 　　 　　If SW Then 　　 　　Print func(intNum) 　　 　　End If 　　

66、 　　End Sub 　　 　　Private Sub Form_MouseDown(Button As Integer Shift As Integer X As Single Y As Single) 　　 　　SW = False 　　 　　End Sub 　　 　　Private Sub Form_MouseUp(Button As Integer Shift As Integer X As Single Y As Single) 　　 　　SW = True 　　 　　End Sub 　　 　　程序運(yùn)行后單擊命令按鈕將顯示一個(gè)輸入對(duì)話框如果在對(duì)話框中輸入25則程序的執(zhí)行結(jié)果是: 　　 　　A)輸出0 　　 　　B)輸出25 　　 　　C)輸出45 　　 　　D)無(wú)任何輸出 　　 　　(35) 設(shè)有如下通用過(guò)程: 　　 　　Public Sub fun(a() As Integer x As Integer) 　　 　　F