还没刷二级VB试题的小伙伴，don't worry！计算机等级考试题库送给你，要相信临阵磨枪，不快也光！
2019年计算机二级VB试题
【1】
1.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click()
Move500，500
EndSub
程序运行后，单击命令按钮，执行的操作为(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.Fori=0ToList1.ListCount-1......Nexti
B.Fori=0ToListCount-1......Nexti
C.Fori=1ToList1.listCount......Nexti
D.Fori=1ToListCount......Nexti
4.以下Case语句中错误的是(C)
A.Case0To10
B.CaseIs>10
C.CaseIs>10AndIs<50
D.Case3,5,Is>10
5.以下关于图片框控件的说法中，错误的是(D)
A.可以通过Print方法在图片框中输出文本
B.清空图片框控件中图形的方法之一是加载一个空图形
C.图片框控件可以作为容器使用
D.用图片框控件的Stretch属性可以自动调整图片框中图形的大小
6.在窗体上画一个名称为Label1、标题为"VisualBasic考试"的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500。编写如下程序：
PrivateSubForm_Load()
Timer1.Enabled=False
EndSub
PrivateSubCommand1_Click()
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
IfLabel1.Left<Form1.WidthThen
Label1.Left=Label1.Left+20
Else
Label1.Left=0
EndIf
EndSub
程序运行后，单击"开始"按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是(A)
A.标签的移动方向为自右向左
B.单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动
C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D.标签按指定的时间时隔移动
7.规范地说，VB是一种(A)的开发工具
A.面向对象
B.面向用户
C.面向屏幕
D.面向窗体
8.VB6设计界面包含多个视窗，控制这些视窗显示或关闭的命令包含在(D)下拉菜单中
A.文件
B.工程
C.编辑
D.视图
9.下面(D)操作不是激活或显示属性列表框的操作
A.按快捷键F4
B.点击工具栏中的"属性列表框"按钮
C.选择"视图"下拉菜单的"属性窗口"项
D.双击窗体中的某一对象
10.VisualBasic程序中分隔各语句的字符是(B)
A.′
B.:
C.\
D._
【2】
1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
PrivateSubCommand1_Click()
n=Val(Text1.Text)
Ifn\2=n/2Then
f=f1(n)
Else
f=f2(n)
EndIf
Printf;n
EndSub
PublicFunctionf1(ByRefx)
x=x*x
f1=x+x
EndFunction
PublicFunctionf2(ByValx)
x=x*x
f2=x+x+x
EndFunction
程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)
A.7236
B.10836
C.726
D.273
2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click()
c="1234"
Fori=1To4
c1=Trim(Str())
Printc1
Nexti
EndSub
程序运行后，单击命令按钮，要求在窗体上显示如下内容
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的文本框，然后编写如下事件过程：
PrivateSubCommand1_Click()
n=Val(Text1.Text)
Fori=2Ton
Forj=2Tosqr(i)
IfiModj=0ThenExitFor
Nextj
Ifj>Sqr(i)ThenPrinti
Nexti
EndSub
该事件过程的功能是(C)(单)
A.输出n以内的奇数
B.输出n以内的偶数
C.输出n以内的素数
D.输出n以内能被j整除的数
4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
PrivateFunctionf(mAsInteger)
IfmMod2=0Then
f=m
Else
f=1
EndIf
EndFunction
PrivateSubCommand1_Click()
DimiAsInteger
s=0
Fori=1To5
s=s+f(i)
Next
Prints
EndSub
程序运行后，单击命令按钮，在窗体上显示的是(C)(单)
A.11
B.10
C.9
D.8
5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click()
Dimarray1(10,10)AsInteger
DimiAsInteger,jAsInteger
Fori=1To3
Forj=2To4
array1(i,j)=i+j
Nextj
Nexti
Text1.Text=array1(2,3)+array1(3,4)
EndSub
程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)
A.15
B.14
C.13
D.12
6.VisualBasic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
7.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。
PrivateSubForm_【mousedown】(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
popupmenumnuEdit
EndIf
EndSub
8.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
PrivateSubFormmousedown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
【popupmenu】mnuEdit
EndIf
9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。
10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。
【3】
1.与数学表达式ln(a+b)/(3x)+5对应的VisualBasic表达式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】
2.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【】
3.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
PrivateSubOption1_Click(IndexAsInteger)
SelectCase【Index】
Case0
a="宋体"
Case1
a="黑体"
Case2
a="楷体_GB2312"
EndSelect
text1.fontname=a
EndSub
4.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
PrivateSubOption1_Click(IndexAsInteger)
SelectCaseindex
Case0
a="宋体"
Case1
a="黑体"
Case2
a="楷体_GB2312"
EndSelect
text1.【fontname】=a
EndSub
5.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
PrivateSubCombo1_Click()
CallShowItem(Combo1,Label1)
EndSub
PrivateSubCombo2_Click()
CallShowItem(Combo2,Label2)
EndSub
PublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel)
【tmplabel】.Caption=tmpCombo.Text
EndSub
6.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
PrivateSubCombo1_Click()
CallShowItem(Combo1,Label1)
EndSub
PrivateSubCombo2_Click()
CallShowItem(Combo2,Label2)
EndSub
PublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel)
tmpLabel.Caption=【tmpcombo】.Text
EndSub
7.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click()
n=5
f=1
s=0
Forc=1Ton
f=f*【7】
s=s+f
Nextc
Prints
EndSub
该事件过程的功能是计算1!+2!+3!+…+n!的值。
8.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click()
Dima10）AsInteger
ForI=1To10
a(I)=I
NextI
Call【swap】a()
ForI=1To10
Printa(I);
Next
EndSub
Subswap(b()AsInteger)
n=ubound(b)
ForI=1Ton/2
t=b(I)
b(I)=b(n)
b(n)=t
n=n-1
NextI
EndSub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a1）与a10）的值互换，a2）与a9）的值互换，……，a5）与a6）的值互换。
9.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click()
Dima10）AsInteger
ForI=1To10
a(I)=I
NextI
Callswap(a())
ForI=1To10
Printa(I);
Next
EndSub
Subswap(b()AsInteger)
n=【ubound(b)】
ForI=1Ton/2
t=b(I)
b(I)=b(n)
b(n)=t
n=n-1
NextI
EndSub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a1）与a10）的值互换，a2）与a9）的值互换，……，a5）与a6）的值互换。
10.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click()
Dima10）AsInteger
ForI=1To10
a(I)=I
NextI
Callswap(a())
ForI=1To10
Printa(I);
NextI
EndSub
Subswap(b()AsInteger)
n=ubound(b)
ForI=1Ton/2
t=b(I)
b(I)=b(n)
b(n)=t
n=【n-1】
NextI
EndSub
【4】
1.设a=sqr3）,则语句Printformat$(a,"-####.#")的输出结果是【-1.7】。
2.以下程序段的输出结果是【91011】。
X=8
Printx+1;x+2;x+3
3.以下程序段的输出的结果是【9】。
X=8.6
y=int(x+0.5)
Printy
4.在窗体中显示文字的方法是(B)(单)
A.text
B.print
C.caption
D.cls
5.为了在代码窗口中设置标签背景，可以利用(AC)函数取得背景颜色(多)
A.RGB
B.COLOR
C.QBCOLOR
D.FONTCOLOR
6.决定文本框显示内容的属性是(A)(单)
A.text
B.name
C.alignment
D.caption
7.为了按下tab键时焦点聚焦的顺序更改，可以设置控件对象的(C)属性(单)
A.value
B.default
C.tabindex
D.enabled
8.要使得在按下鼠标左键时，激发mousedown事件，可以设置此事件中的button参数为(B)(单)
A.0
B.1
C.2
D.4
9.要使得在按下鼠标右键时，激发mousedown事件，可以设置此事件中的button参数为(C)(单)
A.0
B.1
C.2
D.4
10.删除列表框中所有的项目所使用的方法为(C)(单)
A.move
B.remove
C.clear
D.removeitem
【5】
1.当拖动滚动条中的滚动块时，将触发滚动条的事件是(BC)(多)
A.move
B.change
C.scroll
D.setfocus
2.在窗体(name属性为form1)上画两个文本框(name属性分别为text1和text2)和一个命令按钮(name属性为command1)，然后编写如下两个事件过程：
PrivateSubcommand1_click()
StaticbAsInteger
b=3
a=b*Int(5.8)
Printa
EndSub
PrivateSubform_load()
Text1.Text=""
Text2.Text=""
EndSub
程序运行后，单击命令按钮，则输出结果为(A)(单)
A.15
B.3
C.5.8
D.5
3.为了使标签能自动调整大小以显示全部文本内容，应把标签的【Autosize】属性设置为true。
4.要想在文本框中显示垂直滚动条，必须把scrollbars属性设置为2，同时还应把【Multiline】属性设置为true。
5.假定有一个文本框，其名称为text1，为了使该文本框具有焦点，应执行的语句是【Text1】.setfocus。
6.假定有一个名为pic2.bmp的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句为图片控件名.picture=【loadpicture("pic2.bmp")】。
7.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的【Stretch】属性设置为true。
8.窗体、图片框或图像框中图形通过对象的【Picture】属性设置。
9.计时器事件之间的间隔通过【Interval】属性设置。
10.有时候要暂关闭计时器，这可以通过【Enabled】属性设置为false来实现。
二级VB试题偏题怪题不要怕，认真审题沉着应答；遇到难题不要慌，思路清晰势难挡；遇到大题不着忙，心情沉稳答题理想，祝备考顺利，取得优异成绩。
文章推荐：
2019年全国计算机等级考试题库“二级MS Office 高级应用考试大纲”
全国计算机等级考试报考成功后可以退费吗？（内附计算机等级考试题库）
温馨提示：
考试想拿高分吗？更多计算机等级考试题库二级ms office试题请点击查看>>>二级ms office
想要了解更多的计算机等级考试题库请点击下载>>>计算机等级考试题库
想知道更多关于计算机等级考试题库的近期资讯吗？点击进入>>>计算机等级考试题库资讯
