江蘇省計算機二級考試VB試題分類匯總及答案

1、（2006.6月）前言：本輔導(dǎo)資料主要在于介紹省二級考試的基本題型和基本考點，所以建議大家在第一遍看本資料時，應(yīng)認真做好每一題，在遇到不會或不懂的題時，立即到課本中找本題相關(guān)的知識點并弄懂這些知識點，然后再來分析此題，以達到對考點各各擊破的目的，如此下去便可掌握省二級考試的幾乎所有考點，從而可以應(yīng)付千變?nèi)f化的考題了。本資料內(nèi)的考題只是考試題庫中的一小部分而已，切不可只做出本資料內(nèi)各題的答案，而沒掌握其考點知識，這將會導(dǎo)致后悔莫及的后果。此外，建議大家在掌握考試題型和考點后，應(yīng)上機實際操作，尤其對于能力測試題更應(yīng)已上機練習(xí)為主，掌握做題步驟和基本技巧，方可取得理想的成績。最后預(yù)祝大家在省二級考試

2、中取得優(yōu)異的成績！第一部分 知識測試題一、選擇題（每套試卷有20個選擇題，每題1分）1 以下4種描述中，錯誤的是_。 D A. 常量在程序執(zhí)行期間其值不會發(fā)生改變 B. 根據(jù)數(shù)據(jù)類型不同，常量可分為字符型常量 、數(shù)值常量、日期/時間型常量和布爾型常量 C. 符號常量是用一個標(biāo)識符來代表一個常數(shù)，好象是為常數(shù)取一個名字，但仍保持常數(shù)的性質(zhì) D. 符號常量的使用和變量的使用沒有差別2 下面合法的常量是_。 D A. 1/2 B. 'abcd' C. 1.2*5 D. False 3 Visual Basic中可以用類型說明符來標(biāo)識變量的 C類型，其中表示貨幣型的是_。 A. % B

3、. # C. D. $ 4 以下關(guān)鍵字中，不能定義變量的是_。 A A. Declare B. Dim C. Public D. Private 5 用十六進制表示Visual Basic的整型常數(shù)時，前面要加上的符號是_。 AA) &H B) &O C) H D) O 6 Visual Basic日期常量的定界符是_。 A A. # B. C. () D. 7 數(shù)學(xué)關(guān)系3x<10表示成正確的VB表達式為_。 B A. 3<=x<10 B. 3<=x AND x<10 C. x>=3 OR x<10 D. 3<=x AND <

4、;108 ，/，Mod，*四個算術(shù)運算符中，優(yōu)先級別最低的是_。 C A. B. / C. Mod D. * 9 下面語句中有非法調(diào)用的是_。 C A. x=SGN(-1) B. x=FIX(-1) C. x=SQR(-1) D. x$=CHR$(65) 10 表達式23/5.8、235.8、23 Mod 5.8的運算結(jié)果分別是_。 B A. 3、3.9655、3 B. 3.9655、3、5 C. 4、4、5 D. 3.9655、4、3 11 如果變量 a=2、b="abc"、c="acd"、d=5，則表達式 a<d OR b>c AND b

5、<>c 的值_。A A. True B. False C. Yes D. No 12 為了給x,y,z三個變量賦初值1，下面正確的賦值 A語句是_。 A) x=1y=1z=1 B) x=1,y=1,z=1 C) x=y=z=1 D) xyz=1 13 以下4類運算符，優(yōu)先級最低的是_。 D A. 算術(shù)運算符 B. 字符運算符 C. 關(guān)系運算符 D. 邏輯運算符 14 已知a="12345678"，則表達式Left(a, 4) +Mid(a, 4, 2)的值是_。B A) 123456 B) "123445" C) 123445 D) 1279

