省二级考试VB试题汇总
VB上机试题汇总
（注释版）
资料
说明
关于失联党员情况说明岗位说明总经理岗位说明书会计岗位说明书行政主管岗位说明书
：
本资料是由历届同学从历年二级模拟考试系统、课后习题、实验课本习题中辛苦整理、积累下来的典型题目。基本上可以代表省二级VB考试的考试知识点、难度。对于考生二级VB的同学极具参考价值，推荐同学们细细研读。
资料使用方法：
1. 看到相关题目就要联想所涉及的知识点，如果不很明白，就要察看教材，复习这些知识点，只有掌握了相应知识点才能真正应付考试中灵活多变的题目（当然还要能融汇贯通这些知识点）；
2. 对于附有答题解释的题目，最好先不要看答案，自己
分析
定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析
过后再对照查看自己思路是否正确；
3. 切忌只看原体答案，不作总结，经常总结题目所涉及的知识点以及完成某任务（功能）的方法是非常重要的学习方法；一定不要死记硬背！
4. 本资料对题目进行了大量注释，帮助同学理解；有些题目考点、方法相同，只在靠前的题目作了解释，因此，最好顺序向下看。
一、选择题
1 以下4种描述中，错误的是_______。 D
A. 常量在程序执行期间其值不会发生改变
B. 根据数据类型不同，常量可分为字符型常量 、数值常量、日期/时间型常量和布尔型常量
C. 符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质
D. 符号常量的使用和变量的使用没有差别
2 下面合法的常量是_______。 D
A. 1/2 B. 'abcd' C. 1.2*5 D. False
3 Visual Basic中可以用类型说明符来标识变量的类型，其中表示货币型的是_______。 C
A. % B. # C. @ D. $
4 以下关键字中，不能定义变量的是_______。 A
A. Declare B. Dim C. Public D. Private
5 用十六进制表示Visual Basic的整型常数时，前面要加上的符号是_______。 A
A. &H B. &O C. H D. O
6 Visual Basic日期常量的定界符是_______。 A
A. ## B. ‘’ C. () D. {}
7 数学关系3≤x<10表示成正确的VB表达式为_______。 B
A. 3<=x<10 B. 3<=x AND x<10
C. x>=3 OR x<10 D. 3<=x AND <10
8 \，/，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、23\5.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，则表达式 a
c AND b<>c 的值_______。A
A. True B. False C. Yes D. No
12 为了给x,y,z三个变量赋初值1，下面正确的赋值 A
语句是_______。
A. x=1∶y=1∶z=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
则正确引用该记录类型变量的代码是_______。 B
A. 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 下列程序运行时，从键盘输入字符"-"，则输出结果是_______。 A
Private 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 下列程序段的运行结果为_______。 B
For 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,-3^2 命令后，输出结果为_______。 C
A. 3 9 B. 3-9
C. 27 -9 D. -9 27
19 执行 PRINT 9.4\3.7,9.4 MOD 3.7 命令后，输出 A
结果为_______。
A. 2 1 B. 3 0 C. 2 20 D. 1 2
20 运行以下程序后，输出结果为_______。 C
x%=1/4
y%=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函数显示的对话框，以下叙述正确的是_______。 D
A. 该对话框有一个“确定”按钮
B. 该对话框有“是”，“否”两个按钮
C. 该对话框有“是”，“否”，“取消”三个按钮
D. 该对话框通过选择参数可以得到以上不同的的按钮组合
28 与语句Dim abc%作用相同的语句是_______。 A
A. 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(a
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
ABC")的值是_______。 A
A. 10 B. 14 C. 20 D. 17
37 赋值语句g = 123 + Mid("123456", 3, 2)执行后，变量g中的值是_______。 D
A） "12334" B） 123C） 12334 D） 157
38 如果x是一个正实数，对x的第3位小数四舍五入的表达式是_______。B
A. 0.01 * 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函数的返回值的类型是_______。 A
A） 整数 B） 字符串 C）逻辑值 D） 日期
40 使用下列语句：Dim x(1 to 10,3) As Single，则数组占用内存空间的字节数是_______。 C
A. 132 B. 80 C. 160 D. 120
41 若x=1，执行语句If x Then x = 0 Else x = 1的结果是_______。 D
A. 实时错误 B. 编译错误 C. x=1 D. x=0
42 下列程序段的循环结构执行后，i的输出值是_______。 C
Dim y as Integer
For i = 1 To 10 Step 2
y = y + i
Next i
Print i
A. 25 B. 10 C. 11 D. 因为y初值不知道，所以不确定
43 以下程序段的运行结果是_______。 D
Private Sub Form_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 以下程序段的运行结果是_______。 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 "s="; s
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) & "*" & 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
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
Loop Until i>0 Loop Until i=1
48 有如下程序，运行时从键盘输入4，则输出的结果是_______。 B
Private 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 执行如下程序段时，从键盘输入-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
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()
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. 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
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. 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
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都不能实现交换两个变量的值的操作
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
程序运行后，单击命令按钮，则两个标签中显示的
内容
财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容
分别是_______。B
A. 5和3 B. 25和3 C. 25和6 D. 5和6
69 下列程序输出结果为_______。A
Private 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 = S
End Function
A. 4 B. 5 C. 10 D. 11
70 以下程序的运行结果是_______。 C
Dim 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 以下程序的运行结果是_______。 C
Private 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 以下程序段的运行结果是_______。 B
Function 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 下列程序运行后显示的结果是_______。 A
Public Sub F1(n%,ByVal m%)Private
Sub Command1_Click()
n=n Mod 10Dim x%,y%
m=m\10x=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声。 D
Private Sub Timer1_Timer()
For i = 1 To 5
Beep
Next i
End Sub
A. 1000次 B. 10000次 C. 5次 D. 以上都不对
81 将命令按钮Command1的标题作为文本框T
浙公网安备 33021202002483