全国计算机等级考试二级VB语言笔试试题及答案Word格式文档下载.docx
《全国计算机等级考试二级VB语言笔试试题及答案Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级VB语言笔试试题及答案Word格式文档下载.docx（16页珍藏版）》请在冰豆网上搜索。
D）把Name属性设置为O&
（5）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=InputBox（"
Input"
）
SelectCasex
Case1,3
Print"
分支1"
CaseIs>
4
分支2"
CaseElse
Else分支"
EndSelect
程序运行后，如果在输入对话框中输入2，则窗体上显示的是
A）分支1B）分支2C）Else分支D）程序出错
（6）以下关于MsgBox的叙述中，错误的是
A）MsgBox函数返回一个整数
B）通过MsgBox函数可以设置信息框中图标和按钮的类型
C）MsgBox语句没有返回值
D）MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量
（7）在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是
A）Timer1.Interval=0.5B）Timer1.Interval=5
C）Timer1.Interval=50D）Timer1.Interval=500
（8）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
StaticxAsInteger
Cls
Fori=1To2
y=y+x
x=x+2
Next
Printx,y
程序运行后，连续三次单击Command1按钮后，窗体上显示的是
A）42B）1218C）1230D）46
（9）以下关于多重窗体程序的叙述中，错误的是
A）用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体
B）在多重窗体程序中，各窗体的菜单是彼此独立的
C）在多重窗体程序中，可以根据需要指定启动窗体
D）对于多重窗体程序中，需要单独保存每个窗体
（10）以下关于文件的叙述中，错误的是
A）顺序文件中的记录一个接一个地顺序存放
B）随机文件中记录的长度是随机的
C）执行打开文件的命令后，自动生成一个文件指针
D）LOF函数返回给文件分配的字节数
（11）以下叙述中错误的是
A）事件过程是响应特定事件的一段程序
B）不同的对象可以具有相同名称的方法
C）对象的方法是执行指定操作的过程
D）对象事件的名称可以由编程者指定
（12）以下合法的VisualBasic标识符是
A）ForLoopB）ConstC）9abcD）a#x
（13）当一个复选框被选中时，它的Value属性的值是
A）3B）2C）1D）0
（14）表达式5Mod3+3\5*2的值是
A）0B）2C）4D）6
（15）设x=4,y=8,z=7，以下表达式的值是
x<
yAnd（Noty>
z）Orz<
x
A）1B）-1C）TrueD）False
（16）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
a$="
VisualBasic"
PrintString（3,a$）
程序运行后，单击命令按钮，在窗体上显示的内容是
A）VVVB）VisC）sicD）11
（17）设有如下程序段：
x=2
Fori=1To10Step2
x=x+i
运行以上程序后，x的值是
A）26B）27C）38D）57
（18）以下叙述中错误的是
A）在KeyPress事件过程中不能识别键盘的按下与释放
B）在KeyPress事件过程中不能识别回车键
C）在KeyDown和KeyUp事件过程中，将键盘输入的"
A"
和"
a"
视作相同的字母
D）在KeyDown和KeyUp事件过程中，从大键盘上输入的"
1"
和从右侧小键盘上输入的"
被视作不同的字符
（19）执行如下两条语句，窗体上显示的是
a=9.8596
PrintFormat（a,"
$00,00.00"
A）0,009.86B）$9.86C）9.86D）$0,009.86
（20）在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。
然后编写如下事件过程：
CommonDialog1.FileName="
"
CommonDialog1.Filter="
Allfile|*.*|（*.Doc）|*.Doc|（*.Txt）|*.Txt"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="
VBTest"
CommonDialog1.Action=1
对于这个程序，以下叙述中错误的是
A）该对话框被设置为“打开”对话框
B）在该对话框中指定的默认文件名为空
C）该对话框的标题为VBTest
D）在该对话框中指定的默认文件类型为文本文件（*.Txt）
（21）设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。
窗体Form1的程序代码如下：
DimaAsInteger
a=10
Callg（Form2,a）
PrivateSubg（fAsForm,xAsInteger）
y=IIf（x>
10,100,-100）
f．Show
f．Caption=y
运行以上程序，正确的结果是
A）Form1的Caption属性值为100B）Form2的Caption属性值为-100
C）Form1的Caption属性值为-100D）Form2的Caption属性值为100
（22）在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
DimxAsInteger
StaticyAsInteger
x=10
y=5
Callf1（x,y）
PrivateSubf1（ByRefx1AsInteger,y1AsInteger）
x1=x1+2
y1=y1+2
A）105B）125C）107D）127
（23）设有如下程序
OptionBase1
Dima（10）AsInteger
DimnAsInteger
n=InputBox（"
输入数据"
Ifn<
10Then
CallGetArray（a,n）
EndIf
PrivateSubGetArray（b（）AsInteger,nAsInteger）
Dimc（10）AsInteger
j=0
Fori=1Ton
b（i）=CInt（Rnd（）*100）
Ifb（i）/2=b（i）\2Then
j=j+1
c（j）=b（i）
Printj
以下叙述中错误的是
A）数组b中的偶数被保存在数组c中
B）程序运行结束后，在窗体上显示的是c数组中元素的个数
C）GetArray过程的参数n是按值传送的
D）如果输入的数据大于10，则窗体上不显示任何信息
（24）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Dima
a=Array（1,2,3,4,5）
Fori=1ToUBound（a）
a（i）=a（i）+i-1
Printa（3）
程序运行后，单击命令按钮，则在窗体上显示的内容是
A）4B）5C）6D）7
（25）阅读程序
PrivateSubForm_Click（）
Dimarr,Sum
Sum=0
arr=Array（1,3,5,7,9,11,13,15,17,19）
Fori=1To10
Ifarr（i）/3=arr（i）\3Then
Sum=Sum+arr（i）
Nexti
PrintSum
程序运行后，单击窗体，输出结果为
A）13B）14C）27D）15
（26）在窗体上画一个名称为File1的文件列表框，并编写如下程序：
PrivateSubFile1_DblClick（）
x=Shell（File1.FileName,1）
以下关于该程序的叙述中，错误的是
A）x没有实际作用，因此可以将该语句写为：
CallShell（File1.FileName,1）
B）双击文件列表框中的文件，将触发该事件过程
C）要执行的文件的名字通过File1.FileName指定
D）File1中显示的是当前驱动器、当前目录下的文件
（27）在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500,如图所示。
编写如下程序：
PrivateSubForm_Load（）
Timer1.Enabled=False
Timer1.Enabled=True
PrivateSubTimer1_Timer（）
IfLabel1.Left<
WidthThen
Label1.Left=Label1.Left+20
Else
Label1.Left=0
程序运行后，单击“开始”按钮，标签在窗体中移动。
A）标签的移动方向为自右向左
B）单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
C）当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D）标签按指定的时间时隔移动
（28）执行以下程序段
abbacddcba"
Fori=6To2Step-2
X=Mid（a,i,i）
Y=Left（a,i）
z=Right（a,i）
z=UCase（X&
Y&
z）
Printz
输出结果为
A）ABAB）BBABBAC）ABBABAD）AABAAB
（29）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
DimaAsVariant
a=Array（1,2,3,4,5）
Sum=0
Fori=1To5
Sum=sum+a（i）
x=Sum/5
Fori=1To5
Ifa（i）>
xThenPrinta（i）;
A）12B）123C）345D）45
（30）假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
Model1代码如下：
PublicxAsInteger
PublicyAsInteger
SubS1（）
x=1
S2
SubS2（）
y=10
Form1.Show
EndShow
Model2的代码如下：
SubMain（）
S1
其中SubMain被设置为启动过程。
程序运行后，各模块的执行顺序是
A）Form1→Model1→Model2B）Model1→Model2→Form1
C）Model2→Model1→Form1D）Model2→Form1→Model1
二、填空题（每空2分，共30分）
请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
（1）设有如下程序段：
BeijingShanghai"
b$=Mid（a$,InStr（a$,"
g"
）+1）
执行上面的程序段后，变量b$的值为【1】。
（2）以下程序段的输出结果是【2】。
num=0
Whilenum<
=2
num=num+1
Wend
Printnum
（3）窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。
程序运行后，将把1～100之间能够被7整除的数添加到列表框。
如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。
以下是实现上述功能的程序，请填空。
Fori=1To100
IfiMod7=0Then
【3】
Sum=0
Fori=0To【4】
Sum=Sum+【5】
Text1.Text=Sum
（4）本程序的功能是利用随机数函数模拟投币，方法是：
每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。
在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。
程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。
Randomize
n=CInt（Text1.Text）
n1=0
n2=0
Fori=1To【6】
r=Int（Rnd*2）
Ifr=【7】_Then
n1=n1+1
n2=n2+1
Text2.Text=n1
Text3.Text=n2
（5）阅读程序：
Dima（3）AsInteger
输入的数据是：
;
Fori=1To3
a（i）=InputBox（"
Printa（i）;
Print
Ifa
（1）<
a
（2）Then
t=a
（1）
a
（1）=a
（2）
a
（2）=【8】
Ifa
（2）>
a（3）Then
m=a
（2）
ElseIfa
（1）>
m=【9】
m=【10】
中间数是：
m
程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。
请填空。
（6）在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;
名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空;
标签Label3的标题为“计算结果”。
运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。
单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。
Fori=0To4
Sum=Sum+【11】
【12】=Sum
（7）在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。
程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值;
如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。
Dima（3,2）AsInteger
Forj=1To2
【13】=i+j
Nextj
PrivateSubCommand2_Click（）
Forj=1To3
s=s+【14】
Text1.Text=【15】
参考答案：
一、选择题（
（1）—（20）每小题2分，（21）—（30）每小题2分，共70分）
（1）－（10） BCAACDDBAB
（11）－（20） DACBDABBDD
（21）－（30） BDCBCAABDC
1、
（1）"
Shanghai"
2、
（2）3
3、（3）list1.additemi （4）list1.listcount-1（5）list1.list（i）
4、（6）n （7）1
5、（8）t （9）a（3）（10）a
（1）
6、（11）label1（i）.caption（12）label2.caption
7、（13）a（i,j） （14）a（j,i） （15）s
升级会员 