6、 15 設(shè)有如下的記錄類型 Type Student number As String name As String age As Integer End Type 則正確引用該記錄類型變量的代碼是_。 BA. S="張紅" B. Dim s As Student ="張紅" C. Dim s As Type Stuent D. Dim s As Type ="張紅" ="張紅" 16 下列程序運行時，從鍵盤輸入字符"-"，則輸出結(jié)果是_

7、。 APrivate Sub Form_Click() op$=InputBox("op=") If op$="+" Then a=a+2 If op$="-" Then a=a-2 Print a End Sub A. -2 B. 0 C. +2 D. +0 17 下列程序段的運行結(jié)果為_。 BFor i=3 To 1 Step -1 Print Space(5-i); For j=1 To 2*i-1 Print "*" Next j Print Next i A. * B. * C. * D. * * * *

8、 * * * * *18 執(zhí)行 PRINT 18/2*3,-32 命令后，輸出結(jié)果為_。 C A. 3 9 B. 3-9 C. 27 -9 D. -9 2719 執(zhí)行 PRINT 9.43.7,9.4 MOD 3.7 命令后，輸出 A結(jié)果為_。 A. 2 1 B. 3 0 C. 2 20 D. 1 220 運行以下程序后，輸出結(jié)果為_。 Cx%=1/4y%=11/4 PRINT x%;y% END A. 0.25 0.75 B. 0 2 C. 0 3 D. 1 3 21 窗體里有兩個對象，分別是圖片框Picture1和標(biāo)簽Label1。那么下面關(guān)于Print方法的使用中，錯誤的一條是_。 D

9、A. Picture1.Print 147 B. Print 147 C. Printer.Print 147 D. Label1.Print 147 22 下面的_語句可以實現(xiàn)：先在窗體上輸出大寫字母A，然后在同一行的第10列輸出小寫字母b。 B A. Print "A"Tab(9);"b" B. Print"A"Spc(8);"b" C. Print "A"Space(10);"b" D. Print"A"Tab(8);"b" 23

10、 閱讀下面的程序段： n1=InputBox("請輸入第一個數(shù)：") n2=InputBox("請輸入第二個數(shù)：") Print n1+n2 當(dāng)輸入分別為111和222時，程序輸出為_。 A A. 111222 B. 222 C. 333 D. 程序出錯24 語句Print Format ("HELLO", "<") 的輸出結(jié)果是_。 B A. HELLO B. hello C. He D. he 25 語句 Print (a=2) And (b=-2) 的輸出結(jié)果是_。 D A. True B. 結(jié)果不確定

11、 C. -1 D. False 26 以下程序段運行后，輸出字符的排列順序是_。 DFor i=1 To 6 If i Mod 2=0 Then Print "#"Else Print "*"End If Next i A. #*#*# B. # C. * D. *#*#*#27 用MSGBOX函數(shù)顯示的對話框，以下敘述正確的是_。 DA) 該對話框有一個“確定”按鈕 B) 該對話框有“是”，“否”兩個按鈕 C) 該對話框有“是”，“否”，“取消”三個按鈕 D) 該對話框通過選擇參數(shù)可以得到以上不同的的按鈕組合 28 與語句Dim abc%作用相同的語句

