1、i g awe si c-i iuia ga-scv yutly F utuei，i ee ease一 s>-r cO- k "ik.atdill e iel a i i - idl ja-Iearm . "lvl考試題型一、單項選擇題（每題1分，共35分）二、判斷題（每題1分，共15分；正確的打，錯誤的打x。）三、填空題（每空1分，共10分）四、讀程序寫出結果（每題5分，共20分）五、程序填空（每空2分，共10分）六、編程題（每小題10分，共10分）2006年4月全國計算機等級考試二級筆試試卷Visual Basic語言程序設計11.以下關于Visual Basic

2、特點的敘述中，錯誤的是A） Visual Basic是采用事件驅動編程機制的語言B） Visual Basic程序既可以編譯運行，也可以解釋運行C）構成Visual Basic程序的多個過程沒有固定的執行順序D） Visual Basic 程序不是結構化程序，不具備結構化程序的三種基本結構一12 .以下敘述中，錯誤的是A） 一個Visual Basic應用程序可以含有多個標準模塊文件B） 一個Visual Basic工程可以含有多個窗體文件C）標準模塊文件可以屬于某個指定的窗體文件一D）標準模塊文件的擴展名是.bas13 .以下敘述中，錯誤的是A）在Visual Basic中，對象所能響應的事

3、件是由系統定義的3）對象的任何屬性既可以通過屬性窗口設定，也可以通過程序語句設定一C Visual Basic中允許不同對象使用相同名稱的方法D） Visual Basic中的對象具有自己的屬性和方法14 .設有如下語句：Dim a,b As IntegerC="VisualBasic”D=#7/20/2005#以下關于這段代碼的敘述中，錯誤的是A） a被定義為Integer類型變量B b被定義為Integer類型變量C） c中的數據是字符串D） d中的數據是日期類型15 .以下能從字符串“ VisualBasic”中直接取出子字符串“Basic”的函數是A） LeftB） Mid

4、|C） StringD） Instr16 .設a=4,b=3,c=2,d=1下列表達式的值是a>b+1 Or c<d And b Mod cA) TrueB) 1C) -1D) 017 .以下可以作為 Visual Basic變量名的是A) A#AB) |counstA | C) 3AD) ?AA18 .設x=4,y=6,則以下不能在窗體上顯示出"A=10”的語句是A) Print A=x+yB) Print "A=" x+yC) Print “A=" +Str(x+y)D) Print "A=" & x+y19

5、.假定有如下的命令按鈕(名稱為 Command1)事件過程：Private Sub Command1_Click()X=InputBox(輸入：輸入整數”)MsgBox”輸入的數據是：“，”輸入數據：”+XEnd Sub程序運行后，單擊命令按鈕，如果從鍵盤上輸入整數10,則以下敘述中錯誤的是A) x的值是數值10B)輸入對話框的標題是“輸入整數“C)信息框的標題是“輸入數據：10 “D)信息框中顯示的是“輸入的數據是：“20 .在窗體上畫1個命令按鈕(名稱為 Command1)和1個文本框(名稱為 Text1),然后編 寫如下事件過程：Private Sub Command1_Click()X

6、=Val(Text1.Text)Select Case xCase 1,3Y=x*xCase Is>=10,Is<=-10Y=xCase -10 To 10Y=-xEnd SelectEnd Sub程序運行后，在文本框中輸入3,然后單擊命令按鈕，則以下敘述中正確的是A)執行 Y=x*xB)執行 Y=-xC)先執行Y=x*x ,再執行Y=-xD)程序出錯21 .設有命令按鈕 Command1的單擊事件過程，代碼如下：Private Sub Command1_Click()Dim a(30) As IntegerFor i=1 to 30a(i)=Int(Rnd*100) NextFo

7、r Each arritem In aIf arrItem Mod 7=0 Then Print arrItem;If arrItem >90 Then Exit ForNext End Sub 對于該事件過程，以下程序中錯誤的是l- p g awe ss - 一 -u- a ga111cv ycc ut ly F uturti ee easere -S>1" co-k "ik-a-d- e - el a-e- c - y dlc.a-al. - je-V l 一A) a數組中的數據是 30個100以內的整數B) 語句For Each arrltem In a

