03-04年全國計算機(jī)等級考試二級VB語言筆試試題及答案.doc

2003年4月全國計算機(jī)等級考試二級VB語言筆試試題及答案 一、選擇題(1)一(20)每小題2分，(21)一(30)每小題3分，共30題，70分) 下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂 在答題卡的相應(yīng)位置上，答在試卷上不得分。 (1)以下不能在“工程資源管理器”窗口中列出的文件類型是 A)bas B)res C)fnn D)ocx (2)以下關(guān)于窗體的描述中，錯誤的是 A)執(zhí)行UnloadFoMl語句后，窗體Fonnl消失，但仍在內(nèi)存中 B)窗體的Ioad事件在加載窗體時發(fā)生 C)當(dāng)窗體的Enabled屬性為False時，通過鼠標(biāo)和鍵盤對窗體的操作都被禁止 D)窗體的Height、width屬性用于設(shè)置窗體的高和寬 (3)下列可作為V2sualBasic變量名的是 A)A#A B)4A C)?xY D)constA (4)設(shè)有如下的記錄類型 Type Student numberAs string name As String age As Integer End Type 則正確引用該記錄類型變量的代碼是 A) Studentname=”張紅” B) Dim As Student sname”張紅” C) Dim s As Type Student D) Dim s As Type Sname=”張紅” s.Dame”張紅” (5)函數(shù)String(n，“str”)的功能是 A)把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串 B)返回由n個字符組成的字符串 C)從字符串中取出n個字符 D)從字符串中第n個字符的位置開始取子字符串 (6)將數(shù)學(xué)表達(dá)式Cos2(a+b)+5e2寫成Visual Basic的表達(dá)式，其正確的形式是 A)Cos(a+b)A2十5。exp(2) B)Cos2(a+b)+5*exp(2) C)Cos(a+b)2十5*ln(2) D)Cos2(a+b)+5*ln(2) (7)在窗體上畫一個命令按鈕，名稱為Commandl。單擊命令按鈕時，執(zhí)行如下事件過 程： PrlVate Sub CommandlC1icko a$=software and hardware b$Right(a$,8) c$=Mid(a$,1，8) Msgbox a$,b$,c$,1 End Sub 則在彈出的信息框的標(biāo)題欄中顯示的信息是 A)softWare and hardware B)software C)hardwafe D)1 (8)執(zhí)行如下語句： ainutBox(”Today”，”TomorroW，”Yesterday”,Day before yesterday，5) 將顯示一個輸入對話框，在對話框的輸入?yún)^(qū)中顯示的信息是 A)Today B)Tomorrow C)Yesterday D)Day before yesterday (9)表示滾動條控件取值范圍最大值的屬性是 A)Max B)LargeChange C)Value D)MaxMin (10)在窗體上畫一個名稱為Listl的列表框，一個名稱為Labell的標(biāo)簽。列表框中顯示 若干城市的名稱。當(dāng)單擊列表框中的某個城市名時，在標(biāo)簽中顯示選中城市的名稱。 下列能正確實現(xiàn)上述功能的程序是 A) Private Sub listl_Click() B)Private Sub Listl_C1ick() LabellCaptionlist1.listlndex LabellNanleListllistindex End Sub End Sub 程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是 A)空白 B)錯誤提示 C)北京 D)上海 (15)假定有以下函數(shù)過程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1UCase(Mid(S，i，1)十s1 Next i Funs1 End Function 在窗體上畫一個命令按鈕，然后編寫如下事件過程： Prlvate Sub Commmldl_Click() Dim Str1 As String，Str2 As String Strlinputbox(”請輸入一個字符串”) Str2=Fun(Strl) Print Str2 End Sub 程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串“abcdefg”，則單擊“確 定”按鈕后在窗體上的輸出結(jié)果為 A)abcdefg B)ABCDEFG C)gfedcba D)GFEDCBA (16)設(shè)有語句 open c：TestDat For OutPut As#1 則以下錯誤的敘述是 A)該語句打開C盤根目錄下一個己存在的文件TestDat B)該語句在C盤根目錄下建立一個名為TestDat的文件 C)該語句建立的文件的文件號為1 D)執(zhí)行該語句后，就可以通過Print#語句向文件TestDat中寫入信息 (17)以下敘述中錯誤的是 A)用Shell函數(shù)可以調(diào)用能夠在Windows下運行的應(yīng)用程序 B)用Shell函數(shù)可以調(diào)用可執(zhí)行文件，也可以調(diào)用VisualBasic的內(nèi)部函數(shù) C)調(diào)用Shell函數(shù)的格式應(yīng)為：Shell() D)用Shell函數(shù)不能執(zhí)行DoS命令 (18)以下關(guān)于過程及過程參數(shù)的描述中，錯誤的是 A)過程的參數(shù)可以是控件名稱 B)用數(shù)組作為過程的參數(shù)時，使用的是“傳地址”方式 c)只有函數(shù)過程能夠?qū)⑦^程中處理的信息傳回到調(diào)用的程序中 D)窗體可以作為過程的參數(shù) (19)在窗體上畫一個名稱為TxtA的文本框，然后編寫如下的事件過程： Private Sub Txta_KeyPress(keyascii as integer) End Sub 若焦點位于文本框中，則能夠觸發(fā)KeyPress事件的操作是 A)單擊鼠標(biāo) B)雙擊文本框 C)鼠標(biāo)滑過文本框 D)按下鍵盤上的某個鍵 (20)目錄列表框的Path屬性的作用是 A)顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的路徑 B)顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件名 c)顯示根目錄下的文件名 D)只顯示當(dāng)前路徑下的文件 (21)假定有如下事件過程： PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x As Single，Y As Single) If Button2 then PopupMenu popForm End if End Sub 則以下描述中錯誤的是 A)該過程的功能是彈出一個菜單 B)popForm 是在菜單編輯器中定義的彈出式菜單的名稱 C)參數(shù)X、Y指明鼠標(biāo)的當(dāng)前位置 D)Button=2 表示按下的是鼠標(biāo)左鍵 (22)以下能夠正確計算n!的程序是 二級Visual Basic語言程序設(shè)計試卷第5頁 (共15頁) A) Private Sub Commandl_ClicK() n5:x1 Do X=x*1 ii十1 Loop While in Print x End Sub B) Private Sub Commandl_Click() n5: x1：i=1 Do XX*1 ii十1 Loop While in Print x End Sub C)Private Sub Commandl_Click() n=5：x1：i1 Do X=X*1 ii十1 Loop while i、13和 14處將程序補(bǔ)充完整。 Private Sub Combol_ (KeyAscii As integer) 1f KeyAscii13 Then Fori0 To Combo1listCount1 1f Combo1Text_ 13 Ihen Label2Caption”輸入項己在組合框中” ExIt Sub End lf Next i Label2Caption“已成功添加輸入項” Combo1_ 14 CombO1Text End lf End Sub (10)設(shè)有如下程序 Private sub search(a()As variant，ByVal key As Variant，index%) Dim I ForILBound(a)To UBound(a) If keya(I) Then indexI Exit Sub End If Next I Index-1 End Sub Private Sub Form_Load() Show Dtm b() As Variant Dim n As Integer bArray(1，3，5，7，9，11，13，15) Call search(b，11，n) Printt n End Sub 程序運行后，輸出結(jié)果是_。2003年4月全國計算機(jī)等級考試二級Visual Basic筆試答案一、選擇題1-5：DADBB 6-10：ACCAD 11-15：DBBDD 16-20：ABCDA 21-25：DCBBC 26-30：CCDCA二、填空題(1) 組合框(2) 順序訪問方式(3) 9(4) Picture1.picture=LoadPicture(d:pica.jpg)(5) Timer(6) Rnd和x Mod 5和x(7) 30和70(8) 123456789(9) KeyPress和Combo1.List(i)和AddItem(10) 5 2003年9月全國計算機(jī)等級考試二級VB語言筆試試題及答案（考試時間90分鐘，滿分100分） 一、 選擇題（1）（20）每小題2分，（21）（30）每小題3分，共70分）（1）以下敘述中錯誤的是A）Visual Basic 是事件驅(qū)動型可視化編程工具B）Visual Basic應(yīng)用程序不具有明顯的開始和結(jié)束語句C）Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性D）Visual Basic中控件的某些屬性只能在運行時設(shè)置（2）以下敘述中錯誤的是A）在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件 B）以.BAS為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件C）窗體文件包含該窗體及其控件的屬性D）一個工程中可以含有多個標(biāo)準(zhǔn)模塊文件（3）以下敘述中錯誤的是A）雙擊鼠標(biāo)可以觸發(fā)DblClick事件B）窗體或控件的事件的名稱可以由編程人員確定C）移動鼠標(biāo)時，會觸發(fā)MouseMove事件D）控件的名稱可以由編程人員設(shè)定（4）以下不屬于Visual Basic系統(tǒng)的文件類型是A）.frm B）.bat C）.vbg D）.vbp（5）以下敘述中錯誤的是A）打開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件B）保存Visual Basic程序時，應(yīng)分別保存窗體文件及工程文件C）Visual Basic應(yīng)用程序只能以解釋方式執(zhí)行D）事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)（6）以下能正確定義數(shù)據(jù)類型TelBook的代碼是A）Type TelBook B）Type TelBookName As String*10 Name As String*10TelNum As Integer TelNum As IntegerEnd Type End TelBookC）Type TelBook D）Typedef TelBookName String*10 Name String*10TelNum Integer TelNum IntegerEnd Type TelBook End Type（7）以下聲明語句中錯誤的是A）Const var1=123 B）Dim var2 = ABCC）DefInt a-z D）Static var3 As Integer（8）設(shè)窗體上有一個列表框控件List1，且其中含有若干列表項。則以下能表示當(dāng)前被選中的列表項內(nèi)容的是A）List1.List B）List1.ListIndex C）List1.Index D）List1. Text（9）程序運行后，在窗體上單擊鼠標(biāo)，此時窗體不會接收到的事件是A）MouseDown B）MouseUp C）Load D）Click（10）設(shè)a=10，b=5，c=1，執(zhí)行語句Print a %26gt; b %26gt; c后，窗體上顯示的是A）True B）False C）1 D）出錯信息 （11）如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是 A）Caption B）Name C）BackColor D）BorderStyle（12）以下能判斷是否到達(dá)文件尾的函數(shù)是A）BOF B）LOC C）LOF D）EOF（13）如果一個工程含有多個窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯誤的是A）如果工程中含有Sub Main過程，則程序一定首先執(zhí)行該過程B）不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動模塊C）用Hide方法只是隱藏一個窗體，不能從內(nèi)存中清除該窗體D）任何時刻最多只有一個窗體是活動窗體（14）窗體的MouseDown事件過程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)有4個參數(shù)，關(guān)于這些參數(shù)，正確的描述是A）通過Button參數(shù)判定當(dāng)前按下的是哪一個鼠標(biāo)鍵B）Shift參數(shù)只能用來確定是否按下Shift鍵C）Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵D）參數(shù)x,y用來設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)（15）設(shè)組合框Combo1中有3個項目，則以下能刪除最后一項的語句是A）Combo1.RemoveItem TextB）Combo1.RemoveItem 2C）Combo1.RemoveItem 3D）Combo1.RemoveItem Combo1.Listcount（16）以下關(guān)于焦點的敘述中，錯誤的是A）如果文本框的TabStop屬性為False，則不能接收從鍵盤上輸入的數(shù)據(jù)B）當(dāng)文本框失去焦點時，觸發(fā)LostFocus事件C）當(dāng)文本框的Enabled屬性為False時，其Tab順序不起作用D）可以用TabIndex屬性改變Tab順序（17）如果要在菜單中添加一個分隔線，則應(yīng)將其Caption屬性設(shè)置為A）= B）* C）%26 D）-（18）執(zhí)行語句Open Tel.dat For Random As #1 Len = 50后，對文件Tel.dat中的數(shù)據(jù)能夠執(zhí)行的操作是 A）只能寫，不能讀 B）只能讀，不能寫C）既可以讀，也可以寫 D）不能讀，不能寫（19）在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然后編寫如下事件過程：Private Sub Command1_Click()n = Text1.TextSelect Case nCase 1 To 20x = 10Case 2, 4, 6x = 20Case Is 10x = 30Case 10x = 40End SelectText2.Text = xEnd Sub程序運行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的內(nèi)容是A）10 B）20 C）30 D）40（20）設(shè)有以下循環(huán)結(jié)構(gòu)Do循環(huán)體Loop While 則以下敘述中錯誤的是A）若條件是一個為0的常數(shù)，則一次也不執(zhí)行循環(huán)體B）條件可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)C）循環(huán)體中可以使用Exit Do語句 D）如果條件總是為True，則不停地執(zhí)行循環(huán)體 （21）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Dim num As Integernum = 1Do Until num 6Print num;num = num + 2.4LoopEnd Sub 程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是A）1 3.4 5.8 B）1 3 5C）1 4 7 D）無數(shù)據(jù)輸出（22）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click()Dim a As Integer, s As Integera = 8s = 1Dos = s + aa = a1Loop While a c Thend = d + x(i)c = x(i)Elsed = dcEnd IfNext iPrint dEnd Sub程序運行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為A）89 B）99 C）23 D）77（26）在窗體上畫兩個滾動條，名稱分別為Hscroll1 、Hscroll2；六個標(biāo)簽，名稱分別為Label1、Label2、Label3、Label4、Label5、Label6，其中標(biāo)簽Label 4 Label6分別顯示A、B、A*B等文字信息，標(biāo)簽Label1、Label2分別顯示其右側(cè)的滾動條的數(shù)值，Label3 顯示A*B的計算結(jié)果。如圖所示。當(dāng)移動滾動框時，在相應(yīng)的標(biāo)簽中顯示滾動條的值。當(dāng)單擊命令按鈕計算時，對標(biāo)簽Label1、Label2中顯示的兩個值求積，并將結(jié)果顯示在Label3中。以下不能實現(xiàn)上述功能的事件過程是A）Private Sub Command1_Click()Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption)End SubB）Private Sub Command1_Click()Label3.Caption = HScroll1.Value * HScroll2.ValueEnd SubC）Private Sub Command1_Click()Label3.Caption = HScroll1 * HScroll2End SubD）Private Sub Command1_Click()Label3.Caption = HScroll1. Text * HScroll2.TextEnd Sub（27）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()For n = 1 To 20If n Mod 3 0 Then m = m + n 3Next nPrint nEnd Sub程序運行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是A）15 B）18 C）21 D）24（28）在窗體上畫一個名稱為Text1的文本框，并編寫如下程序：Private Sub Form_Load()ShowText1.Text = Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print 程序設(shè)計End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print Visual Basic;End Sub程序運行后，如果按A鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是A）Visual Basic B）程序設(shè)計C）A程序設(shè)計 D）Visual Basic程序設(shè)計（29）設(shè)有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0n = 0For i = 1 To 5x = n / in = n + 1sum = sum + xNextEnd Sub該程序通過For循環(huán)計算一個表達(dá)式的值，這個表達(dá)式是 A）1+1/2+ 2/3+3/4+4/5 B）1+1/2+2/3+3/4C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5（30）以下有關(guān)數(shù)組定義的語句序列中，錯誤的是A） Static arr1(3) arr1(1) = 100 arr1(2) = Hello arr1(3) = 123.45B）Dim arr2() As Integer Dim size As Integer Private Sub Command2_Click() size = InputBox(輸入：) ReDim arr2(size)End SubC）Option Base 1 Private Sub Command3_Click() Dim arr3(3) As Integer End SubD）Dim n As Integer Private Sub Command4_Click()Dim arr4(n) As IntegerEnd Sub 二、填空題（每空2分，共30分）（1）執(zhí)行下面的程序段后，i的值為 1 ，s的值為 2 。s = 2For i = 3.2 To 4.9 Step 0.8s = s + 1Next i（2）把窗體的KeyPreview屬性設(shè)置為True，然后編寫如下兩個事件過程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub程序運行后，如果直接按鍵盤上的A鍵（即不按住Shift鍵），則在窗體上輸出的字符分別是 3 和 4 。（3）在窗體上畫一個標(biāo)簽（名稱為Label1）和一個計時器（名稱為Timer1），然后編寫如下幾個事件過程：Private Sub Form_Load()Timer1.Enabled = FalseTimer1.Interval = 5 End SubPrivate Sub Form_Click()Timer1.Enabled = 6End SubPrivate Sub Timer1_Timer()Label1.Caption = 7End Sub程序運行后，單擊窗體，將在標(biāo)簽中顯示當(dāng)前時間，每隔1秒鐘變換一次（見圖）。請?zhí)羁铡?14：54：41 （4）在窗體上畫一個文本框、一個標(biāo)簽和一個命令按鈕，其名稱分別為Text1、Label1和Command1，然后編寫如下兩個事件過程：Privat