12、是_。 AA) Dim abc As Integer B) Dim abc As Long C) Dim abc As StringD) Dim abc As Date 29 設(shè)a=1,b=2,c=3,d=4，則表達式IIf(a<b,a,IIf(c<d,a,d)的結(jié)果為_。 D A. 4 B. 3 C. 2 D. 1 30 表達式Int(198.555*100+0.5)/100的值為 _。 C A. 198 B. 199.6 C. 198.56 D. 200 31 要使變量x賦值為1100間（含1，不含100）的一個隨機整數(shù)，正確的語句是_。D A. x=Int(100*Rnd)

13、B. x=Int(101*Rnd) C. x=1+Int(100*Rnd) D. x=1+Int(99*Rnd) 32 Visual Basic表達式 Cos(0)+Abs(1)+Int(Rnd(1)的值是_。 D A. 1 B. -1 C. 0 D. 2 33 表達式Int(5*Rnd+1)* Int(5*Rnd-1) 值的范圍是_。 D A. 0,15 B. -1,15 C. -4,15 D. -5,15 34 當(dāng)函數(shù)MsgBox返回值為1，對應(yīng)的符號常量是 vbOK，那么此時表示用戶做的操作是_。 A A. 用戶單擊了對話框中的“確定”按鈕 B. 用戶單擊了對話框中的“取消”按鈕 C.

14、用戶單擊了對話框中的“是”按鈕 D. 用戶單擊了對話框中的“否”按鈕 35 在Visual Basic中，InputBox函數(shù)的默認返回值類型為字符串，用InputBox函數(shù)輸入數(shù)值型數(shù)據(jù)時，下列操作中可以有效防止程序出錯的操作是_。 A A. 事先對要接收的變量定義為數(shù)值型 B. 在函數(shù)InputBox前面使用Str函數(shù)進行類型轉(zhuǎn)換 C. 在函數(shù)InputBox前面使用Value函數(shù)進行類型轉(zhuǎn)換 D. 在函數(shù)InputBox前面使用String函數(shù)進行類型轉(zhuǎn)換 36 表達式Len("123程序設(shè)計ABC")的值是_。 AA. 10 B. 14 C. 20 D. 17 37

15、 賦值語句g = 123 + Mid("123456", 3, 2)執(zhí)行后，變量g中的值是_。 DA） "12334" B） 123C） 12334 D） 157 38 如果x是一個正實數(shù)，對x的第3位小數(shù)四舍五入的表達式是_。B * Int(x + 0.005) B. 0.01 * Int(100 * (x + 0.005) C. 0.01 * Int(100 * (x + 0.05) D. 0.01 * Int(x + 0.05)39 MsgBox函數(shù)的返回值的類型是_。 AA） 整數(shù)B） 字符串C）邏輯值 D） 日期40 使用下列語句：Dim x(

16、1 to 10,3) As Single，則數(shù)組占用內(nèi)存空間的字節(jié)數(shù)是_。 C A. 132 B. 80 C. 160 D. 120 41 若x=1，執(zhí)行語句If x Then x = 0 Else x = 1的結(jié)果是_。 D A. 實時錯誤 B. 編譯錯誤 C. x=1 D. x=042 下列程序段的循環(huán)結(jié)構(gòu)執(zhí)行后，i的輸出值是_。 CDim y as IntegerFor i = 1 To 10 Step 2 y = y + i Next iPrint i A) 25 B) 10 C) 11 D) 因為y初值不知道，所以不確定43 以下程序段的運行結(jié)果是_。 DPrivate Sub Fo

17、rm_Click() x = 5 m = 1 n = 1 Do m = m * n n = n + 1 Loop Until n > 5 Print x 2 + m / 3 End Sub A. 25 B. 45 C. 55 D. 65 44 以下程序段的運行結(jié)果是_。 APrivate Sub Form_Click() Dim s As Long, f As Long Dim n As Integer, i As Integer f = 1 n = 4 For i = 1 To n f = f * i s = s + f Next i Print "s=" sEnd

18、 Sub A. 33 B. 34 C. 35 D. 36 45 以下程序段的運行結(jié)果是_。 APrivate Sub Form_Click() a = 1 b = a Do Until a >= 5 X = a * b Print Str(a) & "*" & Str(b) & "=" Str(X); a = a + b b = b + a Loop End Sub A. 1*1=1 2*3=6 B. 1*1=2 2*2=4 C. 1*1=1 3*3=9 D. 1*1=2 3*2=6 46 下面分別是求兩個數(shù)中的大數(shù)的四個程

