全国计算机等级考试二级VB语言笔试试题及答案完整版.docx
- 文档编号:14887488
- 上传时间:2023-06-28
- 格式:DOCX
- 页数:21
- 大小:155.53KB
全国计算机等级考试二级VB语言笔试试题及答案完整版.docx
《全国计算机等级考试二级VB语言笔试试题及答案完整版.docx》由会员分享,可在线阅读,更多相关《全国计算机等级考试二级VB语言笔试试题及答案完整版.docx(21页珍藏版)》请在冰点文库上搜索。
全国计算机等级考试二级VB语言笔试试题及答案完整版
2003年4月全国计算机等级考试二级VB语言笔试试题及答案
一、选择题(
(1)一(20)每小题2分,(21)一(30)每小题3分,共30题,70分)下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的,请将正确选项涂在答题卡的相应位置上,答在试卷上不得分。
(1)以下不能在“工程资源管理器”窗口中列出的文件类型是
A).bas
B).res
C).frm
D).ocx
(2)以下关于窗体的描述中,错误的是
A)执行UnloadForml语句后,窗体Forml消失,但仍在内存中
B)窗体的Ioad事件在加载窗体时发生
C)当窗体的Enabled属性为False时,通过鼠标和键盘对窗体的操作都被禁止
D)窗体的Height、width属性用于设置窗体的高和宽
(3)下列可作为VisualBasic变量名的是
A)A#A
B)4A
C)?
xY
D)constA
(4)设有如下的记录类型
TypeStudent
numberAsString
nameAsString
ageAsInteger
EndType
则正确引用该记录类型变量的代码是
A)Student.name=”张红”
B)DimsAsStudent
s.name=”张红”
C)DimsAsTypeStudent
S.name=”张红”
D)DimsAsType
s.name=”张红”
(5)函数String(n,“str”)的功能是
A)把数值型数据转换为字符串
B)返回由n个字符组成的字符串
C)从字符串中取出n个字符
D)从字符串中第n个字符的位置开始取子字符串
(6)将数学表达式cos2(a+b)+5e2写成VisualBasic的表达式,其正确的形式是
A)Cos(a+b)^2+5*Exp
(2)
B)Cos^2(a+b)+5*Exp
(2)
C)Cos(a+b)^2+5*ln
(2)
D)Cos^2(a+b)+5*ln
(2)
(7)在窗体上画一个命令按钮,名称为Commandl。
单击命令按钮时,执行如下事件过
程:
PrivateSubCommandl_C1ick()
a$="softwareandhardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
Msgboxa$,,b$,c$,1
EndSub
则在弹出的信息框的标题栏中显示的信息是
A)softWareandhardware
B)software
C)hardwafe
D)1
(8)执行如下语句:
a=InputBox("today","Tomorrow","yesterday","daybeforeyesterday",5)
将显示一个输入对话框,在对话框的输入区中显示的信息是
A)Today
B)Tomorrow
C)Yesterday
D)Daybeforeyesterday
(9)表示滚动条控件取值范围最大值的属性是
A)Max
B)LargeChange
C)Value
D)Max—Min
(10)在窗体上画一个名称为Listl的列表框,一个名称为Labell的标签。
列表框中显示若干城市的名称。
当单击列表框中的某个城市名时,在标签中显示选中城市的名称。
下列能正确实现上述功能的程序是
A)PrivateSublistl_Click()
Labell.Caption=List1.ListIndex
EndSub
B)PrivateSubListl_C1ick()
Labell.Name=Listl.ListIndex
EndSub
C)PrivateSublistl_Click()
Labell.Name=List1.Text
EndSub
D)PrivateSublistl_Click()
Labell.Caption=List1.Text
EndSub
(15)假定有以下函数过程:
FunctionFun(SAsString)AsString
Dims1AsString
Fori=1ToLen(S)
s1=UCase(Mid(S,i,1))十s1
Nexti
Fun=s1
EndFunction
在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommandl_Click()
DimStr1AsString,Str2AsString
Strl=InputBox("请输入一个字符串")
Str2=Fun(Strl)
PrintStr2
EndSub
程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确
定”按钮后在窗体上的输出结果为
A)abcdefg
B)ABCDEFG
C)gfedcba
D)GFEDCBA
(16)设有语句
open"c:
\Test.Dat"ForOutPutAs#1
则以下错误的叙述是
A)该语句打开C盘根目录下一个己存在的文件Test.Dat
B)该语句在C盘根目录下建立一个名为Test.Dat的文件
C)该语句建立的文件的文件号为1
D)执行该语句后,就可以通过Print#语句向文件Test.Dat中写入信息
(17)以下叙述中错误的是
A)用Shell函数可以调用能够在Windows下运行的应用程序
B)用Shell函数可以调用可执行文件,也可以调用VisualBasic的内部函数
C)调用Shell函数的格式应为:
<变量名>=Shell(……)
D)用Shell函数不能执行DOS命令
(18)以下关于过程及过程参数的描述中,错误的是
A)过程的参数可以是控件名称
B)用数组作为过程的参数时,使用的是“传地址”方式
C)只有函数过程能够将过程中处理的信息传回到调用的程序中
D)窗体可以作为过程的参数
(19)在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:
PrivateSubTxtA_KeyPress(keyasciiasinteger)
EndSub
若焦点位于文本框中,则能够触发KeyPress事件的操作是
A)单击鼠标
B)双击文本框
C)鼠标滑过文本框
D)按下键盘上的某个键
(20)目录列表框的Path属性的作用是
A)显示当前驱动器或指定驱动器上的路径
B)显示当前驱动器或指定驱动器上的某目录下的文件名
C)显示根目录下的文件名
D)只显示当前路径下的文件
(21)假定有如下事件过程:
PrivateSubForm_MouseDown(buttonAsInteger,shiftAsInteger,_
xAsSingle,yAsSingle)
IfButton=2then
PopUpMenupopForm
Endif
EndSub
则以下描述中错误的是
A)该过程的功能是弹出一个菜单
B)popForm是在菜单编辑器中定义的弹出式菜单的名称
C)参数X、Y指明鼠标的当前位置
D)Button=2表示按下的是鼠标左键
(22)以下能够正确计算n!
的程序是
A)PrivateSubCommandl_ClicK()
n=5:
x=1
Do
X=x*i
i=i十1
LoopWhilei<n
Printx
EndSub
B)PrivateSubCommandl_Click()
n=5:
x=1:
i=1
Do
X=X*i
i=i十1
LoopWhilei<n
Printx
EndSub
C)PrivateSubCommandl_Click()
n=5:
x=1:
i=1
Do
X=X*i
i=i十1
Loopwhilei<=n
Printx
EndSub
D)PrivateSubCommandl_C1ick()
n=5:
x=1:
i=1
Do
X=X*i
i=i十1
loopWhilei>n
Printx
EndSub
(23)在窗体上画一个名称为Commandl的命令按钮,再画两个名称分别为Labell、Label2的标签,然后编写如下程序代码:
PrivatexAsInteger
PrivateSubCommandl_Click()
X=5:
Y=3
Callproc(X,Y)
Labell.Caption=X
Label2.Caption=Y
EndSub
PrivateSubproc(ByValaAsInteger,ByValbAsInteger)
x=a*a
Y=b+b
EndSub
程序运行后,单击命令按钮,则两个标签中显示的内容分别是
A)5和3
B)25和3
C)25和6
D)5和6
(24)在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后编写如下事件过程:
PrivateSubCommandl_C1ick()
S=0
Fori=1To15
x=2*i-1
1fxMod3=0Thens=s+1
Nexti
Labell.Caption=s
EndSub
程序运行后,单击命令按钮,则标签中显示的内容是
A)1
B)5
C)27
D)45
(25)在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2、Label3的标签,然后编写如下代码:
PrivatexAsInteger
PrivateSubCommand1_C1ick()
StaticyAsInteger
DimzAsInteger
n=10
z=n+z
y=y+z
X=X+Z
Labell.Caption=x
Label2.Caption=y
Label3.Caption=z
EndSub
运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是
A)101010
B)303030
C)303010
D)103030
(26)设在窗体上有一个名称为Commandl的命令按钮,并有以下事件过程:
PrivateSubCommandl_C1ick()
StaticbAsVariant
b=Array(1,3,5,7,9)
……
……
EndSub
此过程的功能是把数组b中的5个数逆序存放(即排列为9,7,5,3,1)。
为实现此功能,省略号处的程序段应该是
A)Fori=0To5-1\2
tmp=b(i)
b(i)=b(5-i-1)
b(5-i-1)=tmp
Next
B)fori=0To5
tmp=b(i)
b(i)=b(5-i-1)
b(5-i-1)=tmp
Next
C)Fori=0To5\2
tmp=b(i)
b(i)=b(5-i-1)
b(5-i-1)=tmp
Next
D)Fori=1T05\2
tmp=b(i)
b(i)=b(5-i-1)
b(5-i-1)=tmp
Next
(27)在窗体上画一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,两个名称分别为Labell、Label2,标题分别为空白和“共有文件”的标签。
编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签Labell中显示当前文件夹中文件的数量。
如图所示。
能够正确实现上述功能的程序是
A)PrivateSubDirl_Change()
Filel.Path=Dir1.path
EndSub
PrivateSubDrivel_Change()
Dirl.Path=Drivel.Drive
Labell.Caption=Filel.listCount
EndSub
B)PrivateSubDir1_Change()
Filel.path=dir1.Path
EndSub
PrivateSubDrive1_Change()
Dirl.Path=Drivel.Drive
Labell.Captlon=file1.list
EndSub
C)PrivateSubDirl_Change()
Filel.Path=Dirl.Path
Labell.Caption=Filel.ListCount
EndSub
PrivateSubDrivel_Change()
Dirl.Path=Drivel.Drive
Labell.Caption=Filel.ListCount
EndSub
D)PrivateSubDirl_Change()
filel.Path=Dir1.Path
Labell.Caption=Filel.List
EndSub
PrivateSubDrivel_Change()
Dir1.Path=Drivel.Drive
Labell.Caption=Filel.list
EndSub
(28)一个工程中包含两个名称分别为Forml、Form2的窗体,一个名称为mdlFunc的标准模块。
假定在Forml、Form2和mdlFunc中分别建立了自定义过程,其定义格式为:
Forml中定义的过程:
PrivateSubfrmfunctionl()
EndSub
Form2中定义的过程:
PublicSubfrmffunction2()
EndSub
mdlFunc中定义的过程:
PublicSubmdlFunction()
EndSub
在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是
A)上述三个过程都可以在工程中的任何窗体或模块中被调用
B)frmfunction2和mdlfunction过程能够在工程中各个窗体或模块中被调用
C)上述三个过程都只能在各自被定义的模块中调用
D)只有mdlFunction过程能够被工程中各个窗体或模块调用
(29)窗体上有两个名称分别为Textl、Text2的文本框,一个名称为Commandl的命令按钮。
运行后的窗体外观如图所示。
设有如下的类型声明
TypePerson
nameAsString*8
majorAsString*20
EndType
当单击“保存”按钮时,将两个文本框中的内容写入一个随机文件Test29.dat中。
设文本框中的数据已正确地赋值给Person类型的变量p。
则能够正确地把数据写入文件的程序段是
A)Open"c:
\Test29.dat"ForRandomAs#1
Put#1,1,p
Close#1
B)Open"c:
\Test29.dat"ForRandomAs#1
Get#1,1,p
Close#1
C)Open"c\Test29.dat"ForRandomAs#1Len=Len(p)
Put#1,1,p
Close#1
D)Open"c:
\Test29.dat"ForRandomAs#1=Len(p)
Get#1,1,p
Close#1
(30)在窗体上画一个名称为CommonDialogl的通用对话框,一个名称为Commandl的命令按钮。
要求单击命令按钮时,打开一个保存文件的通用对话框。
该窗口的标题为"Save",缺省文件名为“SaveFile”,在“文件类型”栏中显示*.txt。
则能够满足上述要求的程序是
A)PrivateSubCommand_C1ick()
Commondialogl.FileName=“Savefile”
Commondialogl.filter="AllFiles|*.*|(*.txt)|*.txt|(*.doc).|*.doc"
CommonDialogl.Filterindex=2
CommonDialogl.DialogTitle="Save"
CommonDialogl.Action=2
EndSub
B)PrivateSubCommandl—Click()
CommonDialogl.FileName="SaveFile"
CommonDiaLogl.Filter="A11Files|*.*|(*.txt)|*.txt|*.doc|*.doc"
CommonDialogl.FilterIndex=1
CommonDialogl.DialogTitle="Save"
CommonDialogl.Action=2
EndSub
C)PrivateSubCmmandl_C1ick()
CommonDialogl.FileName="Save"
CommonDialogl.FiLter="A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
CommonDialogl.Filterindex=2
CommonDialogl.DialogTitle="SaveFile"
CommonDialogl.Action=2
EndSub
D)PrivateSubCommandl_C1ick()
CommonDialogl.FileName="SaveFile"
CommonDialogl.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
CommonDialogl.FilterIndex=1
CommonDialogl.DialogTitle=“Save”
CommonDialogl.Action=1
EndSub
二、填空题(每空2分,共30分)
请将每空的正确答案写在答题卡[1]一[15序号的横线上,答在试卷上不得分。
(1)visualBasic中有一种控件组合了文本框和列表框的特性,这种控件是_________【1】
(2)VisualBasic提供的对数据文件的三种访问方式为随机访问方式_______【2】和二进制访问方式。
(3)执行下面的程序段后,变量S的值为_________【3】。
S=5
Fori=2.6To4.9Step0.6
S=S+1
Nexti
(4)为了在运行时把d:
\pic文件夹下的图形文件a.jpg装入图片框Picturel,所使用的语句为________________________________【4】。
(5)计时器控件能有规律的以一定时间间隔触发________【5】事件,并执行该事件过程中的程序代码。
(6)以下程序的功能是:
生成20个100到300之间的随机整数,输出其中能被5整除的数并求出它们的和。
请填空。
PrivateSubCommandl_C1ick()
Fori=1To20
x=Int(_____【6】*200+100)
If_________【7】=0Then
Printx
S=S+______【8】
EndIf
Nexti
Print“Sum=”;S
EndSub
(7)设有如下程序
PrivateSubForm_Click()
DimaAsInteger,bAsInteger
a=20:
b=50
pla,b
p2a,b
p3a,b
Print"a=";a,"b=";b
EndSub
Subpl(xAsInteger,ByValyAsInteger)
x=x+10.
y=y+20
EndSub
Subp2(ByValxAsInteger,yAsInteger)
x=x+10
y=y+20
EndSub
Subp3(ByValxAsInteger,ByValyAsInteger)
x=x+10
y=y+20
EndSub
该程序运行后,单击窗体,则在窗体上显示的内容是:
a=____【9】和b=_____【10】。
(8)在窗体上画一个名称为Commandl的命令按钮,编写如下事件过程
PrivateSubCommandl_Click()
DimaAsString
a=_________【11】
Fori=1To5
PrintSpace(6—i);Mid$3(a,6—i,2*i—1)
Nexti
EndSub
程序运行后,单击命令按钮,要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。
(9)在窗体上画一个名称为Combo1的组合框,画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。
程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”如图所示;如果存在,则在Label2中给出提示“输入项已在组合框中”。
请在[12]、[13]和[14]处将程序补充完整。
PrivateSubCombol_________【12】(KeyAsciiAsinteger)
1fKeyAscii=13Then
Fori=0ToCombo1.listCount-1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 全国 计算机等级考试 二级 VB 语言 笔试 试题 答案 完整版
![提示](https://static.bingdoc.com/images/bang_tan.gif)