精选资料vb考试复习题Word文档下载推荐.docx
《精选资料vb考试复习题Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《精选资料vb考试复习题Word文档下载推荐.docx（12页珍藏版）》请在冰豆网上搜索。
分支1"
CaseIs>
4
分支2"
CaseElse
Else分支"
EndSelect
程序运行后，如果在输入对话框中输入2，则窗体上显示的是（ ）。
A）分支1B）分支2C）Else分支D）程序出错
（6）以下关于MsgBox的叙述中，错误的是（ ）。
A）MsgBox函数返回一个整数
B）通过MsgBox函数可以设置信息框中图标和按钮的类型
C）MsgBox语句没有返回值
D）MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量
（7）在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是（ ）。
A）Timer1.InterVal=0.5B）Timer1.Interval=5C）Timer.Interval=50D）Timer1.Interval=500
（8）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
StaticxAsInteger
Cls
Fori=1To2
y=y+x
x=x+2
Next
Printx,y
程序运行后，连续三次单击Command1按钮后，窗体上显示的是（ ）。
A）42B）1218C）1230D）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
C）4
D）6
（15）设x=4,y=8,z=7，以下表达式的值是（ ）。
x<
yAnd（Noty>
z）Orz<
x
A）1
B）-1
C）True
D）False
（16）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
a$="
VisualBasic"
PrintString（3,a$）
程序运行后，单击命令按钮，在窗体上显示的内容是（ ）。
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"
和从右侧小键盘上输入的"
被视作不同的字符
（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的命令按钮。
然后编写如下事件过程：
CommonDialog1.FileName="
"
CommonDialog1.Filter="
All
file|*.*|（*.Doc）|*.Doc|（*.Txt）|*.Txt"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="
VBTest"
CommonDialog1.Action=1
对于这个程序，以下叙述中错误的是（ ）。
A）该对话框被设置为“打开”对话框
B）在该对话框中指定的默认文件名为空
C）该对话框的标题为VBTest
D）在该对话框中指定的默认文件类型为文本文件（*.Txt）
（21）设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。
窗体Form1的程序代码如下：
DimaAsInteger
a=10
Callg（Form2,a）
PrivateSubg（fAsForm,xAsInteger）
y=IIf（x>
10,100,-100）
f,Show
f.Caption=y
运行以上程序，正确的结果是（ ）。
A）Form1的Caption属性值为100
B）Form2的Caption属性值为-100
C）Form1的Caption属性值为-100
D）Form2的Caption属性值为100
（22）在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
DimxAsInteger
StaticyAsInteger
x=10
y=5
Callf1（x,y）
PrivateSubf1（ByRefx1AsInteger,y1AsInteger）
x1=x1+2
y1=y1+2
A）105
B）125
C）107
D）127
（23）设有如下程序
OptionBase1
Dima（10）AsInteger
DimnAsInteger
n=InputBox（"
输入数据"
Ifn<
10Then
CallGetArray（a,n）
EndIf
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）
Printj
以下叙述中错误的是（ ）。
A）数组b中的偶数被保存在数组c中
B）程序运行结束后，在窗体上显示的是c数组中元素的个数
C）GetArray过程的参数n是按值传送的
D）如果输入的数据大于10，则窗体上不显示任何显示
（24）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Dima
a=Array（1,2,3,4,5）
Fori=1ToUBound（a）
a（i）=a（i）+i-1
Printa（3）
程序运行后，单击命令按钮，则在窗体上显示的内容是（ ）。
A）4
B）5
C）6
D）7
（25）阅读程序
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）
Nexti
PrintSum
程序运行后，单击窗体，输入结果为（ ）。
A）13
B）14
C）27
D）15
（26）在窗体上画一个名称为File1的文件列表框，并编写如下程序：
PrivateSubFile1_DblClick（）
x=Shell（File1.FileName,1）
以下关于该程序的叙述中，错误的是（ ）。
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
Timer1.Enabled=True
PrivateSubTimer1_Timer（）
IfLabel1.Left<
WidthThen
Label1.Left=Label1.Left+20
Else
Label1.Left=0
程序运行后，单击“开始”按钮，标签在窗体中移动。
A）标签的移动方向为自右向左
B）单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
C）当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D）标签按指定的时间时隔移动
（28）执行以下程序段
abbacddcba"
Fori=6To2Step-2
X=Mid（a,i,i）
Y=Left（a,i）
z=Right（a,i）
z=UCase（X&
Y&
z）
Printz
输出结果为（ ）。
A）ABA
B）BBABBA
C）ABBABA
D）AABAAB
（29）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
DimaAsVariant
a=Array（1,2,3,4,5）
Sum=0
Fori=1To5
Sum=sum+a（i）
x=Sum/5
Fori=1To5
Ifa（i）>
xThenPrinta（i）;
A）12
B）123
C）345
D）45
（30）假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
Model1代码如下：
PublicxAsInteger
PublicyAsInteger
SubS1（）
x=1
S2
SubS2（）
y=10
Form1.Show
EndShow
Model2的代码如下：
SubMain（）
S1
其中SubMain被设置为启动过程。
程序运行后，各模块的执行顺序是（ ）。
A）Form1->
Model1->
Model2
B）Model1->
Model2->
Form1
C）Model2->
D）Model2->
Form1->
Model1
二、填空题（每空2分，共30分）
请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
（1）设有如下程序段：
BeijingShanghai"
b$=Mid（a$,InStr（a$,"
g"
）+1）
执行上面的程序段后，变量b$的值为__1__。
（2）以下程序段的输出结果是____2___。
num=0
Whilenum<
=2
num=num+1
Wend
Printnum
（3）阅读下面的程序
PrivateSubForm_Click（）
DimCheckAsBoolean,CounterAsInteger
Check=True
Counter=5
Do
DoWhileCounter<
20
Counter=Counter+1
IfCounter=10Then
Check=False
ExitDo
EndIf
Loop
LoopUntilCheck=False
PrintCounter
EndSub
程序运行后,单击窗体,输出结果是【3】
（4）.设有如下程序:
OptionBase1
PrivateSubCommand1_Click（）
Dimarr1
DimMinAsInteger,iAsInteger
arr1=Array（12,435,76,-24,78,54,866,43）
Min=【4】
Fori=2To8
Ifarr1（i）<
MinThen【5】
Nexti
Print"
最小值是:
;
Min
以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空
（5）本程序的功能是利用随机数函数模拟投币，方法是：
每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。
在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。
程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。
以下是实现上述功能的程序，请填空。
Randomize
n=CInt（Text1.Text）
n1=0
n2=0
Fori=1To__6__
r=Int（Rnd*2）
Ifr=___7____Then
n1=n1+1
n2=n2+1
Text2.Text=n1
Text3.Text=n2
（6）阅读程序：
Dima（3）AsInteger
输入的数据是：
Fori=1To3
a（i）=InputBox（"
Printa（i）;
Print
Ifa
（1）<
a
（2）Then
t=a
（1）
a
（1）=a
（2）
a
（2）=___8___
Ifa
（2）>
a（3）Then
m=a
（2）
ElseIfa
（1）>
m=___9___
m=__10___
中间数是：
m
程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。
请填空。
（7）在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;
名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空;
标签Label3的标题为“计算结果”。
运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。
单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。
Fori=0To4
Sum=Sum+__11__
___12__=Sum
（8）在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。
程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值;
如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。
Dima（3,2）AsInteger
Forj=1To2
__13__=i+j
Nextj
PrivateSubCommand2_Click（）
Forj=1To3
s=s+__14__
Text1.Text=__15__
一、选择题（
（1）—（20）每小题2分，（21）—（30）每小题2分，共70分）
（1）－（10） BCAACDDBAB
（11）－（20） DACBDABBDD
（21）－（30） BDCBCAABDC
1、
（1）"
Shanghai"
2、
（2）3
3、（3）10
4、（4）arr1
（1） （5）min=arr1（i）
5、（6）n （7）1
6、（8）t （9）a（3） （10）a
（1）
7、（11）label1（i）.caption （12）label2.caption
8、（13）a（i,j） （14）a（j,i） （15）s
升级会员 