19、序段，_不正確。 DA) Max=IIf(x>y,x,y)B) If x>y Then Max=x Else Max=y C) Max=x D) If y>=x Then Max=y If y>=x Then Max=y Max=x47 下列循環(huán)能正常結(jié)束的是_。 C A. i=5 B. i=1 DO DO i=i+1 i=i+2 Loop Until i<0Loop Until i=10 C. i=10 D. i=6 DO DO i=i+1 i=i-2 Loop Until i>0Loop Until i=1 48 有如下程序，運行時從鍵盤輸入4，則輸出的

20、結(jié)果是_。 BPrivate Sub Form_Click() a=InputBox("Enteer a value of a:") Select Case a Case Is>2 b=a+1 Case Is>3 b=a+2 Case Is>5 b=a+3 Case Else b=a+4 End Select Print a;b End Sub A. 4 4 B. 4 5 C. 4 6 D. 4 7 49 執(zhí)行如下程序段時，從鍵盤輸入-5，輸出的結(jié)果是_。 Ax=-5 s=Val(InputBox("請輸入s的值:") Select C

21、ase s Case Is>0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x;y A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5 50 某林場1995年植樹100畝，以后每年的植樹面積按5%的速度增長，能正確計算到1998年時四年的植樹總面積的程序是_。 BA. s=100:r=0.05 B. s=100:sum=100:r=0.05 For i=1996 To 1998 For i=1996 To 1998 s=s*(1+r)s=s*(1+r) Next i sum=sum+s Print i

22、Next i End Print sum C. s=100:r=0.05 D. s0=100:sum=100:r=0.05 For i=1996 To 1998 For i=1996 To 1998 s=s*(1+r)+s s=s0*(1+r) Next i sum=sum+s Print i Next i End Print sum 51 以下程序段執(zhí)行后，變量s、x的值分別為 _。 CDim s As Integer, x As Integer s = 10: x = 1 Do While x < 10 s = s + 2 x = x + 2 Loop Print s, x A. 5

23、0 11 B.20 10 C. 20 11 D. 100 10 52 以下程序段的執(zhí)行結(jié)果是_。 AFor i=1 To 4 x=2 For j=1 To 3 x=1 For k=1 To 2 x=x+3 Next k Next j Next iPrint x A. 7 B. 6 C. 56 D. 72 53 用語句 Dim A(-3 to 5) As Long 定義的數(shù)組元素個數(shù)是_。 C A. 7 B. 8 C. 9 D.10 54 以下程序運行的結(jié)果是_。 DDim a a=Array(1, 3, 4, 5, 6, 7) For i = LBound(a) To UBound(a) a(

24、i) = a(i) * a(i) Next iPrint a(i) A) 49 B) 0 C) 不確定 D) 下標(biāo)越界 55 在窗體上添加一個命令按鈕Command1，然后編寫如下代碼： Private Sub Command1_Click() Dim city As Variant city = Array("北京", "上海", "天津", "重慶") Print city(1)End Sub 程序運行后，單擊命令按鈕，輸出結(jié)果是_。 D A. 空白 B. 錯誤提示 C. 北京 D. 上海 56 以下程序運行的

25、結(jié)果是_。 DOption Base 1 Private Sub Command1_Click() Dim a,b(3,3) a=array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3b(i,j)=a(i*j)If (j>=i) Then Print Tab(j*3);Format(b(i,j),"# # #"); Next j Print Next i End Sub A. 1 2 3 B. 1 C. 1 4 7 D.1 2 3 4 5 6 4 5 2 4 6 4 67 8 97 8 93 6 9 957 在窗體上畫一個

