2003年9月全国计算机等级考试二级VB语言笔试试题及答案Word文件下载.doc
- 文档编号:1249423
- 上传时间:2023-04-30
- 格式:DOC
- 页数:10
- 大小:47.50KB
2003年9月全国计算机等级考试二级VB语言笔试试题及答案Word文件下载.doc
《2003年9月全国计算机等级考试二级VB语言笔试试题及答案Word文件下载.doc》由会员分享,可在线阅读,更多相关《2003年9月全国计算机等级考试二级VB语言笔试试题及答案Word文件下载.doc(10页珍藏版)》请在冰点文库上搜索。
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的命令按钮,然后编写如下事件过程:
DimnumAsInteger
num=1
DoUntilnum>
6
Printnum;
num=num+2.4
Loop
EndSub
程序运行后,单击命令按钮,则窗体上显示的内容是。
A)13.45.8 B)135
C)147 D)无数据输出
(22)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
DimaAsInteger,sAsInteger
a=8
s=1
s=s+a
a=a-1
LoopWhilea<
=0
Prints;
a
A)79 B)340 C)97 D)死循环
(23)设有如下通用过程:
PublicFunctionf(xAsInteger)
DimyAsInteger
y=2
f=x*y
EndFunction
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
StaticxAsInteger
x=10
y=5
y=f(x)
Printx;
y
程序运行后,如果单击命令按钮,则在窗体上显示的内容是。
A)105 B)205 C)2040 D)1040
(24)设有如下通用过程:
PublicSubFun(a(),ByValxAsInteger)
Fori=1To5
x=x+a(i)
Next
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程:
Dimarr(5)AsVariant
arr(i)=i
n=10
CallFun(arr(),n)
Text1.Text=n
程序运行后,单击命令按钮,则在文本框中显示的内容是。
A)10 B)15 C)25 D)24
(25)在窗体上画一个名称为Command1的命令按钮,然后编写如下代码:
OptionBase1
d=0
c=10
x=Array(10,12,21,32,24)
Ifx(i)>
cThen
d=d+x(i)
c=x(i)
Else
d=d-c
EndIf
Nexti
Printd
程序运行后,如果单击命令按钮,则在窗体上输出的内容为。
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))
B)PrivateSubCommand1_Click()
Label3.Caption=HScroll1.Value*HScroll2.Value
C)PrivateSubCommand1_Click()
Label3.Caption=HScroll1*HScroll2
D)PrivateSubCommand1_Click()
Label3.Caption=HScroll1.Text*HScroll2.Text
(27)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Forn=1To20
IfnMod3<
>
0Thenm=m+n\3
Nextn
Printn
程序运行后,如果单击命令按钮,则窗体上显示的内容是。
A)15 B)18 C)21 D)24
(28)在窗体上画一个名称为Text1的文本框,并编写如下程序:
PrivateSubForm_Load()
Show
Text1.Text="
"
Text1.SetFocus
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Print"
程序设计"
PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
VisualBasic"
;
程序运行后,如果按"
键,然后单击窗体,则在窗体上显示的内容是。
A)VisualBasic B)程序设计 C)A程序设计 D)VisualBasic程序设计
(29)设有如下程序:
DimsumAsDouble,xAsDouble
sum=0
n=0
x=n/i
n=n+1
sum=sum+x
该程序通过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)
......
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
(2)把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:
PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
PrintChr(KeyCode)
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
PrintChr(KeyAscii)
程序运行后,如果直接按键盘上的"
键(即不按住Shift键),则在窗体上输出的字符分别是【3】和【4】。
(3)在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),然后编写如下几个事件过程:
Timer1.Enabled=False
Timer1.Interval=【5】
PrivateSubForm_Click()
Timer1.Enabled=【6】
PrivateSubTimer1_Timer()
Label1.Caption=【7】
程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟变换一次(见图)。
请填空。
(4)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:
S$=InputBox("
请输入一个字符串"
Text1.Text=S$
PrivateSubText1_Change()
Label1.Caption=UCase(Mid(Text1.Text,7))
程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串"
VisualBasic"
,则在标签中显示的内容是【8】。
(5)在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Command1和Label1,通过属性窗口把列表框中的项目设置为:
第一个项目"
第二个项目"
第三个项目"
第四个项目"
。
程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图所示(选择"
的情况)。
下面是实现上述功能的程序,请填空。
IfList1.ListIndex>
=【9】Then
List1.RemoveItem【10】
Label1.Caption=【11】
MsgBox"
请选择要删除的项目"
(6)设有程序:
Dimarr1,MaxasInteger
arr1=Array(12,435,76,24,78,54,866,43)
【12】=arr1
(1)
Fori=1To8
Ifarr1(i)>
MaxThen【13】
最大值是:
"
Max
以上程序的功能是:
用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。
(7)以下程序的功能是:
把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。
DiminDataAsString
Open"
.\smtext1.txt"
【14】As#1
DoWhile【15】
Input#1,inData
Text1.Text=Text1.Text&
inData
Close#1
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 2003 全国 计算机等级考试 二级 VB 语言 笔试 试题 答案