省二级考试VB试题汇总
44 以下程序段的运行结果是_______。 A
Private Sub Form_Click() Dim s As Long, f As Long
Dim n As Integer, i As Integer f = 1 本题主要方法是一步步执行程序语句，每一步都记 n = 4 录下当前各个变量的值，尤其是后面输出的变量s For i = 1 To n 的值（其间注意各个变量值的变化） f = f * i 其实，如果记得教材例题就会知道：s是累加f的值， s = s + f 而f又是当前i的阶乘值，因此本题是计算1到4的 Next i 阶乘值，并逐个累加 Print \End Sub
A. 33 B. 34 C. 35 D. 36 45 以下程序段的运行结果是_______。 A Private Sub Form_Click()
Str( )函数，是把数值类型转换为字符串 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 下面分别是求两个数中的大数的四个程序段，_______不正确。 D
A. 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=x 第一行为if语句，执行完该语句，仍47 下列循环能正常结束的是_______。 C
要对变量max赋值，则max的值与if A. i=5 B. i=1
语句无关 DO DO i=i+1 i=i+2
Loop Until i<0 Loop Until i=10 C. i=10 D. i=6
Until作为条件关键词，则，条件符合就 DO DO
退出循环； i=i+1 i=i-2
Loop Until i>0 Loop Until i=1
48 有如下程序，运行时从键盘输入4，则输出的结果是_______。 B
Private Sub Form_Click() a=InputBox(\Select case语句中a所处位置应该是一个表达式，而 Select Case a 下面Case后应该是这个表达式可能的结果； Case Is>2 哪一个Case后的表达式是a的运算结果（或符合Is条 b=a+1 件），则执行该Case分支的语句。 Case Is>3 由上至下进行比较，一旦符合条件，执行相关分之后， b=a+2 直接退出Select case语句，不再比较余下的各个条件。 Case Is>5
第 6 页 共 74 页
省二级考试VB试题汇总
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，输出的结果是_______。 A
x=-5
s=Val(InputBox(\请输入s的值:\ Select Case 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年时四年的植树总面积的程序是_______。 B
A. 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的值分别为 _______。 C
Dim 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. 50 11 B. 20 10 C. 20 11 D. 100 10 52 以下程序段的执行结果是_______。 A
For i=1 To 4 x=2
第 7 页 共 74 页
省二级考试VB试题汇总
For j=1 To 3 x=1 对于任何变量，它当前的值就是目前为止最后一次对它赋予的值， For k=1 To 2 之前不论赋值多少次都不用关心；在此说明上面那句x=2根本就对 x=x+3 x的最终值无甚影响； Next k 此时，假设外层执行到i=4 循环；内层执行到j=3循环，则，接下 Next j 来执行最后一轮的k循环，k=1 时，x=x+3=4 , k=2时，x=x+3=7，Next i 接着退出j循环，退出i循环，所以打印x的时候，为7 Print x
A. 7 B. 6 C. 56 D. 72
53 用语句 Dim A(-3 to 5) As Long 定义的数组元素个数是_______。 C A. 7 B. 8 C. 9 D. 10 54 以下程序运行的结果是_______。 D Dim a
Lbound( )函数和Ubound( )函数的参数都是数组a=Array(1, 3, 4, 5, 6, 7)
类型，分别返回数组的最小下标值和最大下标For i = LBound(a) To UBound(a) 值！对应的是数组的下标下界和上界 a(i) = a(i) * a(i) Next i
Print a(i)
A. 49 B. 0 C. 不确定 D. 下标越界 55 在窗体上添加一个命令按钮Command1，然后编写如下代码：
Private Sub Command1_Click() Dim city As Variant
city = Array(\北京\上海\天津\重庆\ 数组city（）的最小下标为默认值，就是0； Print city(1)
End Sub
程序运行后，单击命令按钮，输出结果是_______。 D
A. 空白 B. 错误提示 C. 北京 D. 上海 56 以下程序运行的结果是_______。 D Option Base 1 设置各个数组的默认最小下标值为1 Private Sub Command1_Click() Dim a,b(3,3)
i 是数组元素的行, j是数组元素的列，j>=i时执行print（也 a=array(1,2,3,4,5,6,7,8,9) 就是输出该数组元素值），则，j 小于行的号码时候,不输出该元素,也就是只输出二维数组对 For j=1 To 3 角线及上方的数组元素 b(i,j)=a(i*j) If (j>=i) Then Print Tab(j*3);Format(b(i,j),\; Next j Print语句后面什么都不带，就是输出空行。 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 9 57 在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim arr1(10), arr2(10) As Integer 第 8 页 共 74 页 省二级考试VB试题汇总 n = 3 For i = 1 To 5 n一直都是3；本语句就是对数组 arr1(i) = i arr2的下标为3的元素赋值； arr2(n) = 2 * n + i Next i 分别输出两个数组的下标为3的元素; Print arr1(n),arr2(n); End Sub 程序运行后，单击命令按钮，输出结果是 _______。 B A. 11 3B. 3 11 C. 13 3 D. 3 13 58 在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim a(4, 4) 这里i在j的前面，i代表行号，j代表列号 For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i 这里i在j的后，j代表行号，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 13 59 有如下程序： 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 i是数组元素的行号,j是数组元素的列号;i和j又分 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) 第 9 页 共 74 页 省二级考试VB试题汇总 For i = 1 To 5 If x(i) > c Then 60题 这类试题没有好方法，就是代入值，读程序 d = d + x(i) x(i)>c 在if c = x(i) i （这个表达式语句中 Else 的 的值决定了在c d x(i) 执行的 d = d - c 值 if语句中到底分支 End If 执行哪个分支） Next i 1 FALSE部分 Else 10 -10 10 Print d 2 TRUE部分 Then 12 2 12 End Sub 3 TRUE部分 Then 21 23 21 4 TRUE部分 Then 32 55 32 5 FALSE部分 else 32 23 24 程序运行后，单击命令按钮，输出结果是_______。 C A. 89 B. 99 C. 23 D. 77 因为默认的最小下标为0 这个三维数组可以认为,有4个二 维数组;每个二维数组有5个一维61 下列语句声明的数组a包含的元素个数有_______。 A 数组,每个一维数组有6个元素 Dim 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 a 和 b 是实参,swapp运行时a和b的值将被改变 Print a, b End Sub 程序运行时，单击命令按钮得到的结果是_______。 D A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1 65 以下程序的运行结果是_______。 C 第 10 页 共 74 页