26、命令按鈕Command1，然后編寫如下代碼： Private Sub Command1_Click() Dim arr1(10), arr2(10) As Integer n = 3 For i = 1 To 5 arr1(i) = i arr2(n) = 2 * n + i Next i Print arr1(n),arr2(n); End Sub 程序運行后，單擊命令按鈕，輸出結(jié)果是 _。 BA) 11 3B) 3 11 C) 13 3 D) 3 13 58 在窗體上畫一個命令按鈕Command1，然后編寫如下代碼： Private Sub Command1_Click() Dim a(4

27、, 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub 程序運行后，單擊命令按鈕，輸出結(jié)果是_。 D A. 6 9 B. 7 10 C. 8 11 D. 9 12 7 10 8 11 9 1210 1359 有如下程序： Private Sub Form_Load() Dim arr1(10, 10) As Integer Dim i, j As Integ

28、er For i = 1 To 3 For j = 2 To 4 arr1(i, j) = i + j Next j Next i Text1.Text = arr1(2, 3) + arr1(3, 4) End Sub 程序運行后，單擊窗體，在文本框顯示的值是_。 C A. 5 B. 7 C. 12 D. 20 60 在窗體上添加一個命令按鈕Command1，然后編寫如下代碼： 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

29、) > c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序運行后，單擊命令按鈕，輸出結(jié)果是_。 C A. 89 B. 99 C. 23 D. 7761 下列語句聲明的數(shù)組a包含的元素個數(shù)有_。 ADim a(3 ，-2 to 2，5) A. 120 B. 75 C. 60 D. 13 62 定義數(shù)組Array(1 to 5,5)后，下列哪一個數(shù)組元素不存在_。 C A. Array(1,1) B. Array(1,0) C. Array(0,1) D. Array(5,5) 63 在Vi

30、sual Basic應(yīng)用程序中，以下描述正確的是_。 B A. 過程的定義可以嵌套，但過程的調(diào)用不能嵌套 B. 過程的定義不可以嵌套，但過程的調(diào)用可以嵌套 C. 過程的定義和過程的調(diào)用均可以嵌套 D. 過程的定義和過程的調(diào)用均不可以嵌套64 假定有如下的Sub過程： Sub swapp(x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗體上添加一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5: b

31、 = 4 swapp a, b Print a, b End Sub 程序運行時，單擊命令按鈕得到的結(jié)果是_。 D A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1 65 以下程序的運行結(jié)果是_。 CFunction fun(a As Integer) b = 0 Static c b = b + 1 c = c + 1 fun = a + b + cEnd Function Private Sub Command1_Click() Dim a As Integer a = 2 For i = 1 To 3 Sum = Sum + fun(a) Next i Print Su

32、m End Sub A. 24 B. 12 C. 15 D. 32 66 閱讀程序： Sub subp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8 subp a For i = 1 To 4 Print a(i); Next i End Sub 程序運行時，單擊命令按鈕得到的結(jié)果是_。 A A. 2 4 6 8 B. 5 6 7 8 C.

33、 10 12 14 16 D. 出錯 67 假定有以下兩個過程： Sub s1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t End Sub Sub s2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = t End Sub 則以下說法中正確的是_。 B A. 用過程S1可以實現(xiàn)交換兩個變量的值的操作，S2不能實現(xiàn) B. 用過程S2可以實現(xiàn)交換兩個變量的值的操作，S1不能實現(xiàn) C. 用過程S1和S2都可以實現(xiàn)交換兩個變量

34、的值的操作 D. 用過程S1和S2都不能實現(xiàn)交換兩個變量的值的操作68 在窗體上添加一個命令按鈕Command1和兩個名稱分別為Label1和Label2的標(biāo)簽，在通用聲明段聲明變量x,并編寫如下事件過程和SUB過程：Private x As Integer Private Sub Command1_Click() x = 5: y = 3 Call proc(x, y) Label1.Caption = x Label2.Caption = y End Sub Sub proc(ByVal a As Integer, ByVal b As Integer) x = a * a y = b +

35、 b End Sub 程序運行后，單擊命令按鈕，則兩個標(biāo)簽中顯示的內(nèi)容分別是_。BA) 5和3 B) 25和3 C) 25和6 D) 5和6 69 下列程序輸出結(jié)果為_。APrivate Sub Command1_Click() For i = 1 To 3 GetValue (i) Next i Print GetValue(i) End Sub Private Function GetValue(ByVal a As Integer) dim S As Integer S = S + a GetValue = SEnd Function A. 4 B. 5 C. 10 D. 11 70 以

