2003年9月全国计算机等级考试二级VB语言笔试试题及答案.doc
《2003年9月全国计算机等级考试二级VB语言笔试试题及答案.doc》由会员分享，可在线阅读，更多相关《2003年9月全国计算机等级考试二级VB语言笔试试题及答案.doc（10页珍藏版）》请在冰点文库上搜索。
2003年9月
全国计算机等级考试二级笔试试卷
公共基础知识和VisualBasic语言程序设计
（考试时间90分钟，满分100分）
一、选择题（
（1）~（20）每小题2分，（21）~（30）每小题3分，共70分）
下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。
请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
（1）以下叙述中错误的是。
A）VisualBasic是事件驱动型可视化编程工具
B）VisualBasic应用程序不具有明显的开始和结束语句
C）VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D）VisualBasic中控件的某些属性只能在运行时设置
（2）以下叙述中错误的是。
A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B）以.BAS为扩展名的文件是标准模块文件
C）窗体文件包含该窗体及其控件的属性
D）一个工程中可以含有多个标准模块文件
（3）以下叙述中错误的是。
A）双击鼠标可以触发DblClick事件
B）窗体或控件的事件的名称可以由编程人员确定
C）移动鼠标时，会触发MouseMove事件
D）控件的名称可以由编程人员设定
（4）以下不属于VisualBasic系统的文件类型是。
A）.frm B） .bat C）.vbg D）.vbp
（5）以下叙述中错误的是。
A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B）保存VisualBasic程序时，应分别保存窗体文件及工程文件
C）VisualBasic应用程序只能以解释方式执行
D）事件可以由用户引发，也可以由系统引发
（6）以下能正确定义数据类型TelBook的代码是。
A）TypeTelBook B）TypeTelBook
NameAsString*10 NameAsString*10
TelNumAsInteger TelNumAsInteger
EndType EndTelBook
C）TypeTelBook D）TypedefTelBook
NameString*10 NameString*10
TelNumInteger TelNumInteger
EndTypeTelBook EndType
（7）以下声明语句中错误的是。
A）Constvar1=123 B）Dimvar2='ABC'
C）DefInta-z D）Staticvar3AsInteger
（8）设窗体上有一个列表框控件List1，且其中含有若干列表项。
则以下能表示当前被选中的列表项内容的是。
A）List1.List B）List1.ListIndex C）List1.Index D）List1.Text
（9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是。
A）MouseDown B）MouseUp C）Load D）Click
（10）设a=10，b=5，c=1，执行语句Printa>b>c后，窗体上显示的是。
A）True B）False C）1 D）出错信息
（11）如果要改变窗体的标题，则需要设置的属性是。
A）Caption B）Name C）BackColor D）BorderStyle
（12）以下能判断是否到达文件尾的函数是。
A）BOF B）LOC C）LOF D）EOF
（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是。
A）如果工程中含有SubMain过程，则程序一定首先执行该过程
B）不能把标准模块设置为启动模块
C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D）任何时刻最多只有一个窗体是活动窗体
（14）窗体的MouseDown事件过程
Form_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）有4个参数，关于这些参数，正确的描述是。
A）通过Button参数判定当前按下的是哪一个鼠标键
B）Shift参数只能用来确定是否按下Shift键
C）Shift参数只能用来确定是否按下Alt和Ctrl键
D）参数x,y用来设置鼠标当前位置的坐标
（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是。
A）Combo1.RemoveItemText
B）Combo1.RemoveItem2
C）Combo1.RemoveItem3
D）Combo1.RemoveItemCombo1.Listcount
（16）以下关于焦点的叙述中，错误的是。
A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据
B）当文本框失去焦点时，触发LostFocus事件
C）当文本框的Enabled属性为False时，其Tab顺序不起作用
D）可以用TabIndex属性改变Tab顺序
（17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为。
A）= B）* C）& D）-
（18）执行语句Open"Tel.dat"ForRandomAs#1Len=50后，对文件Tel.dat中的数据能够执行的操作是。
A）只能写，不能读 B）只能读，不能写
C）既可以读，也可以写 D）不能读，不能写
（19）在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
PrivateSubCommand1_Click（）
n=Text1.Text
SelectCasen
Case1To20
x=10
Case2,4,6
x=20
CaseIs<10
x=30
Case10
x=40
EndSelect
Text2.Text=x
EndSub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是。
A）10 B）20 C）30 D）40
（20）设有以下循环结构
Do
循环体
LoopWhile<条件>
则以下叙述中错误的是。
A）若"条件"是一个为0的常数，则一次也不执行循环体
B）"条件"可以是关系表达式、逻辑表达式或常数
C）循环体中可以使用ExitDo语句
D）如果"条件"总是为True，则不停地执行循环体
（21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimnumAsInteger
num=1
DoUntilnum>6
Printnum;
num=num+2.4
Loop
EndSub
程序运行后，单击命令按钮，则窗体上显示的内容是。
A）13.45.8 B）135
C）147 D）无数据输出
（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimaAsInteger,sAsInteger
a=8
s=1
Do
s=s+a
a=a－1
LoopWhilea<=0
Prints;a
EndSub
程序运行后，单击命令按钮，则窗体上显示的内容是。
A）79 B）340 C）97 D）死循环
（23）设有如下通用过程：
PublicFunctionf（xAsInteger）
DimyAsInteger
x=20
y=2
f=x*y
EndFunction
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
StaticxAsInteger
x=10
y=5
y=f（x）
Printx;y
EndSub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是。
A）105 B）205 C）2040 D）1040
（24）设有如下通用过程：
PublicSubFun（a（）,ByValxAsInteger）
Fori=1To5
x=x+a（i）
Next
EndSub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
PrivateSubCommand1_Click（）
Dimarr（5）AsVariant
Fori=1To5
arr（i）=i
Next
n=10
CallFun（arr（）,n）
Text1.Text=n
EndSub
程序运行后，单击命令按钮，则在文本框中显示的内容是。
A）10 B）15 C）25 D）24
（25）在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
OptionBase1
PrivateSubCommand1_Click（）
d=0
c=10
x=Array（10,12,21,32,24）
Fori=1To5
Ifx（i）>cThen
d=d+x（i）
c=x（i）
Else
d=d－c
EndIf
Nexti
Printd
EndSub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为。
A）89 B）99 C）23 D）77
（26）在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4~Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。
如图所示。
当移动滚动框时，在相应的标签中显示滚动条的值。
当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。
以下不能实现上述功能的事件过程是。
A）PrivateSubCommand1_Click（）
Label3.Caption=Str（Val（Label1.Caption）*Val（Label2.Caption））
EndSub
B）PrivateSubCommand1_Click（）
Label3.Caption=HScroll1.Value*HScroll2.Value
EndSub
C）PrivateSubCommand1_Click（）
Label3.Caption=HScroll1*HScroll2
EndSub
D）PrivateSubCommand1_Click（）
Label3.Caption=HScroll1.Text*HScroll2.Text
EndSub
（27）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Forn=1To20
IfnMod3<>0Thenm=m+n\3
Nextn
Printn
EndSub
程序运行后，如果单击命令按钮，则窗体上显示的内容是。
A）15 B）18 C）21 D）24
（28）在窗体上画一个名称为Text1的文本框，并编写如下程序：
PrivateSubForm_Load（）
Show
Text1.Text=""
Text1.SetFocus
EndSub
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Print"程序设计"
EndSub
PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
Print"VisualBasic";
EndSub
程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是。
A）VisualBasic B）程序设计 C）A程序设计 D）VisualBasic程序设计
（29）设有如下程序：
PrivateSubCommand1_Click（）
DimsumAsDouble,xAsDouble
sum=0
n=0
Fori=1To5
x=n/i
n=n+1
sum=sum+x
Next
EndSub
该程序通过For循环计算一个表达式的值，这个表达式是。
A）1+1/2+2/3+3/4+4/5 B）1+1/2+2/3+3/4
C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5
（30）以下有关数组定义的语句序列中，错误的是。
A）Staticarr1（3） B）Dimarr2（）AsInteger
arr1
（1）=100DimsizeAsInteger
arr1
（2）="Hello"PrivateSubCommand2_Click（）
arr1（3）=123.45size=InputBox（"输入：
"）
ReDimarr2（size）
．．．．．．
EndSub
C）OptionBase1 D）DimnAsInteger
PrivateSubCommand3_Click（）PrivateSubCommand4_Click（）
Dimarr3（3）AsInteger Dimarr4（n）AsInteger
．．．．．．．．．．．．
EndSubEndSub
二、填空题（每空2分，共30分）
请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
（1）执行下面的程序段后，i的值为【1】，s的值为【2】。
s=2
Fori=3.2To4.9Step0.8
s=s+1
Nexti
（2）把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
PrintChr（KeyCode）
EndSub
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
PrintChr（KeyAscii）
EndSub
程序运行后，如果直接按键盘上的"A"键（即不按住Shift键），则在窗体上输出的字符分别是【3】和【4】。
（3）在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
PrivateSubForm_Load（）
Timer1.Enabled=False
Timer1.Interval=【5】
EndSub
PrivateSubForm_Click（）
Timer1.Enabled=【6】
EndSub
PrivateSubTimer1_Timer（）
Label1.Caption=【7】
EndSub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。
请填空。
（4）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
PrivateSubCommand1_Click（）
S$=InputBox（"请输入一个字符串"）
Text1.Text=S$
EndSub
PrivateSubText1_Change（）
Label1.Caption=UCase（Mid（Text1.Text,7））
EndSub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"VisualBasic"，则在标签中显示的内容是【8】。
（5）在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为：
"第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。
程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示（选择"第三个项目"的情况）。
下面是实现上述功能的程序，请填空。
PrivateSubCommand1_Click（）
IfList1.ListIndex>=【9】Then
List1.RemoveItem【10】
Label1.Caption=【11】
Else
MsgBox"请选择要删除的项目"
EndIf
EndSub
（6）设有程序：
OptionBase1
PrivateSubCommand1_Click（）
Dimarr1,MaxasInteger
arr1=Array（12,435,76,24,78,54,866,43）
【12】=arr1
（1）
Fori=1To8
Ifarr1（i）>MaxThen【13】
Nexti
Print"最大值是:
";Max
EndSub
以上程序的功能是：
用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
请填空。
（7）以下程序的功能是：
把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。
请填空。
PrivateSubCommand1_Click（）
DiminDataAsString
Text1.Text=""
Open".\smtext1.txt"【14】As#1
DoWhile【15】
Input#1,inData
Text1.Text=Text1.Text&inData
Loop
Close#1
EndSub
全国计算机等级考试二级笔试试卷
VisualBasic语言程序设计
参考答案
一、选择题
（1）C
（2）A（3）B（4）B（5）C
（6）A（7）B（8）D（9）C（10）B
（11）A（12）D（13）A（14）A（15）B
（16）A（17）D（18）C（19）A（20）A
（21）B（22）C（23）C（24）A（25）C
（26）D（27）C（28）D（29）C（30）D
二、填空题
（1）【1】5.6【2】5
（2）【3】A【4】a
（3）【5】1000【6】True或任何非0数值【7】Time或Time$
（4）【8】BASIC
（5）【9】0【10】List1.ListIndex【11】List1.ListCount
（6）【12】Max【13】Max=arr1（i）
（7）【14】ForInput【15】NotEOF
（1）
10
升级会员 