浙江省二级考试VB试题汇总.doc

.省二级考试VB试题汇总（2006年6月）前言：本辅导资料主要在于介绍省二级考试的基本题型和基本考点，所以建议大家在第一遍看本资料时，应认真做好每一题，在遇到不会或不懂的题时，立即到课本中找本题相关的知识点并弄懂这些知识点，然后再来分析此题，以达到对考点各各击破的目的，如此下去便可掌握省二级考试的几乎所有考点，从而可以应付千变万化的考题了。本资料内的考题只是考试题库中的一小部分而已，切不可只做出本资料内各题的答案，而没掌握其考点知识，这将会导致后悔莫及的后果。此外，建议大家在掌握考试题型和考点后，应上机实际操作，尤其对于能力测试题更应已上机练习为主，掌握做题步骤和基本技巧，方可取得理想的成绩。最后预祝大家在省二级考试中取得优异的成绩！第一部分 知识测试题一、选择题（每套试卷有20个选择题，每题1分）1 以下4种描述中，错误的是_。 D A. 常量在程序执行期间其值不会发生改变 B. 根据数据类型不同，常量可分为字符型常量 、数值常量、日期/时间型常量和布尔型常量 C. 符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质 D. 符号常量的使用和变量的使用没有差别2 下面合法的常量是_。 D A. 1/2 B. abcd C. 1.2*5 D. False 3 Visual Basic中可以用类型说明符来标识变量的 C类型，其中表示货币型的是_。d A. % B. # C. D. $ 4 以下关键字中，不能定义变量的是_。 A A. Declare B. Dim C. Public D. Private 5 用十六进制表示Visual Basic的整型常数时，前面要加上的符号是_。 AA) &H B) &O C) H D) O 6 Visual Basic日期常量的定界符是_。 A A. # B. C. () D. 7 数学关系3x10表示成正确的VB表达式为_。 B A. 3=x10 B. 3=x AND x=3 OR x10 D. 3=x AND 108 ，/，Mod，*四个算术运算符中，优先级别最低的是_。 C A. B. / C. Mod D. * 9 下面语句中有非法调用的是_。 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的运算结果分别是_。 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，则表达式 ac AND bc 的值_。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类运算符，优先级最低的是_。 D A. 算术运算符 B. 字符运算符 C. 关系运算符 D. 逻辑运算符 14 已知a=12345678，则表达式Left(a, 4) +Mid(a, 4, 2)的值是_。B A) 123456 B) 123445 C) 123445 D) 1279 15 设有如下的记录类型 Type Student number As String name As String age As Integer End Type 则正确引用该记录类型变量的代码是_。 BA. Student.name=张红 B. Dim s As Student s.name=张红 C. Dim s As Type Stuent D. Dim s As Type s.name=张红 s.name=张红 16 下列程序运行时，从键盘输入字符-，则输出结果是_。 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 下列程序段的运行结果为_。 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. * * * * * * * * *18 执行 PRINT 18/2*3,-32 命令后，输出结果为_。 C A. 3 9 B. 3-9 C. 27 -9 D. -9 2719 执行 PRINT 9.43.7,9.4 MOD 3.7 命令后，输出 A结果为_。 A. 2 1 B. 3 0 C. 2 20 D. 1 220 运行以下程序后，输出结果为_。 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和标签Label1。那么下面关于Print方法的使用中，错误的一条是_。 D A. Picture1.Print 147 B. Print 147 C. Printer.Print 147 D. Label1.Print 147 22 下面的_语句可以实现：先在窗体上输出大写字母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 阅读下面的程序段： n1=InputBox(请输入第一个数：) n2=InputBox(请输入第二个数：) Print n1+n2 当输入分别为111和222时，程序输出为_。 A A. 111222 B. 222 C. 333 D. 程序出错24 语句Print Format (HELLO, ) 的输出结果是_。 B A. HELLO B. hello C. He D. he 25 语句 Print (a=2) And (b=-2) 的输出结果是_。 D A. True B. 结果不确定 C. -1 D. False 26 以下程序段运行后，输出字符的排列顺序是_。 D For i=1 To 6 If i Mod 2=0 Then Print #; Else Print *; End If Next i A. #*#*# B. # C. * D. *#*#*#27 用MSGBOX函数显示的对话框，以下叙述正确的是_。 DA) 该对话框有一个“确定”按钮 B) 该对话框有“是”，“否”两个按钮 C) 该对话框有“是”，“否”，“取消”三个按钮 D) 该对话框通过选择参数可以得到以上不同的的按钮组合 28 与语句Dim abc%作用相同的语句是_。 AA) Dim abc As Integer B) Dim abc As Long C) Dim abc As String D) Dim abc As Date 29 设a=1,b=2,c=3,d=4，则表达式IIf(ab,a,IIf(c 5 Print x 2 + m / 3 End Sub A. 25 B. 45 C. 55 D. 65 44 以下程序段的运行结果是_。 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 Sub A. 33 B. 34 C. 35 D. 36 45 以下程序段的运行结果是_。 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 下面分别是求两个数中的大数的四个程序段，_不正确。 DA) Max=IIf(xy,x,y) B) If xy Then Max=x Else Max=y C) Max=x D) If y=x Then Max=y If y=x Then Max=y Max=x47 下列循环能正常结束的是_。 C A. i=5 B. i=1 DO DO i=i+1 i=i+2 Loop Until i0 Loop Until i=1 48 有如下程序，运行时从键盘输入4，则输出的结果是_。 BPrivate Sub Form_Click() a=InputBox(Enteer a value of a:) Select Case a Case Is2 b=a+1 Case Is3 b=a+2 Case Is5 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 执行如下程序段时，从键盘输入-5，输出的结果是_。 Ax=-5 s=Val(InputBox(请输入s的值:) Select Case s Case Is0 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 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 以下程序段执行后，变量s、x的值分别为 _。 CDim s As Integer, x As Integer s = 10: x = 1 Do While x =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 6 7 8 9 7 8 9 3 6 9 957 在窗体上画一个命令按钮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 程序运行后，单击命令按钮，输出结果是 _。 BA) 11 3B) 3 11 C) 13 3 D) 3 13 58 在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim a(4, 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 程序运行后，单击命令按钮，输出结果是_。 D A. 6 9 B. 7 10 C. 8 11 D. 9 12 7 10 8 11 9 12 10 1359 有如下程序： Private Sub Form_Load() Dim arr1(10, 10) As Integer Dim i, j As Integer 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) c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序运行后，单击命令按钮，输出结果是_。 C A. 89 B. 99 C. 23 D. 7761 下列语句声明的数组a包含的元素个数有_。 ADim a(3 ，-2 to 2，5) A. 120 B. 75 C. 60 D. 13 62 定义数组Array(1 to 5,5)后，下列哪一个数组元素不存在_。 C A. Array(1,1) B. Array(1,0) C. Array(0,1) D. Array(5,5) 63 在Visual Basic应用程序中，以下描述正确的是_。 B A. 过程的定义可以嵌套，但过程的调用不能嵌套 B. 过程的定义不可以嵌套，但过程的调用可以嵌套 C. 过程的定义和过程的调用均可以嵌套 D. 过程的定义和过程的调用均不可以嵌套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 = 4 swapp a, b Print a, b End Sub 程序运行时，单击命令按钮得到的结果是_。 D A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1 65 以下程序的运行结果是_。 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 Sum 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 程序运行时，单击命令按钮得到的结果是_。 A A. 2 4 6 8 B. 5 6 7 8 C. 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可以实现交换两个变量的值的操作，S2不能实现 B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现 C. 用过程S1和S2都可以实现交换两个变量的值的操作 D. 用过程S1和S2都不能实现交换两个变量的值的操作68 在窗体上添加一个命令按钮Command1和两个名称分别为Label1和Label2的标签，在通用声明段声明变量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 + b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是_。BA) 5和3 B) 25和3 C) 25和6 D) 5和6 69 下列程序输出结果为_。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 以下程序的运行结果是_。 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 以下程序的运行结果是_。 CPrivate Sub Form_Click() a = 1: b = 1 Print A=; 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的标签， 然后编写如下事件过程： Private x As Integer Private 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 程序运行后，连续3次单击命令按钮，则3个标签中显示的内容分别是_。 C A. 10 10 10 B. 30 30 30 C. 30 30 10 D. 10 30 30 73 一个工程中包含两个名称分别为Form1和Form2的窗体，一个名称为mdlfunc的标准模块。假定Form1,Form2和mdlfunc中分别建立了自定义过程，其定义格式为： Form1中定义的过程：Private sub frmFunction1() End Sub Form2中定义的过程：Pubilc sub frmFunction2() End Sub Md1func中定义的过程： Public sub md1Function () End Sub 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是_。 D A. 上述三个过程都可以在工程中的任何窗体或模块中被调用 B. frmFunction2和md1Function过程能够在工程中各个窗体或模块中被调用 C. 上述三个过程都只能在各自被定义的模块中调用 D. 只有md1Function过程能够被工程中各个窗体或模块调用 74 以下程序段的运行结果是_。 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 下列程序运行后显示的结果是_。 APublic Sub F1(n%,ByVal 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 以下关于窗体的描述中，错误的是_。 A A. 执行Unload Form1语句后，窗体Form1消失，但仍在内存中 B. 窗体的load事件在加载窗体时发生 C. 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 D. 窗体的Height、Width属性用于设置窗体的高和宽 77 若要使某命令按钮获得控制焦点，则可使用_方法来设置。B A. Refresh B. SetFocus C. GotFocus D. Value 78 设组合框Combo1中有3个项目，则能删除最后一个项的语句是_。B A. Combo1.RemoveItem Text B. Combo1.RemoveItem 2 C. Combo1.RemoveItem 3 D. Combo1.RemoveItem Combo1.Listcount 79 将数据项China添加到列表框List1中，成为第一项应使用语句_。A A. List1.AddItem China, 0 B. List1.AddItem China, 1 C. List1.AddItem 0, China D. List1.AddItem 1, China 80 假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，计算机将发出_次Beep声。 DPrivate Sub Timer1_Timer() For i = 1 To 5 Beep Next i End Sub A. 1000次 B. 10000次 C. 5次 D. 以上都不对 81 将命令按钮Command1的标题作为文本框Text1的文本内容，应执行语句_。 B A. Text1= Command1 B. Text1.Text= Command1.Caption C. Text1.Caption=Command1.Caption D. Text1.Text= CStr(Command1) 82 下列控件可以用作其他控件容器的有_。 D A. 窗体，标签，图片框 B. 窗体，框架，文本框 C. 窗体，图像，列表框 D. 窗体，框架，图片框 83 改变驱动器列表框的Drive属性将激活_事件。 AA) Change B) Scroll C) KeyDown D) KeyUp 84 在窗体上添加一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load() List1.AddItem 357