Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言，接下来CN人才网小编为大家带来的是计算机二级VB考试题，欢迎大家阅读借鉴。
【计算机二级VB考试题一】1.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，
第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。
程序如下：(程序运行刚开始时，四个单选按钮都没有选中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋体", "黑体")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
当程序运行时，先单击单选按钮option2，然后单击命令按钮command1，则文本框text1的变化效果是(B) (单)
A.字体设置为宋体
B.字体设置为黑体
C.字体大小设置为8号
D.字体大小设置为12号
2.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，
第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。
程序如下：(程序运行刚开始时，四个单选按钮都没有选中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋体", "黑体")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
当程序运行时，先单击单选按钮option3，然后单击命令按钮command1，则文本框text1的变化效果是(C) (单)
A.字体设置为宋体
B.字体设置为黑体
C.字体大小设置为8号
D.字体大小设置为12号
3.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，
第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。
程序如下：(程序运行刚开始时，四个单选按钮都没有选中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋体", "黑体")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
当程序运行时，先单击单选按钮option1，然后单击命令按钮command1，则文本框text1的变化效果是(A) (单)
A.字体设置为宋体
B.字体设置为黑体
C.字体大小设置为8号
D.字体大小设置为12号
4.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，
第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。
程序如下：(程序运行刚开始时，四个单选按钮都没有选中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋体", "黑体")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
当程序运行时，先单击单选按钮option4，然后单击命令按钮command1，则文本框text1的变化效果是(D) (单)
A.字体设置为宋体
B.字体设置为黑体
C.字体大小设置为8号
D.字体大小设置为12号
5.在窗体中建立了一个名称为lstBooks的列表框，一个名称为txtItem的文本框，四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。
如下程序：
Sub Form_Load( )
lstBooks.AddItem "计算机文化基础"
lstBooks.AddItem "VB程序设计教程"
lstBooks.AddItem "操作系统"
End Sub
Sub cmdAdd_Click( )
lstBooks.AddItem txtItem
txtItem = ""
End Sub
对该程序说法不正确的是(D) (单)
A.窗体启动时，在列表框中有三个列表项目，依次为：计算机文化基础、VB程序设计教程、操作系统
B.单击cmdAdd命令按钮后，把文本框中的信息添加到列表框中
C.在列表框中添加列表项目的方法为additem方法
D.以上说法都不正确
6.在窗体中建立了一个名称为LSTBOOKS的列表框，一个名称为txtItem的文本框，四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。如下程序的功能是将修改后的项目送回列表框，替换原项目，实现修改：
Sub cmdModify_Ok_Click( )
LSTBOOKS.List【Lstbooks.lstindex】 = txtItem
txtItem = ""
End Sub
7.对以下程序说法不正确的是(C) (单)
Private Sub Combo1_LostFocus( )
flag = False
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then
flag = True
Exit For
End If
Next i
If Not flag Then
Combo1.AddItem Combo1.Text
End If
End Sub
A.当焦点离开组合框时组合框的LostFocus事件被触发
B.添加到组合框的新项目不能永久保存，下次运行该程序中看不到上次保存的项目，利用该事件过程能够将输入的新内容添加到组合框中，下次运行该程序中能够看到上次保存的项目
C.逻辑变量flag=true时，表示组合框的项目中有该输入新项目
D.逻辑变量flag=false时，表示组合框的项目中有该输入新项目
8.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem "品牌：松下"
List1.AddItem "数量：3台"
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem "操作系统：Windows 2000"
Else
List1.AddItem "操作系统：Windows 98"
End If
End If
End Sub
当窗体启动后，先选中检查框check1，然后单击命令按钮command1，运行效果为(A) (单)
A.列表框List1中的列表项目分别为：品牌：松下数量：3台
B.列表框List1中的列表项目分别为：操作系统：Windows 2000 操作系统：Windows 98
C.没有任何显示
D.以上都不正确
*9.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem "品牌：松下"
List1.AddItem "数量：3台"
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem "操作系统：Windows 2000"
Else
List1.AddItem "操作系统：Windows 98"
End If
End If
End Sub
当窗体启动后，先选中检查框check2(其中单选按钮option1被选中)，然后单击命令按钮command1，运行效果为(B)(单)
A.列表框List1中的列表项目分别为：品牌：松下数量：3台
B.列表框List1中的列表项目分别为：操作系统：Windows 2000 操作系统：Windows 98
C.列表框List1中的列表项目为：操作系统：Windows 2000
D.以上都不正确
53430.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem "品牌：松下"
List1.AddItem "数量：3台"
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem "操作系统：Windows 2000"
Else
List1.AddItem "操作系统：Windows 98"
End If
End If
End Sub
当窗体启动后，先选中检查框check2(其中单选按钮option2被选中)，然后单击命令按钮command1，运行效果为(B)(单)
A.列表框List1中的列表项目分别为：品牌：松下数量：3台
B.列表框List1中的列表项目为：操作系统：Windows 98
C.列表框List1中的列表项目为：操作系统：Windows 2000
11 .传值：形参得到的是实参的值，形参值的改变不会影响实参的值。在定义形参前加关键字Byval。√
12.以下利用SUB关键字定义的子过程Rate，其调用格式不正确的是(B) (单)
A.call Rate(12,56)
B.Rate(12,56)
C.Rate 12,56
D.以上A和C正确
13.如下程序运行后显示结果为(B) (单)
Public Temp As integer
Sub Form_Load( )
Dim Temp As Integer
Temp=10
Form1.Temp=20
Print Form1.Temp;"和";Temp
End Sub
A.10和20
B.20和10
C.10和10
D.20和20
14.以下对静态变量说法不正确的是(D) (单)
A.定义格式为：Static 变量名 [AS 类型]
B.在子过程名/函数名前加Static，表示该过程/函数体内局部变量全部都是静态变量
C.静态变量必须在过程体内定义
D.静态变量可以在窗体的"通用声明部"定义
15 .过程在自身定义的内部调用自己本身的结构称为递归。√
16.如下程序功能是求n的阶层：
Function fac(n As Integer) As Integer
If n = 1 Then
fac = 1
Else
fac = n * fac(n - 1)
End If
End Function
Sub Command1_Click( )
n=val(inputbox("请输入数值"))
Print "fac(n)=";fac(n)
End Sub
以下说法不正确的是(D) (单)
A.若fac函数中If n = 1 Then fac = 1没有，仅有语句：fac = n * fac(n - 1) ，程序运行将会出错
B.若输入的n<=0 ，程序运行将会出错
C.若n=4，则输出结果为：fac(n)=24
D.以上说法都不正确
17.利用递归求最大公约数的程序为：
Public Function gcd(m As Integer, n As Integer) As Integer
If (m Mod n) = 0 Then
gcd =【n】
Else
gcd = gcd(n, m Mod n)
End If
End Function
Private Sub Form_Click( )
Print gcd(10, 4)
End Sub
18 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√
Private Sub Check1_Click( )
Text1.FontBold = Not Text1.FontBold
End Sub
*19 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√
Private Sub Check1_Click( )
Text1.FontItalic = Not Text1.FontItalic
End Sub
*20 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√
Private Sub Check1_Click( )
Text1.FontUnderline = Not Text1.FontUnderline
End Sub
【计算机二级VB考试题二】1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
If n\2 = n/2 Then
f = f1(n)
Else
f = f2(n)
End If
Print f; n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)
A.72 36
B.108 36
C.72 6
D.27 3
2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
c = "1234"
For i = 1 To 4
c1 = Trim(Str( ))
Print c1
Next i
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容
1
12
123
1234
则在下划线处应填入的内容为(B)(单)
A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i)
3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j >Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是(C)(单)
A.输出n以内的奇数
B.输出n以内的偶数
C.输出n以内的素数
D.输出n以内能被j整除的数
4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click( )
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是(C)(单)
A.11
B.10
C.9
D.8
5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)
A.15
B.14
C.13
D.12
6.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
7.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。
Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
popupmenu mnuEdit
End If
End Sub
8.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【popupmenu】 mnuEdit
End If
9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。
10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。
【计算机二级VB考试题三】1.窗体中有一个名称为txtSpeed的文本框，一个名称为hsbSpeed的滚动条。
以下程序：
Private Sub hsbSpeed_Change( )
txtSpee
D.Text = hsbSpee
D.Value
End Sub
当单击滚动条hsbSpeed右端的箭头时，以下说法不正确的是(B) (单)
A.此时会触发change事件
B.此时不会触发change事件
C.在文本框中显示了滚动条滑块所在位置的值
D.此时不会触发scroll事件
2.利用窗体中的滚动条HScroll1改变窗体的背景色，可以这样编写代码：
Private Sub HScroll1_Change( )
R= HScroll1.Value
form1.BackColor = RGB(R，int(Rnd*256)，int(Rnd*256))
End Sub
以下说法不正确的是(C) (单)
A.窗体的背景色是一个随机的颜色
B.RGB函数取得到的颜色有256*256*256种
C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数
D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数
3.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.FontSize =【Slider1.value】
End Sub
当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。
4.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.【Fontsize】 = slider1.value
End Sub
当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。
5.窗体中有一个名称为Slider1的可选择性刻度滑块控件，要设置它的如下属性值，可以编写程序(A) (单)
(1)Slider控件的滑块处于最小位置时值为8
(2)Slider控件的滑块处于最大位置时值为72
(3)单击Slider控件两端箭头时，滑块的增量值为2
(4)单击Slider控件的空白处时，滑块的增量值为8
A.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange =2：
Slider1.LargeChange = 8
B.Slider1.Min = 2：
Slider1.Max = 8：
Slider1.SmallChange = 72：
Slider1.LargeChange = 8
C.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange = 8：
Slider1.LargeChange = 2
D.Slider1.Min = 72：
Slider1.Max = 8：
Slider1.SmallChange = 2：
Slider1.LargeChange = 8
6.在窗体中有一个名称为timer1的时钟控件，三个名称分别为image1、image2 和 image3的图像框，编写如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+"\butterfly.bmp")
Image2.Picture=LoadPicture(App.Path+"\butterfly2.bmp")
Image3.Picture=LoadPicture(App.Path+"\butterfly.bmp")
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下说法不正确的是(C) (单)
A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换
B.PickBmp变量是逻辑变量，作用是表示图形的状态
C.App.Path表示绝对路径
D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0
7.在窗体中有一个名称为timer1的时钟控件，三个名称分别为image1、image2 和 image3的图像框，编写如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+"\butterfly.bmp")
Image2.Picture=LoadPicture(App.Path+"\butterfly2.bmp")
Image3.Picture=LoadPicture(App.Path+"\butterfly.bmp")
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下说法不正确的是(B) (单)
A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换
B.也可以将timer1控件的timer事件改写为change事件
C.App.Path表示相对路径
D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0
8 .在ProgressBar进度条控件中，它的Value属性决定该控件被填充多少。√
9 .UpDown控件通常与伙伴控件"捆绑"在一起使用。√
10 .Animation控件可以用来显示有声音的AVI视频文件 ×。
11.对Animation控件所使用的方法描述不正确的是(B) (单)
A.Open方法用于打开文件
B.Play方法用于播放动画，格式为： Animation1.play AVI动画文件路径
C.Stop方法用于停止播放
D.Close方法用于关闭文件
12.下面的事件不属于鼠标器事件的是(D) (单)
A.MouseDown事件
B.MouseUp事件
C.MouseMove事件
D.Move事件
13.下面的事件不属于键盘事件的是(D) (单)
A.KeyPress事件
B.KeyDown事件
C.KeyUp事件
D.KeyMove事件
14.在窗体中有一个名称为command1的命令按钮，一个名称为text1的文本框，一个名称为commondialog1的通用对话框，编写如下程序：
Sub command1_Click( )
CommonDialog1.Action = 3
text1.ForeColor = CommonDialog1.Color
End Sub
当单击命令按钮时，对程序的运行说法正确的是(B) (单)
A.打开一个颜色对话框
B.打开一个字体对话框
C.把文本框的背景颜色设置为对话框选择的字体颜色
D.把文本框的背景颜色设置为对话框中选择的颜色
15.当单击命令按钮时，对以下程序说法不正确的是(D) (单)
Sub command1_Click( )
CommonDialog1.Action = 5
For i = 1 To CommonDialog1.Copies
Printer.Print text1.Text
Next i
Printer.EndDoc
End Sub
A.此文件的功能是打印文本框text1中的内容
B.语句Printer.EndDoc表示结束文挡打印
C.打开的打印对话框
D.以上说法都不正确
16.当单击命令按钮时，对以下程序说法不正确的是(C) (单)
Sub command1_Click( )
CommonDialog1.FileName = "default.txt"
CommonDialog1.DefaultExt = "Txt"
CommonDialog1.Action = 2
End Sub
A.设置缺省文件名为default.txt
B.设置缺省扩展名为Txt
C.显示的是文件"打开"对话框
D.显示的是"另存为"对话框
17.在窗体中建立了三个名称分别为EditCut、EditCopy和EditPaste的命令按钮，一个名称为text1的文本框。
如下程序：
Private Sub EditCopy_Click( )
st = Text1.SelText '将选中的内容存放到st变量中
End Sub
Private Sub EditCut_Click( )
st = Text1.SelText '
Text1.SelText = ""
End Sub
Private Sub EditPaste_Click( )
Text1.Text = Left(Text1, Text1.SelStart) + st + Mid(Text1, Text1.SelStart
+ 1)
End Sub
对以上程序说法不正确的是(D) (单)
A.语句st = Text1.SelText的作用是：将text1文本框中选择的内容存放到st变量中
B.语句Text1.SelText = "" 的作用是：将text1文本框中选择的内容清除
C.单击EditCut命令按钮实现了text1文本框中选择的内容清除
D.单击Editcopy命令按钮实现了text1文本框中所有内容的粘贴
18.对以下程序说法不正确的是(D) (单)
Private Sub FileOpen_Click( )
CommonDialog1.InitDir = "C:\"
CommonDialog1.Filter = "文本文件 | *.Txt"
CommonDialog1.ShowOpen
End Sub
A.显示"文件"打开对话框
B.打开的对话框的初始目录为C盘根目录
C.打开的对话框的文件类型为文本文件
D.以上说法都不正确
19.双精度型数据的类型符为(A) (单)
A.#
B.*
C.&
D.@
20.整型数据的类型符为(B) (单)
A.#
B.%
C.&
D.@
<相关文章：