二级VB考试模拟练习题1附答案及解析.docx
《二级VB考试模拟练习题1附答案及解析.docx》由会员分享，可在线阅读，更多相关《二级VB考试模拟练习题1附答案及解析.docx（10页珍藏版）》请在冰豆网上搜索。
二级VB考试模拟练习题1附答案及解析
2009年9月二级VB考试模拟练习题1（附答案及解析）
一、选择题
（1）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Move500,500
EndSub
程序运行后，单击命令按钮，执行的操作为
A）命令按钮移动到距窗体左边界、上边界各500的位置
B）窗体移动到距屏幕左边界、上边界各500的位置
C）命令按钮向左、上方向各移动500
D）窗体向左、上方向各移动500
正确答案:
B
（2）在窗体上有若干控件，其中有一个名称为Text1的文本框。
影响Text1的Tab顺序的属性是
A）TabStop
B）Enabled
C）Visible
D）TabIndex
正确答案:
D
（3）以下定义数组或给数组元素赋值的语句中，正确的是
A）DimaAsVariant
a=Array（1,2,3,4,5）
B）Dima（10）AsInteger
a=Array（1,2,3,4,5）
C）Dima%（10）
a
（1）="ABCDE"
D）Dima（3）,b（3）AsInteger
a（0）=0
a
（1）=1
a
（2）=2
b=a
正确答案:
A
（4）在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为
A）Fori=0ToList1.ListCount-1
……
Next
B）Fori=0ToList1.Count-1
……
Next
C）Fori=1ToList.ListCount
……
Next
D）Fori=1ToList1.Count
……
Next
正确答案:
A
（5）以下Case语句中错误的是
A）Case0To10
B）CaseIs>10
C）CaseIs>10AndIs<50
D）Case3,5,Is>10
正确答案:
C
（6）以下关于图片框控件的说法中，错误的是
A）可以通过Print方法在图片框中输出文本
B）清空图片框控件中图形的方法之一是加载一个空图形
C）图片框控件可以作为容器使用
D）用Stretch属性可以自动调整图片框中图形的大小
正确答案:
D
（7）执行语句s=Len（Mid（"VisualBasic",1,6））后，s的值是
A）Visual
B）Basic
C）6
D）11
正确答案:
C
（8）以下叙述中错误的是
A）下拉式菜单和弹出式菜单都用菜单编辑器建立
B）在多窗体程序中，每个窗体都可以建立自己的菜单系统
C）除分隔线外，所有菜单项都能接收Click事件
D）如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
正确答案:
D
（9）在窗体上画一个命令按钮，其名称为Command1,然后编写如下事件过程：
PrivateSubCommand1_Click（）
a=12345
PrintFormat＄（a,"000.00"）
EndSub
程序运行后，单击命令按钮，窗体上显示的是
A）123.45
B）12345.00
C）12345
D）00123.45
正确答案:
B
（10）以下叙述中错误的是
A）一个工程可以包括多种类型的文件
B）VisualBasic应用程序既能以编译方式执行，也能以解释方式执行
C）程序运行后，在内存中只能驻留一个窗体
D）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
正确答案:
C
（11）以下关于函数过程的叙述中，正确的是
A）函数过程形参的类型与函数返回值的类型没有关系
B）在函数过程中，过程的返回值可以有多个
C）当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D）如果不指明函数过程参数的类型，则该参数没有数据类型
正确答案:
A
（12）以下关于变量作用域的叙述中，正确的是
A）窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B）全局变量必须在标准模块中声明
C）模块级变量只能用Private关键字声明
D）Static类型变量的作用域是它所在的窗体或模块文件
正确答案:
B
（13）确定一个控件在窗体上的位置的属性是
A）Width和Height
B）Width或Height
C）Top和Left
D）Top或Left
正确答案:
C
（14）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Text1.Text="Visual"
Me.Text1="Basic"
Text1="Program"
EndSub
程序运行后，如果单击命令按钮，则在文本框中显示的是
A）Visual
B）Basic
C）Program
D）出错
正确答案:
C
（15）以下关系表达式中，其值为False的是
A）"ABC">"AbC"
B）"the"<>"they"
C）"VISUAL"=UCase（"Visual"）
D）"Integer">"Int"
正确答案:
A
（16）语句Print5/4*6＼5Mod2的输出结果是
A）0
B）1
C）2
D）3
正确答案:
B
（17）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程：
PrivateSubCommand1_Click（）
strText=InputBox（"请输入"）
Text1.Text=strText
EndSub
PrivateSubText1_Change（）
Label1.Caption=Right（Trim（Text1.Text）,3）
EndSub
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef,则在标签中显示的内容是
A）空
B）abcdef
C）abc
D）def
正确答案:
D
（18）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=-5
IfSgn（x）Then
y=Sgn（x∧2）
Else
y=Sgn（x）
EndIf
Printy
EndSub
程序运行后，单击命令按钮，窗体上显示的是
A）-5
B）25
C）1
D）-1
正确答案:
C
（19）一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger。
则以下叙述中正确的是
A）变量X、Y的作用域相同
B）Y的作用域是Model1
C）在Form1中可以直接使用X
D）在Form2中可以直接使用X和Y
正确答案:
C
（20）在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。
当改变当前驱动器时，目录列表框应该与之同步改变。
设置两个控件同步的命令放在一个事件过程中，这个事件过程是
A）Drive1_Change
B）Drive1_Click
C）Dir1_Click
D）Dir1_Change
正确答案:
A
（21）在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：
OptionBase1
PrivateSubCommand1_Click（）
Dima
s=0
a=Array（1,2,3,4）;j=1
Fori=4To1Step-1
s=s+a（i）*j
j=j*10
Nexti
Prints
EndSub
运行上面的程序，单击命令按钮，其输出结果是
A）4321
B）1234
C）34
D）12
正确答案:
B
（22）在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。
以下能实现该操作的事件过程是A）PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii<65OrKeyAscii>90Then
MsgBox"请输入大写字母"
KeyAscii=0
EndIf
EndSub
B）PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfKeyCode<65OrKeyCode>90Then
MsgBox"请输入大写字母"
KeyCode=0
EndIf
EndSub
C）PrivateSubText1_MouseDown（ButtonAsInteger,_
ShiftAsInteger,XAsSingle,YAsSingle）
IfAsc（Text1.Text）<65OrAsc（Text1.Text）>90Then
MsgBox"请输入大写字母"
EndIf
EndSub
D）PrivateSubText1_Change（）
IfAsc（Text1.Text）>64AndAsc（Text1.Text）<91Then
MsgBox"请输入大写字母"
EndIf
EndSub
正确答案:
A
（23）假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：
PrivateTypeanimal
animalNameAsString*20
aColorAsString*10
EndType
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimrecAsanimal
Open"c:
＼vbTest.dat"ForRandomAs#1Len=Len（reC）
rec.animalName="Cat"
rec.aColor="White"
Put#1,,rec
Close#1
EndSub
则以下叙述中正确的是
A）记录类型animal不能在Form1中定义，必须在标准模块中定义
B）如果文件c:
＼vbTest.dat不存在，则Open命令执行失败
C）由于Put命令中没有指明记录号，因此每次都把记录写在文件的末尾
D）语句"Put#1,,rec"将animal类型的两个数据元素写到文件中
正确答案:
D
（24）在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
PrivateSubCommand1_Click（）
n=Val（Text1.Text）
Ifn＼2=n/2Then
f=f1（n）
Else
f=f2（n）
EndIf
Printf;n
EndSub
PublicFunctionf1（ByRefx）
x=x*x
f1=x+x
EndFunction
PublicFunctionf2（ByValx）
x=x*x
f2=x+x+x
EndFunction
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是
A）7236
B）10836
C）726
D）1086
正确答案:
A
（25）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
c=1234
c1=Trim（Str（C））
Fori=1To4
PrintNext
EndSub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
1
12
123
1234
则在下划线处应填入的内容为
A）Right（c1,i）
B）Left（c1,i）
C）Mid（c1,i,1）
D）Mid（c1,i,i）
正确答案:
B
（26）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
PrivateSubCommand1_Click（）
n=Val（Text1.Text）
Fori=2Ton
Forj=2ToSqr（i）
IfiModj=0ThenExitFor
Nextj
Ifj>Sqr（i）ThenPrinti
Nexti
EndSub
该事件过程的功能是
A）输出n以内的奇数
B）输出n以内的偶数
C）输出n以内的素数
D）输出n以内能被j整除的数
正确答案:
C
（27）以下描述中正确的是
A）标准模块中的任何过程都可以在整个工程范围内被调用
B）在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
C）如果工程中包含SubMain过程，则程序将首先执行该过程
D）如果工程中不包含SubMain过程，则程序一定首先执行第一个建立的窗体
正确答案:
B
（28）在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
PrivateFunctionf（mAsInteger）
IfmMod2=0Then
f=m
Else
f=1
EndIf
EndFunction
PrivateSubCommand1_Click（）
DimiAsInteger
s=0
Fori=1To5
s=s+f（i）
Next
Prints
EndSub
程序运行后，单击命令按钮，在窗体上显示的是
A）11
B）10
C）9
D）8
正确答案:
C
（29）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Dimarray1（10,10）AsInteger
DimiAsInteger,jAsInteger
Fori=1To3
Forj=2To4
array1（i,j）=i+j
Nextj
Nexti
Text1.Text=array1（2,3）+array1（3,4）
EndSub
程序运行后，单击命令按钮，在文本框中显示的值是
A）15
B）14
C）13
D）12
正确答案:
D
（30）在窗体上画4个文本框（如图所示）并用这4个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程：
PrivateSubCommand1_Click（）
ForEachTextBoxInText1
Text1（i）=Text1（i）Index
i=i+1
Next
EndSub
程序运行后，单击命令按钮，4个文本框中显示的内容分别为
A）0123
B）1234
C）0132
D）出错信息
正确答案:
A
二、填空题
（1）VisualBasic应用程序中标准模块文件的扩展名是【1】。
正确答案:
1.（.bas）
（2）在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit,Visible属性为False。
程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。
以下是实现上述功能的程序，请填空。
PrivateSubForm【2】（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2Then
【3】mnuEdit
EndIf
EndSub
正确答案:
1.（MouseDown）2.（PopupMenu）
（3）为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【4】属性设置为【5】。
正确答案:
1.（Interval）2.（500）
（4）与数学表达式对应的VisualBasic表达式是【6】。
正确答案:
1.（（（Cos（a+B））^2）/（3*x）+5）
（5）将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【7】。
正确答案:
1.（Picture1.Picture=LoadPicture（"c:
\moon.jpg"））
（6）在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名数为Option1。
程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示。
请填空。
PrivateSubOption1_Click（IndexAsInteger）
SelectCase【8】
Case0
a="宋体"
Case1
a="黑体"
Case2
a="楷体"
EndSelect
Text1【9】=a
EndSub
正确答案:
1.（Index）2.（FontName）
（7）在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示。
程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
请填空。
PrivateSubCombo1_Click（）
CallShowItem（Combo1,Label1）
EndSub
PrivateSubCombo2_Click（）
CallShowItem（Combo2,Label2）
EndSub
PublicSubShowItem（tmpComboAsComboBox,tmpLabelAsLabel）
【10】Caption=【11】Text
EndSub
正确答案:
1.（tmpLabel）2.（tmpCombo）
（8）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
n=5
f=1
s=0
Fori=1Ton
f=f【12】
s=s+f
Next
Prints
EndSub
该事件过程的功能是计算的值。
请填空。
正确答案:
1.（/i）
（9）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click（）
Dima（10）AsInteger
Fori=1To10
a（i）=i
Next
Callswap（【13】）
Fori=1To10
Printa（i）;
Next
EndSub
Subswap（b（）AsInteger）
n=【14】
Fori=1Ton/2
t=b（i）
b（i）=b（n）
b（n）=t
【15】
Next
EndSub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a
（1）与a（10）的值互换，a
（2）与a（9）的值互换，……，a（5）与a（6）的值互换。
请填空。
正确答案:
1.（a）2.（UBound（
B））3.（n=n-1）
升级会员 