全国计算机等级考试二级vb笔试真题附答案.docx
- 文档编号:27038315
- 上传时间:2023-06-26
- 格式:DOCX
- 页数:20
- 大小:21.31KB
全国计算机等级考试二级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
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 全国 计算机等级考试 二级 vb 笔试 真题附 答案