全国计算机等级考试二级VB笔试试题.docx
《全国计算机等级考试二级VB笔试试题.docx》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级VB笔试试题.docx（10页珍藏版）》请在冰豆网上搜索。
全国计算机等级考试二级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属性设置为&Open
B．把Caption属性设置为O&pen
C．把Name属性设置为&Open
D．把Name属性设置为O&pen
（5）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=InputBox（"Input"）
SelectCasex
Case1,3
Print"分支1"
CaseIs>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>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<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数组中元素的个数
升级会员 