1、二級visual Basic筆試試卷01 一、選擇題(1)一(20)每小題2分，(21)一(30)每小題3分，共30題，70分) 下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂 在答題卡的相應位置上，答在試卷上不得分。 (1)以下不能在“工程資源管理器”窗口中列出的文件類型是 A)bas B)res C)fnn D)ocx (2)以下關于窗體的描述中，錯誤的是 A)執行UnloadFoMl語句后，窗體Fonnl消失，但仍在內存中 B)窗體的Ioad事件在加載窗體時發生 C)當窗體的Enabled屬性為False時，通過鼠標和鍵盤對窗體的操作都被禁止 D)窗體的H

2、eight、width屬性用于設置窗體的高和寬 (3)下列可作為V2sualBasic變量名的是 A)A#A B)4A C)?xY D)constA (4)設有如下的記錄類型 Type Student numberAs string name As String age As Integer End Type 則正確引用該記錄類型變量的代碼是 A) Studentname=”張紅” B) Dim s As Student sname”張紅” C) Dim s As Type Student D) Dim s As Type Sname=”張紅” s.Dame”張紅” (5)函數String(n

3、，“str”)的功能是 A)把數值型數據轉換為字符串 B)返回由n個字符組成的字符串 C)從字符串中取出n個字符 D)從字符串中第n個字符的位置開始取子字符串 (6)將數學表達式Cos2(a+b)+5e2寫成Visual Basic的表達式，其正確的形式是 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。單擊命令按鈕時，執行如下事件過 程： PrlVate Sub CommandlC1icko a$=software and

4、 hardware b$Right(a$,8) c$=Mid(a$,1，8) Msgbox a$,b$,c$,1 End Sub 則在彈出的信息框的標題欄中顯示的信息是 A)softWare and hardware B)software C)hardwafe D)1 (8)執行如下語句： ainutBox(”Today”，”TomorroW，”Yesterday”,Day before yesterday，5) 將顯示一個輸入對話框，在對話框的輸入區中顯示的信息是 A)Today B)Tomorrow C)Yesterday D)Day before yesterday (9)表示滾動條控件

5、取值范圍最大值的屬性是 A)Max B)LargeChange C)Value D)MaxMin（10）設a=10，b=5，c=1，執行語句Print a b c后，窗體上顯示的是 A）True B）FalseC）1 D）出錯信息 （11）如果要改變窗體的標題，則需要設置的屬性是 A）CaptionB）Name C）BackColorD）BorderStyle （12）以下能判斷是否到達文件尾的函數是 A）BOF B）LOCC）LOF D）EOF （13）如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是 A）如果工程中含有Sub Main過程，則程序一定首先執行該過程 B）不能把標準模

6、塊設置為啟動模塊 C）用Hide方法只是隱藏一個窗體，不能從內存中清除該窗體 D）任何時刻最多只有一個窗體是活動窗體 （14）窗體的MouseDown事件過程 Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) 有4個參數，關于這些參數，正確的描述是 A）通過Button參數判定當前按下的是哪一個鼠標鍵 B）Shift參數只能用來確定是否按下Shift鍵 C）Shift參數只能用來確定是否按下Alt和Ctrl鍵 D）參數x,y用來設置鼠標當前位置的坐標 (15)假定有以下函數過程： Fun

7、ction 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”，則

8、單擊“確 定”按鈕后在窗體上的輸出結果為 A)abcdefg B)ABCDEFG C)gfedcba D)GFEDCBA (16)設有語句 open c：TestDat For OutPut As#1 則以下錯誤的敘述是 A)該語句打開C盤根目錄下一個己存在的文件TestDat B)該語句在C盤根目錄下建立一個名為TestDat的文件 C)該語句建立的文件的文件號為1 D)執行該語句后，就可以通過Print#語句向文件TestDat中寫入信息 (17)以下敘述中錯誤的是 A)用Shell函數可以調用能夠在Windows下運行的應用程序 B)用Shell函數可以調用可執行文件，也可以調用Visu

9、alBasic的內部函數 C)調用Shell函數的格式應為：Shell() D)用Shell函數不能執行DoS命令 (18)以下關于過程及過程參數的描述中，錯誤的是 A)過程的參數可以是控件名稱 B)用數組作為過程的參數時，使用的是“傳地址”方式 c)只有函數過程能夠將過程中處理的信息傳回到調用的程序中 D)窗體可以作為過程的參數 (19)在窗體上畫一個名稱為TxtA的文本框，然后編寫如下的事件過程： Private Sub Txta_KeyPress(keyascii as integer) End Sub 若焦點位于文本框中，則能夠觸發KeyPress事件的操作是 A)單擊鼠標 B)雙擊文

10、本框 C)鼠標滑過文本框 D)按下鍵盤上的某個鍵 (20)目錄列表框的Path屬性的作用是 A)顯示當前驅動器或指定驅動器上的路徑 B)顯示當前驅動器或指定驅動器上的某目錄下的文件名 c)顯示根目錄下的文件名 D)只顯示當前路徑下的文件 (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)

11、popForm 是在菜單編輯器中定義的彈出式菜單的名稱 C)參數X、Y指明鼠標的當前位置 D)Button=2 表示按下的是鼠標左鍵 (22)以下能夠正確計算n!的程序是 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=

12、X*1 ii十1 Loop while i、13和 14處將程序補充完整。 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)設有如下程序 Private sub search(a()As variant，ByVal key As Variant，index%) Dim I ForILBound(a)To UBound(a) If keya(I)