发布时间 : 星期五 文章vb二级模拟题汇总更新完毕开始阅读
省二级考试VB试题汇总
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 以下程序段的运行结果是_______。 A
Private 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 \End Sub
A. 33 B. 34 C. 35 D. 36 45 以下程序段的运行结果是_______。 A
Private Sub Form_Click() a = 1 b = a Do Until a >= 5 X = a * b
Print Str(a) & \ 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 47 下列循环能正常结束的是_______。 C 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 DO DO i=i+1 i=i-2
第 5 页 共 50 页
省二级考试VB试题汇总
Loop Until i>0 Loop Until i=1
48 有如下程序，运行时从键盘输入4，则输出的结果是_______。 B
Private Sub Form_Click()
a=InputBox(\ 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 执行如下程序段时，从键盘输入-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
第 6 页 共 50 页
省二级考试VB试题汇总
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
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 定义的数组元素个数是_______。 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
第 7 页 共 50 页
C
省二级考试VB试题汇总
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() 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 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
第 8 页 共 50 页
D. 9 12 10 13