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