8、有語法錯誤C) If arrltem Mod 7=0語句的功能是輸出數組中能夠被 7整除的數D) If arrItem >90語句的作用是當數組元素的值大于 90時退出For循環22 .設有命令按鈕 Command1的單擊事件過程，代碼如下： Private Sub Command1_Click()Dim a(3,3) As IntegerFor i=1 to 3For j=1 to 3 a(i,j尸i*j+i Next j Next iSum=0For i=1 to 3Sum=Sum+a(i,4-i) Next i Print SumEnd Sub運行程序，單擊命令按鈕，輸出結果是A)

9、 20B) 7| C) 16 -|D) 1723 .在窗體上畫1個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click()a=0For i=1 to 2For j=1 to 4If j Mod 2<>0 Then a=a-1End If a=a+1 Next j Next i Print aEnd Sub程序運行后，單擊命令按鈕，輸出結果是A) 0B) 2C) 3| D) 424 .窗體上有名稱分別為 Text1、Text2的2個文本框，有一個由3個單選按鈕構成的控件數 組Option1,程序運行后，如果單擊某個單選按鈕，則

10、執行 Text1中的數值與該單選按鈕所對 應的運算(乘以1、10或100),并將結果顯示在 Text2中，如圖2所示。為了實現上述功能, 在程序中的問號(？)處應填入的內容是Private Sub Option1_Click(Index As Integer) If Text1.Text<> " 'ThenSelect Case ?Case 0Text2.Text=Val(Text1.Text)Case 1Text2.Text=Val(Text1.Text)*10 Case 2Text2.Text=Val(Text1.Text)*100 End Select En

11、d If End SubA) IndexB) Optionl.IndexC) Optionl(Index)D)Option1(Index).Value25 .在窗體上畫1個命令按鈕，其名稱為Command1,然后編寫如下程序：Private Sub Command1_Click()Dim a(10) As IntegerDim x As Integer For i=1 to 10 a(i)=8+iNext x=2 Print a(f(x)+x)End SubFunction f(byval x As Integer) x=x+3 f=xEnd Function程序運行后，單擊命令按鈕，輸出結果

12、為A) 12B)15C) 17| D) 1826 .以下關于過程的敘述中，錯誤的是A )事件過程是由某個事件觸發而執行的過程B)函數過程的返回值可以有多個C)可以在事件過程中調用通用過程D)不能在事件過程中定義函數過程27 .在窗體上畫3個標簽、3個文本框(名稱分別為Text1、Text2和Text3)和1個命令按鈕 (名稱為Command1 )，編寫如下程序：Private Sub Form_Load()Text1.Text=" ”Text2.Text=" ”Text3.Text=" ”End SubPrivate Sub Command1_Click()x=V

13、al(Text1.Text)y=Val(Text2.Text)Text3.Text=f(x,y)End SubFunction f(ByVal x As Integer,ByVal y As Integer) Do While y<>0tmp=x Mod y x=y y=tmpLoopf=xEnd Function運行程序，在Textl文本框中輸入36,在Text2文本框中輸入24,然后單擊命令按鈕，則在Text3文本框中顯示的內容是A) 4B) 6C) 8|D) 1228 .窗體上有名稱分別為 Text1、Text2的2個文本框，要求文本框Text1中輸入的數據小于500,文本框

14、Text2中輸入的數據小于1000,否則重新輸入。為了實現上述功能，在以下程 序中問號(？)處應填入的內容是Private Sub Text1_LostFocus()Call CheckInput(Text1,500)End SubPrivate Sub Text2_LostFocus()Call CheckInput(Text2,1000)End SubSub CheckInput(tAs ? ,x As Integer)If Val(t.Text)>x ThenMsgBox ”請重新輸入！”End IfEnd SubA) TextB) SelTextC) ControlD) Form

15、29 .在窗體上畫1個文本框，其名稱為Text1,然后編寫如下過程：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)End SubA “鍵，則輸出結果為D) AD程序運行后，把焦點移到文本框中，此時如果敲擊A) A B) A| C) AABC30 .為了使列表框中的項目呈多列顯示，需要設置的屬性為A) Colum

16、ns B) StyleC) ListD) Multiselect31 .在窗體上畫1個命令按鈕，名稱為 Command1,然后編寫如下程序：Dim Flag As BooleanPrivate Sub Command1_Click()Dim intNum As Integer intNum=InputBox(請輸入：”)If Flag ThenPrint f(intNum)End IfEnd SubFunction f(X As Integer) As IntegerIf X<10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub For

