省二级考试VB试题汇总
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
第 6 页 共 50 页
省二级考试VB试题汇总
For j=1 To 3 x=1 For k=1 To 2 x=x+3 Next k Next j Next i
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
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(\北京\上海\天津\重庆\ Print city(1) End Sub
程序运行后，单击命令按钮，输出结果是_______。 D
A. 空白 B. 错误提示 C. 北京 D. 上海 56 以下程序运行的结果是_______。 D
Option 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 3 b(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 6 7 8 9 7 8 9 3 6 9 9 57 在窗体上画一个命令按钮Command1，然后编写如下代码：
Private Sub Command1_Click()
第 7 页 共 50 页
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
程序运行后，单击命令按钮，输出结果是 _______。 B
A) 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. 7 10 8 11 9 12 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 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)
第 8 页 共 50 页
省二级考试VB试题汇总
9 12 10 13 省二级考试VB试题汇总
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. 77
61 下列语句声明的数组a包含的元素个数有_______。 A
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 Print a, b End Sub
程序运行时，单击命令按钮得到的结果是_______。 D A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1
65 以下程序的运行结果是_______。 C
Function fun(a As Integer) b = 0 Static c b = b + 1 c = c + 1
第 9 页 共 50 页
省二级考试VB试题汇总
fun = a + b + c End 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都不能实现交换两个变量的值的操作
第 10 页 共 50 页