36、下程序的運行結(jié)果是_。 CDim x As Integer, y As Integer, z As Integer Sub s2(a As Integer, ByVal b As Integer) a = 2 * a b = b + 2 End Sub Private Sub Command1_Click() x = 4 y = 4 Call s2(x, y) Print x + y End Sub A) 0 B) 8 C) 12 D) 14 71 以下程序的運行結(jié)果是_。 CPrivate Sub Form_Click() a = 1: b = 1 Print "A="

37、a; "B=" b Call mult(a, b) Print "A=" a; "B=" b End Sub Sub mult(x, y) x = 2 * x y = 3 * y End Sub A. A=1 B=1 B. A=1 B=1 C. A=1 B=1 D. A=1 B=1 A=1 B=1 A=1 B=3 A=2 B=3 A=2 B=1 72 在窗體上添加一個命令按鈕Command1和3個名稱分別為Label1，Label2和Label3的標(biāo)簽， 然后編寫如下事件過程： Private x As Integer Private

38、 Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 程序運行后，連續(xù)3次單擊命令按鈕，則3個標(biāo)簽中顯示的內(nèi)容分別是_。 C A. 10 10 10 B. 30 30 30 C. 30 30 10 D. 10 30 30 73 一個工程中包含兩個名稱分別為Form1和Form2的窗體，一個名稱為mdlfunc的標(biāo)準(zhǔn)模塊。假定For

39、m1,Form2和mdlfunc中分別建立了自定義過程，其定義格式為： Form1中定義的過程：Private sub frmFunction1() End Sub Form2中定義的過程：Pubilc sub frmFunction2() End Sub Md1func中定義的過程： Public sub md1Function () End Sub 在調(diào)用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是_。 D A. 上述三個過程都可以在工程中的任何窗體或模塊中被調(diào)用 B. frmFunction2和md1Function過程能夠在工程中各個窗體或模塊中被調(diào)用 C. 上述

40、三個過程都只能在各自被定義的模塊中調(diào)用 D. 只有md1Function過程能夠被工程中各個窗體或模塊調(diào)用 74 以下程序段的運行結(jié)果是_。 BFunction abc(n As Integer) As Integer abc = n * 5 + 10 End Function Private Sub Form_Click() Dim x As Integer x = abc(234) + 109 * abc(10) Print x End Sub A. 7700 B. 7720 C. 2340 D. 7770 75 下列程序運行后顯示的結(jié)果是_。 APublic Sub F1(n%,ByVa

41、l m%)Private Sub Command1_Click() n=n Mod 10Dim x%,y% m=m10x=12:y=34 End Sub Call F1(x,y) Print x,y End Sub A. 2 34 B. 12 34 C. 2 3 D. 12 3 76 以下關(guān)于窗體的描述中，錯誤的是_。 A A. 執(zhí)行Unload Form1語句后，窗體Form1消失，但仍在內(nèi)存中 B. 窗體的load事件在加載窗體時發(fā)生 C. 當(dāng)窗體的Enabled屬性為False時，通過鼠標(biāo)和鍵盤對窗體的操作都被禁止 D. 窗體的Height、Width屬性用于設(shè)置窗體的高和寬 77 若要使某命令按鈕獲得控制焦點，則可使用_方法來設(shè)置。B A. Refresh B. SetFocus C. GotFocus D. Value 78 設(shè)組合框Combo1中有3個項目，則能刪除最后一個項的語句是_。B A. Combo1.RemoveItem Text B. Combo1.RemoveItem 2 C. Combo1.RemoveItem 3 D. Combo1.RemoveItem Co