17、m_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Flag=TrueEnd Sub運行程序，首先單擊窗體，然后單擊命令按鈕，在輸入對話框中輸入5,則程序的輸出結果為A) 0B)5 |C) 15D) 無任何輸出32.在菜單編輯器中建立1個名稱為Menu0的菜單項，將其“可見“屬性設置為False,并建立其若干子菜單，然后編寫如下過程：Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If

18、 Button=1 ThenPopupMenu Menu0End IfEnd Sub則以下敘述中錯誤的是A)該過程的作用是彈出一個菜?B)單擊鼠標右鍵時彈出菜單0)Menu0是在菜單編輯器中定義的彈出菜單的名稱D) 參數X、Y指明鼠標當前位置的坐標33.窗體上有1個名稱為CD1的通用對話框，1個名稱為Commandl的命令按鈕的單擊事 件過程如下：Private Sub Command1_Click()CD1.FileName=" ”CD1.Filter= "All Files|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt”CD1.FilterIndex=

19、2CD1.Action=1End Sub關于以上代碼，錯誤的敘述是A)執行以上事件過程，通用對話框被設置為“打開“文件對話框B)通用對話框的初始路徑為當前路徑C) 通用對話框的默認文件類型為*.TxtD) 以上代碼不對文件執行讀寫操作6 .下列語句的輸出結果是 【6】 。Print Format(Int(12345.6789 * 100 + 0.5)/100,” 0000,0.00 ”)7 .在窗體上畫1個命令按鈕，其名稱為Command1,然后編寫如下事件過程：thfex.”lsr- lk.estge -.aci- a vaefmad j.esse -g s.al ia a a e d.es

20、sa iways d swaes -la aa1sasase.ie-e a te Tei -itsa - g ts we se tola 1dl i.awa iseif er ceg g -g i v a a d a f el e adi- l rleft y r- -uayegst .一一 g ecg -e-l-i gawae .- 一i-u- a a y. scvyutalyFut -ri ee easere-L-i-y-lsldl-gg f- el c sci-ggef feas- v yg f-eli c - l iqlia-al-l se-1rd eg X a - g - y a e

21、 e-g- O- -. ei ee-s -gafi y -g siasae- le- -i gy - -e - p a -ei g - ei li - - aae y e s v l s- - -e g e g - a y s-r -l-f-esee a-.a-vs-r O- -"l-a-d-H e - el a-e-yidla-iias g -je-v l vlara-ga -ig ss s aes 2 -e-segngslw-Fr-e-s v ge-s.g.f ee -e- - - el a-.- e a aga-e-e-e-l-eed-ssg-.i. fv - eeeyl-d

22、- ea -w-.- a-e-aasl-eea-eedsg- e e Sa -e-a- s s- f-e le e fa- -e a e e fv e a s es -ae - - u- -g.e- w. es- -e -e slte-aPrivate Sub Command1_Click()Dim arr(1 to 100) As IntegerFor i=1 to 100arr(i)=Int(Rnd * 1000)Next iMax=arrMin=arrFor i=1 to 100If【7】arr(I)>max ThenMax=arr(i)End IfIf【8】arr(i)<m

23、in ThenMin=arr(i)End IfNext iPrint Max= "Max, "Min= "MinEnd Sub程序運行后，單擊命令按鈕，將產生 100個1000以內的隨機整數，放入數組arr中，然后查找并輸出這100個數中的最大值 Max和最小值Min ,請填空。8 .在窗體上畫1個名稱為Command1的命令按鈕和2個名稱分別為 Text1、Text2的文本框，然后編寫如下程序：Function Fun(x As Integer,ByVal y As Integer) As Integerx=x+yIf x<0 ThenFun=xElseF

24、un=yEnd IfEnd FunctionPrivate Sub Command1_Click()Dim a As Integer,b As IntegerA=-10:b=5Text1.Text=Fun(a,b)Text2.Text=Fun(a,b)End Sub程序運行后，單擊命令按鈕，Text1和Text2文本框顯示的內容分別是【9】-5 和 5_【10】。9 .在窗體上畫1個命令按鈕和1個文本框，其名稱分別為Command1和Text1 ,然后編寫如下代碼：Dim SaveAll As StringPrivate Sub Command1_Click()Text1.Text=Left(Ucase(SaveAll),4)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)i g awe si c-i iuia ga-scv yutly F utuei，i ee ease一 s>-r cO- k "ik.atdill e iel a i i - idl ja-Iearm . "lvlSaveAll=SaveAll+Chr(KeyAscii) End Sub程序運行后，在文本框中輸入abcdefg,單擊命令按鈕，則