你复习了吗？ 你做计算机等级考试题库了吗？以下是考无忧小编为您准备的二级VB试题。
2019年计算机二级VB试题
【1】
1.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Num1 = 3
Num2 = 2
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Case 1
Op = "+"
Result = Num1 + Num2
Case 2
Op = "-"
Result = Num1 - Num2
Case 3
Op = "×"
Result = Num1 * Num2
Case 4
Op = "÷"
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2 & "=" & Result
End Sub
窗体运行后，输入2，则label1的标题显示结果为(B)(单)
A.3+2=5
B.3-2=1
C.3×2=6
D.3÷2=1.5
2.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Num1 = 3
Num2 = 2
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Case 1
Op = "+"
Result = Num1 + Num2
Case 2
Op = "-"
Result = Num1 - Num2
Case 3
Op = "×"
Result = Num1 * Num2
Case 4
Op = "÷"
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2 & "=" & Result
End Sub
窗体运行后，输入3，则label1的标题显示结果为(C)(单)
A.3+2=5
B.3-2=1
C.3×2=6
D.3÷2=1.5
3.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Num1 = 3
Num2 = 2
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Case 1
Op = "+"
Result = Num1 + Num2
Case 2
Op = "-"
Result = Num1 - Num2
Case 3
Op = "×"
Result = Num1 * Num2
Case 4
Op = "÷"
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2 & "=" & Result
End Sub
窗体运行后，输入4，则label1的标题显示结果为(D)(单)
A.3+2=5
B.3-2=1
C.3×2=6
D.3÷2=1.5
4.以下程序段的作用是(A)(单)
Private Sub Picture1_Click( )
Dim asci As Integer, i As Integer
i = 0
For asci = 32 To 126
Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;
i = i + 1
If i = 7 Then i = 0: Picture1.Print
Next asci
A.打印ASCII码表，一行7个表达式
B.打印九九乘法表，一行7个表达式
C.打印ASCII码表，一行8个表达式
D.以上说法都不正确
5.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。
Private Sub Command1_Click( )
Dim x, n
x = Val(Text1)
n = 0
Do While 【x】<26
x = x * (1 + 0.008)
n = n + 1
Loop
Text2 = Str(n)
End Sub
6.以下程序的作用是(B)(单)
For i = 1 To 9
For j = 1 To 9
se = i & "×" & j & "=" & i * j
Picture1.Print Tab((j - 1) * 9 + 1); se;
Next j
Picture1.Print
Next i
A.打印ASCII码表
B.打印九九乘法表
C.打印加法表
D.以上说法都不正确
7.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While 【t>】 0.00001
e = e + t
I = I + 1
n = n * I
t = 1 / n
Loop
Print "计算了 "; I; " 项的和是 "; e
End Sub
8.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While t>0.00001
e = e + 【t】
I = I + 1
n = n * I
t = 1 / n
Loop
Print "计算了 "; I; " 项的和是 "; e
End Sub
9.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While t>0.00001
e = e + t
I = I + 1
n = n * 【I】
t = 1 / n
Loop
Print "计算了 "; I; "项的和是"; e
End Sub
10.以下程序是求最大公约数和最小公倍数的程序。
Private Sub Form_Click( )
Dim m1, n1, m, n, r As Integer
n1 = InputBox("输入自然数n", "输入数")
m1 = InputBox("输入自然数m", "输入数")
n = n1
m = m1
If m < n Then
t = m: m = n: n = t
End If
r = m Mod 【n】
Do While (r<>0)
m = n
n = r
r = m Mod n
Loop
Print "最大公约数=", n
Print "最小公倍数= ", m1 * n1 / n
End Sub
【2】
1.确定一个控件在窗体上的位置的属性是(C)(单)
A.Width和Height
B.Width或Height
C.Top和Left
D.Top或Left
2.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Text1.Text = "Visual"
Me.Text1 = "Basic"
Text1 = "Program"
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是(C)(单)
A.Visual
B.Basic
C.Program
D.出错
3.以下关系表达式中，其值为False的是(A)(单)
A."ABC">"AbC"
B."the"<>"they"
C."VISUAL"=UCase("Visual")
D."Integer">"Int"
4.语句Print int(5/4*6\5) Mod 2的输出结果是(B)(单)
A.0
B.1
C.2
D.3
5.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click( )
strText = InputBox("请输入")
Text1.Text = strText
End Sub
Private Sub Text1_Change( )
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是(D)(单)
A.空
B.abcdef
C.abc
D.def
6.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
x = -5
If x >0 Then
y = x ^ 2
Else
y = x
End If
Print y
End Sub
程序运行后，单击命令按钮，窗体上显示的是(A)(单)
A.-5
B.25
C.1
D.-1
7.一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As
Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是(A)(单)
A.变量X、Y的作用域相同
B.Y的作用域是Model1
C.在Form1的任何地方中可以直接使用Y
D.在Form2中可以直接使用X和Y
8.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是(A)(单)
A.Drive1_Change
B.Drive1_Click
C.Dir1_Click
D.Dir1_KeyPress
9.在窗体上画一个命令按钮(其NAME属性为Command1)，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
Dim a
s = 0
a = Array(1, 2, 3, 4)
For I = 4 To 1 Step -1
s = s + a(I)
Next I
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是(D)(单)
A.4321
B.1234
C.34
D.10
10.在窗体上画一个名称为Text1的文本框，编写以下代码：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii> 90 Then
msgBox "请输入大写字母"
KeyAscii = 0
End If
End Sub
以下能说明该事件过程正确是(A)(单)
A.要求文本框只能接收大写字母的输入
B.要求文本框只能接收小写字母的输入
C.要求文本框只能接收数字的输入
D.要求文本框只能接收65到90之间的数值的输入
【3】
1.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Move 500，500
End Sub
程序运行后，单击命令按钮，执行的操作为(A)(单)
A.命令按钮移动到距窗体左边界、上边界各500的位置
B.窗体移动到距屏幕左边界、上边界各500的位置
C.命令按钮向左、上方向各移动500
D.窗体向左、上方向各移动500
2.在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是(D)(单)
A.TabStop
B.Enabled
C.Visible
D.TabIndex
3.在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为(A)(单)
A.For i=0 To List1.ListCount-1 ...... Next i
B.For i=0 To ListCount-1 ...... Next i
C.For i=1 To List1.listCount ...... Next i
D.For i=1 To ListCount ...... Next i
4.以下Case语句中错误的是(C)(单)
A.Case 0 To 10
B.Case Is>10
C.Case Is>10 And Is<50
D.Case 3,5,Is>10
5.以下关于图片框控件的说法中，错误的是(D)(单)
A.可以通过Print方法在图片框中输出文本
B.清空图片框控件中图形的方法之一是加载一个空图形
C.图片框控件可以作为容器使用
D.用图片框控件的Stretch属性可以自动调整图片框中图形的大小
6.执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是(A)(单)
A.Visual
B.Basic
C.6
D.11
7.以下叙述中错误的是(D)(单)
A.下拉式菜单能用菜单编辑器建立
B.在多窗体程序中，每个窗体都可以建立自己的菜单系统
C.能够对菜单项的Click事件编程
D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
8.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click( )
a = "12345"
Print Format$(a, "000.00")
End Sub
程序运行后，单击命令按钮，窗体上显示的是(B)(单)
A.123.45
B.12345.00
C.12345
D.00123.45
9.以下关于函数过程的叙述中，正确的是(A)(单)
A.函数过程形参的类型与函数返回值的类型没有关系
B.在函数过程中，过程的返回值可以有多个
C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D.如果不指明函数过程参数的类型，则该参数不能有数据类型的参数
10.以下关于变量作用域的叙述中，正确的是(C)(单)
A.用dim定义变量是静态变量
B.静态变量必须在标准模块中声明
C.用public定义变量是全局变量
D.Static类型变量的作用域范围是它所在的窗体或模块文件
【4】
1.设有如下程序段：
x=2
For c=1 To 4 Step 2
x=x+c
Next c
运行以上程序后，x的值是(A)(单)
A.6
B.7
C.8
D.9
2.以下叙述中错误的是(A)(单)
A.在KeyPress事件过程中不能识别键盘键的按下与释放
B.在KeyPress事件过程中不能识别回车键
C.在KeyDown和KeyUp事件过程中，从键盘输入的字母"A"和字母"a"对应的KeyCode视作相同的字母
D.在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符
3.执行如下两条语句，窗体上显示的是(C)(单)
A=9.8596
Print Format(a,"000.00")
A.0,009.86
B.9.86
C.009.86
D.0,009.86
4.在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
Private Sub Command1_Click( )
CommonDialog1.FileName =""
CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
End Sub
对于这个程序，以下叙述中错误的是(D)(单)
A.该对话框被设置为"打开"对话框
B.在该对话框中指定的文件名为空
C.该对话框的标题为VBTest
D.在该对话框中指定的默认文件类型为文本文件(*.Txt)
5.设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
Private Sub Command1_Click( )
Dim a As Integer
a=10
Call g(Form2,a)
End Sub
Private Sub g(f As Form,x As Integer)
y=Iif(x>10,100,-100)
f.Show
f.Caption=y
End Sub
运行以上程序，正确的结果是(B)(单)
A.Form1的Caption属性值为100
B.Form2的Caption属性值为-100
C.Form1的Caption属性值为-100
D.Form2的Caption属性值为100
6.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Sub Command1_Click( )
Dim x As Integer
Static y As Integer
x=10
y=5
Call f1(x,y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)
A.10 5
B.12 5
C.10 7
D.12 7
7.Option Base 1
Private Sub Command1_Click( )
Dim a10） As Integer
Dim n As Integer
n=3
If n<10 Then
Call GetArray(a,n)
End If
End Sub
Private Sub GetArray(b( ) As Integer,n As Integer)
Dim c10） As Integer
j=0
For t=1 To n
b(t)=Rnd*100
If b(t)/2=b(t)\2 Then
j=j+1
c(j)=b(t)
End If
Next t
Print j
End Sub
以下叙述中错误的是(C)(单)
A.数组b中的数范围为0-100
B.c数组下标的下界从1开始
C.GetArray过程的参数n是按值传送的
D.语句If b(t)/2=b(t)\2 Then 是判断数组b中元素的值是否为整数
8.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click( )
Dim a
a= Array(1,2,3,4,5)
For c=1 To Ubound(a)
a(c) = a(c)+c-1
Next c
Print a3）
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是(B)(单)
A.4
B.5
C.6
D.7
9.阅读程序：
Option Base 1
Private Sub Form_Click( )
Dim arr
Dim Sum%
Sum = 0
arr = Array(1, 3, 5, 7, 9)
For t = 1 To 5
Sum = Sum + arr(t)
Next t
Print Sum
End Sub
程序运行后，单击窗体，输入结果为(B)(单)
A.5
B.9
C.25
D.15
10.在窗体上画一个名称为File1的文件列表框，并编写如下程序：
Private Sub File1_DblClick( )
x=Shell(File1.FileName,1)
End Sub
以下关于该程序的叙述中，错误的是(A)(单)
A.x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)
B.双击文件列表框中的文件，将触发该事件过程
C.要执行的文件的名字通过File1.FileName指定
D.File1中显示的是当前驱动器、当前目录下的文件
【5】
1.在窗体上画一个名称为Label1、标题为"VisualBasic考试"的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500。编写如下程序：
Private Sub Form_Load( )
Timer1.Enabled=False
End Sub
Private Sub Command1_Click( )
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer( )
If Label1.Left< Form1.Width Then
Label1.Left = Label1.Left + 20
Else
Label1.Left=0
End If
End Sub
程序运行后，单击"开始"按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是(A)(单)
A.标签的移动方向为自右向左
B.单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动
C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D.标签按指定的时间时隔移动
2.规范地说，VB是一种(A)的开发工具(单)
A.面向对象
B.面向用户
C.面向屏幕
D.面向窗体
3.VB6设计界面包含多个视窗，控制这些视窗显示或关闭的命令包含在(D)下拉菜单中(单)
A.文件
B.工程
C.编辑
D.视图
4下面(D)操作不是激活或显示属性列表框的操作(单)
A.按快捷键F4
B.点击工具栏中的"属性列表框"按钮
C.选择"视图"下拉菜单的"属性窗口"项
D.双击窗体中的某一对象
5.Visual Basic程序中分隔各语句的字符是(B)(单)
A.′
B.:
C.\
D._
6.假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为"VB Test"的语句为(B)(单)
A.Form1 = "VB Test"
B.Caption ="VB Test"
C.Form1.Text = "VB Test"
D.Form1.Name ="VB Test"
7.下列不能打开代码窗口的操作是(D)(单)
A.双击窗体上的某个控件双击
B.双击窗体
C.按F7键
D.单击窗体或控件
8.Visual Basic程序中语句行的续行符是(D)(单)
A.′
B.:
C.\
D. _
9.Visual Basic程序中的注释所使用的字符是(A)(单)
A.′
B.:
C.\
D._
10.下列说法中正确的是：为了保存一个Visual Basic应用程序，应当(D)(单)
A.只保存窗体模块文件(.frm)
B.只保存工程文件(.vbp)
C.分别保存工程文件和标准模块文件(.bas)
D.分别保存工程文件、窗体文件和标准模块文件
在刷计算机等级考试题库中，慢慢总结、学习、复习以上的二级VB试题，有效的刷题策略才能事半功倍，考试将至，希望小伙伴们在最后备战的阶段中，精益求精、稳中求进，一次通过！
文章推荐：
2019年全国计算机等级考试题库“二级MS Office 高级应用考试大纲”
全国计算机等级考试报考成功后可以退费吗？（内附计算机等级考试题库）
温馨提示：
考试想拿高分吗？更多计算机等级考试题库二级ms office试题请点击查看>>>二级ms office
想要了解更多的计算机等级考试题库请点击下载>>>计算机等级考试题库
想知道更多关于计算机等级考试题库的近期资讯吗？点击进入>>>计算机等级考试题库资讯
