历年全国VB二级考试真题大全.docx
- 文档编号:5448843
- 上传时间:2022-12-16
- 格式:DOCX
- 页数:194
- 大小:177.16KB
历年全国VB二级考试真题大全.docx
《历年全国VB二级考试真题大全.docx》由会员分享,可在线阅读,更多相关《历年全国VB二级考试真题大全.docx(194页珍藏版)》请在冰豆网上搜索。
历年全国VB二级考试真题大全
2002年9月全国计算机等级考试二级VB语言笔试试题及答案
一、选择题(每题2分,共70分)
下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。
(1)在设计阶段,当双击窗体上的某个控件时,所打开的窗口是
A)工程资源管理器窗口B)工具箱窗口
C)代码窗口D)属性窗口
(2)以下叙述中正确的是
A)窗体的Name属性指定窗体的名称,用来标识一个窗体
B)窗体的Name属性的值是显示在窗体标题栏中的文本
C)可以在运行期间改变对象的Name属性的值
D)对象的Name属性值可以为空
(3)刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是
A)单选按钮B)图片框C)通用对话框D)文本框
(4)设有如下变量声明
DimTestDateAsDate
为变量TestDate正确赋值的表达方式是
A)TextDate=#1/1/2002#B)TestDate=#“1/1/2002”#
C)TextDate=date(“1/1/2002”)D)TestDate=Format(“m/d/yy”,“1/1/2002”)
(5)设有如下声明:
DimXAsInteger
如果Sgn(X)的值为-1,则X的值是
A)整数B)大于0的整数C)等于0的整数D)小于0的数
(6)在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:
PrivateSubCommand1_Click()
StaticXAsInteger
StaticYAsInteger
Cls
Y=1
Y=Y+5
X=5+X
PrintX,Y
EndSub
程序运行时,三次单击命令按钮Commandl后,窗体上显示的结果为
A)1516B)156C)1515D)56
(7)设a=3,b=5,则以下表达式值为真的是
A)a%26gt;=bAndb%26gt;10B)(a%26gt;b)Or(b%26gt;0)
C)(a%26lt;0)Eqv(b%26gt;0)D)(-3+5%26gt;a)And(b%26gt;0)
(8)设有语句
x=InputBox(“输入数值”,“0”,“示例”)
程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述中正确的是
A)变量X的值是数值10B)在InputBox对话框标题栏中显示的是“示例”
C)0是默认值D)变量X的值是字符串“10”
(9)从键盘上输入两个字符串,分别保存在变量str1、str2中。
确定第二个字符串在第一个字符串中起始位置的函数是
A)LeftB)MidC)StringD)Instr
(10)设a=“VisualBasic”,下面使b=“Basic”的语句是
A)b=Left(a,8,12)B)b=Mid(a,8,5)
C)b=Rigth(a,5,5)D)b=Left(a,8,5)
(11)以下能够触发文本框Change事件的操作是
A)文本框失去焦点B)文本框获得焦点
C)设置文本框的焦点D)改变文本框的内容
(12)在窗体上有一个文本框控件,名称为TxtTime:
一个计时器控件,名称为Timerl,要求每一秒钟在文本框中显示一次当前的时间。
程序为:
PrivateSubTimer1_()
TxtTime.text=Time
EndSub
在下划线上应填入的内容是
A)EnabledB)VisibleC)IntervalD)Timer
(13)在窗体上画两个单选按钮,名称分别为Option1、Option2,标题分别为“宋体”和“黑体”;一个复选框,名称为Check1,标题为“粗体”;一个文本框,名称为Text1,Text属性为“改变文字字体”。
要求程序运行时,“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图),则能够实现上述要求的语句序列是
A)Option1.value=TrueB)Option1.Value=True
Check1.Value=FalseCheck1.Value=True
C)Option2.Value=FalseD)Option1.Value=True
Check1.Value=TrueCheck1.Value=1
(14)为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是
A)ValueB)DefaultC)CancelD)Enabled
(15)在窗体上画一个命令按钮,名称为Command1。
然后编写如下程序:
PrivateSubCommand1_Click()
ForI=1To4
ForJ=0To1
PrintChr$(65+I);
NextJ
NextI
EndSub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是
A)BBB)AC)BD)AA
CCBBCCBBB
DDDDCCCDDDCCCC
EEEEEDDDDEEEEDDDDD
(16)图像框有一个属性,可以自动调整图形的大小,以适应图像框的尺寸,这个属性是
A)AutosizeB)Stretch
C)AutoRedrawD)Appearance
(17)在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimxAsInteger,nAsInteger
x=1
n=0
DoWhilex<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
EndSub
程序运行后,单击命令按钮,在两个文本框中显示的值分别是
A)15和1B)27和3C)195和3D)600和4
(18)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimiAsInteger,nAsInteger
ForI=0To50
i=i+3
n=n+1
Ifi>10Thenxitfor
Next
Text1.Text=Str(n)
EndSub
程序运行后,单击命令按钮,在文本框中显示的值是
A)2B)3D)4D)5
(19)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Dimarray1(10,10)AsInteger
Dimi,jAsInteger
Fori=1To3
Forj=2To4
array1(i,j)=i+j
Nextj
NextI
Text1.Text=array1(2,3)+array1(3,4)
EndSub
程序运行后,单击命令按钮,在文本框中显示的值是
A)12B)13C)14D)15
(20)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger
Dima(10,10)AsInteger
Fori=1To3
Forj=1To3
a(i,j)=(i-1)*3+j
Printa(i,j);
Nextj
Nextj
EndSub
程序运行后,单击命令按钮,窗体上显示的是
A)123B)234C)147D)123
246345258456
369456369789
(21)设有如下程序:
OptionBase0
PrivateSubForm_Click()
Dima
DimiAsInteger
a=Array(1,2,3,4,5,6,7,8,9)
Fori=0To3
Printa(5-i);
Next
EndSub
程序运行后,单击窗体,则在窗体上显示的是
A)4321B)5432C)6543D)7654
(22)下列叙述中正确的是
A)在窗体的Form_Load事件过程中定义的变量是全局变量
B)局部变量的作用域可以超出所定义的过程
C)在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名,但其作用域只限于该过程
D)在调用过程时,所有局部变量被系统初始化为0或空字符串
(23)在窗体上画一个命令按钮,名称为Command1。
程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1。
在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。
能够正确实现上述功能的代码是
A)PrivateSubCommand1_Click()
x=InputBox(“请输入整数”)
a=F1(Val(x))
Printa
EndSub
FunctionF1(ByRefbAsInteger)
IfbMod2=0Then
Return0
Else
Return1
EndIf
EndFunction
B)PrivateSubCommand1_Click()
x=InputBox(“请输入整数”)
a=F1(Val(x))
Printa
EndSub
FunctionF1(ByRefbAsInteger)
IfbMod2=0Then
F1=0
Else
F1=1
EndIf
EndFunction
C)PrivateSubCommand1_Click()
x=InputBox(“请输入整数”)
F1(Val(x))
Printa
EndSub
FunctionF1(ByRefbAsInteger)
IfbMod2=0Then
F1=1
Else
F1=0
EndIf
EndFunction
D)PrivateSubCommand1_Click()
x=InputBox(“请输入整数”)
F1(Val(x))
Printa
EndSub
FunctionF1(ByRefbAsInteger)
IfbMod2=0Then
Return0
Else
Return1
EndIf
EndFunction
(24)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:
PrivateSubCommand1_Click()
Dimx,y,zAsInteger
x=5
y=7
z=0
Text1.text=“”
CallP1(x,y,z)
Text1.Text=Str(x)
EndSub
SubP1(ByValaAsInteger,ByValbAsInteger,cAsInteger)
c=a+b
EndSub
程序运行后,如果单击命令按钮,则在文本框中显示的内容是
A)0B)12C)Str(z)D)没有显示
(25)以下叙述中错误的是
A)如果过程被定义为Static类型,则该过程中的局部变量都是Static类型
B)Sub过程中不能嵌套定义Sub过程
C)Sub过程中可以嵌套调用Sub过程
D)事件过程可以像通用过程一样由用户定义过程名
(26)以下叙述中错误的是
A)在KeyUp和KeyDown事件过程中,从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)
B)在KeyUp和KeyDown事件过程中,将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)
C)KeyPress事件中不能识别键盘上某个键的按下与释放
D)KeyPress事件中可以识别键盘上某个键的按下与释放
(27)以下叙述中错误的是
A)在同一窗体的菜单项中,不允许出现标题相同的菜单项
B)在菜单的标题栏中,“%26”所引导的字母指明了访问该菜单项的访问键
C)程序运行过程中,可以重新设置菜单的Visible属性
D)弹出式菜单也在菜单编辑器中定义
(28)设在菜单编辑器中定义了一个菜单项,名为menu1。
为了在运行时隐藏该菜单项,应使用的语句是
A)menu1.Enabled=TrueB)Munu1.Enabled=False
C)Menu1.Visible=TrueD)Menu1.Visible=False
(29)以下叙述中错误的是
A)在程序运行时,通用对话框控件是不可见的
B)在同一个程序中,用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具有不同的作用
C)调用通用对话框控件的ShowOpen方法,可以直接打开在该通用对话框中指定的文件
D)调用通用对话框控件的ShowColor方法,可以打开颜色对话框
(30)在用通用对话框控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是
A)“text(.txt)|(*.txt)”B)“文本文件(.txt)|(.txt)”
C)“text(.txt)||(*.txt)”D)“text(.txt)(*.txt)”
(31)以下叙述中错误的是
A)一个工程中只能有一个SubMain过程
B)窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
C)窗体的Hide方法和Unload方法的作用完全相同
D)若工程文件中有多个窗体,可以根据需要指定一个窗体为启动窗体
(32)以下叙述中错误的是
A)一个工程中可以包含多个窗体文件
B)在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C)在设计VB程序时,窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D)全局变量必须在标准模块中定义
(33)设在工程中有一个标准模块,其中定义了如下记录类型
TypeBooks
NameAsString*10
TelNumAsString*20
EndType
在窗体上画一个名为Command1的命令按钮。
要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。
下列能够完成该操作的事件过程是
A)PrivateSubCommand1_Click()
DimBAsBooks
Open“c:
\Person.txt”ForOutputAs#1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
Write#1,B.Name,B.TelNum
Close#1
EndSub
B)PrivateSubCommand1_Click()
DimBAsBooks
Open“c:
\Person.txt”ForInputAs#1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
Print#1,B.Name,B.TelNum
Close#1
EndSub
C)PrivateSubCommand1_Click()
DimBAsBooks
Open“c:
\Person.txt”ForOutputAs#1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
Write#1,B
Close#1
EndSub
D)PrivateSubCommand1_Click()
Open“c:
\Person.txt”ForInputAs#1
Name=InputBox(“输入姓名”)
TelNum=InputBox(“输入电话号码”)
Print#1,Name,TelNum
Close#1
EndSub
(34)以下叙述中正确的是
A)一个记录中所包含的各个元素的数据类型必须相同
B)随机文件中每个记录的长度是固定的
C)Open命令的作用是打开一个已经存在的文件
D)使用Input#语句可以从随机文件中读取数据
(35)目录列表框的Path属性的作用是
A)显示当前驱动器或指定驱动器上的目录结构
B)显示当前驱动器或指定驱动器上的某目录下的文件名
C)显示根目录下的文件名
D)显示该路径下的文件
二、填空题(每空2分,共40分)
请将每空的正确答案写在答题卡
(1)至(15)的横线上,答在试卷上不得分。
(1)在窗体上画两个标签,其名称分别为Label1和Label2,Caption属性分别为“数值”及空白;然后画一个名称为Hscoll1的水平滚动条,其Min的值为0,Max的值为100。
程序运行后,如果单击滚动条两端的箭头,则在标签Lable2中显示滚动条的值,如图所示。
请在[1]和[2]处填入适当的内容,将程序补充完整。
PrivateSubHScroll1_[1]()
Labl2.Caption=HScroll1.[2]
EndSub
(2)在窗体上画一个名称为Command1、标题为“计算”的命令按钮;画两个文本框,名称分别为Text1和Text2;然后画4个标签,名称分别为Label1、Label2、Label3和Label4,标题分别为“操作数1”、“操作数2”、“运算结果”和空白;再建立一个含有4个单选按纽的控件数组,名称为Option1,标题分别为“+”、“-”、“*”和“/”。
程序运行后,在Text1、Text2中输入两个数值,选中一个单选按钮后单击命令按钮,相应的计算结果显示在Label4,程序运行情况如图所示。
请在[3]、[4]和[5]处填入适当的内容,将程序补充完整。
PrivateSubCommand1_Click()
Fori=0To3
If[3]=Truethen
opt=Option1(i).Caption
EndIf
Next
SelectCase[4]
Case”+”
Result=Val(Text1.Text)+Val(Text2.Text)
Case”-”
Result=Val(Text1.Text)-Val(Text2.Text)
Case”*”
Result=Val(Text.Text)*Val(Text2.Text)
Case”/”
Result=Val(Text1.Text)/Val(Text2.Text)
EndSelect
[5]=Result
EndSub
(3)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。
程序运行后,Command1为禁用(灰色)。
当向文框中输入任何字符时,命令按钮Command1变为可用。
请在[6]处填入适当的内容,将程序补充完整。
PrivateSubForm_Load()
Command1.Enabled=False
EndSub
PrivateSubText1_[6](
)
Command1.Enabled=True
EndSub
(4)在菜单编辑器中建立了一个菜单,名为pmenu,用下面的语句可以把它作为弹出式菜单弹出,请填空。
Form1.[7]Pmenu
(5)以下程序的功能是:
从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。
请在[8]和[9]处填入适当的内容,将程序补充完整。
PrivateSubForm_Click()
DimxAsSingle,amaxAsSingle,aminAsSingle
x=InputBox(“Enterascore”)
amax=x
amin=x
DoWhile[8]
Ifx>amaxThen
Amax=x
EndIf
If[9]Then
Amin=x
EndIf
x=InputBox(“Enterascore”)
Loop
Print”Max=”;amax,”Min=”;amin
EndSub
(6)在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
PrivateSubForm_Load()
Text1.Text=”计算机”
EndSub
PrivateSubText1_Change()
Picture1.Print“等级考试”
EndSub
程序运行后,在文本框中显示的内容是[10],而在图片框中显示的内容是[11]。
(7)在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:
FunctionM(xAsInteger,yAsInteger)AsInteger
M=IIf(x>y,x,y)
EndFunction
PrivateSubcommand1_Click()
DimaAsInteger,bAsInteger
a=100
b=200
PrintM(a,b)
EndSub
程序运行后,单击命令按钮,输出结果为[12]。
(8)为了改变计时器控件的时间间隔,应该修改该控件的[13]属性。
(9)在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。
程序运行后,在列表框中添加若干列表项。
当双击列表框中的某个
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 历年 全国 VB 二级 考试 大全