Printx
（C）n=5:
x=1:
i=1
Do
x=x*i
i=i+1
LoopWhilei<=n
Printx
（D）n=5:
x=1
Fori=nTo1
x=x*i
Nexti
Printx
19．执行如下程序，单击命令按钮3次，则标签Label1,Label2,Label3中分别显示___B___。
PrivateSubCommand1_Click（）
StaticyAsInteger
DimzAsInteger
n=10
z=n+z:
y=y+z:
x=x+z
Label1.Caption=x
Label2.Caption=y
Label3.Caption=z
EndSub
（A）101010（B）103010（C）303030（D）103030
20．设已执行b=Array（5,3,9,1,6），现要将数组b的各个元素逆序排列，程序段__B__可实现该功能。
（A）Fori=0To5-1\2
tmp=b（i）
b（i）=b（5-i-1）
b（5-i-1）=tmp
Nexti
（B）Fori=0To5\2
tmp=b（i）
b（i）=b（5-i-1）
b（5-i-1）=tmp
Nexti
（C）Fori=0To5
tmp=b（i）
b（i）=b（5-i-1）
b（5-i-1）=tmp
Nexti
（D）Fori=1To5\2
tmp=b（i）
b（i）=b（5-i-1）
b（5-i-1）=tmp
Nexti
21．设组合框Combo1中有3个项目，则___D___可删除其中最后一项。
（A）Combo1.RemoveItemCombo1.Text（B）Combo1.RemoveItemCombo1.Index
（C）Combo1.RemoveItemCombo1.ListIndex（D）Combo1.RemoveItemCombo1.ListCount-1
22．执行下列程序段，文本框Text1中显示___A___。
n=Int（Rnd）+3
SelectCasen
Case1To10
x=10
Case2,4,6
x=20
CaseIs<=10
x=30
Case10
x=40
EndSelect
Text1.Text=x
（A）10（B）20（C）30（D）40
23．以下关系表达式中___A___的值为False。
（A）"ABC">"Abc"（B）"the"<>"they"（C）"VISUAL"=UCase（"Visual"）（D）"Integer">"Int"
24．窗体中有命令按钮Command1，并已编写下列代码。
运行程序时，单击命令按钮，窗体显示__C____。
FunctionF（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
25．设有如下代码，关于它的叙述___D___是正确的。
PrivateTypeanimal
ANameAsString*20
AColorAsString*10
EndType
PrivateSubCommand1_Click（）
DimrecAsanimal
Open"c:
\vbtest.dat"ForRandomAs#1Len=Len（rec）
rec.AName="Elephant"
rec.AColor="Black"
Put#1,,rec
Close#1
EndSub
（A）记录类型animal不能在窗体中定义，只能在标准模块中定义，所以运行会发生错误
（B）如果文件c:
\vbtest.dat不存在，则运行Open命令时发生错误
（C）由于Put命令没有指定记录号，因此每次写文件时都把记录写在文件尾
（D）语句“Put#1,,rec”的作用是把animal类型的两个数据元素写入文件
26．以下关于菜单的叙述中___D___是错误的。
（A）下拉菜单和弹出式菜单都用菜单编辑器建立
（B）在多窗体工程中，每个窗体都可是以有自己的菜单
（C）除分隔线外，所有的菜单项都能接收Click事件
（D）如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
27．窗体中有如下事件过程，如果希望运行时窗体显示如右图的形式，请选择适合的表达式完善程序。
c=1234
1
12
123
1234
c1=Trim（Str（c））
Fori=1To4
Print___B___
Next
（A）Right（c1,i）（B）Left（c,i）（C）Mid（c1,i,1）（D）Mid（c1,i,i）
28．下面这段程序的功能是___D___。
n=Val（Text1.Text）
Fori=2Ton
Forj=2ToSqr（i）
IfiModj=0ThenExitFor
Nextj
Ifj>Sqr（i）ThenPrinti
Nexti
（A）输出n以内的奇数（B）输出n以内的偶数
（C）输出2-n的所有数的阶乘（D）输出n以内的素数
29．窗体中有4个名为Command11的命令按钮，如图，下标从0开始，从上到下顺序增大。
启动窗体时这4个命令按钮从上到下分别显示___A___。
PrivateSubForm_Load（）
Fori=0To3
Command1（i）.Caption=Command1（i）.Index
Nexti
EndSub
（A）0123（B）1234
（C）0132（D）出错
30．窗体中有一个通用对话框CommonDialog1和一个命令按钮Command1，并有以下代码。
关于这段程序功能的描述错误的是____B__。
PrivateSubCommand1_Click（）
CommonDialog1.Filter="AllFile|*.*|WordDocuments|*.doc|TextDocuments|*.txt"
CommonDialog1.InitDir="D:
\"
CommonDialog1.Action=2
EndSub
（A）产生一个“另存为”对话框（B）在这个对话框中只能选择Word文档或文本文件类型
（C）对话框中初始的路径是D盘的根目录（D）这个对话框不能真正实现保存文件的功能
二、填空题（50分，每空2分，请在答题纸上标明每个空的编号）
1．函数Sin（30*3.14159/180）的值为___[1]0.5____。
2．VB中数据文件根据对文件的访问方式分为3类，即顺序文件、___[2]随机文件___和二进制文件。
3．执行下面这段程序后，窗体中显示___[3]5___和___[4]5.6___。
s=2
Fori=3.2To4.9Step0.8
s=s+1
Nexti
Prints,i
4．图片框Picture1中已显示一张图片d:
\pic1.jpg，单击命令按钮时希望清除该图片，使图片框显示为空白，完成下面的代码。
PrivateSubCommand1_Click（）
____[5]Picture1.Picture=LoadPicture（““）____
EndSub
5．下面这段程序要在窗体显示20个[100，200]间的随机整数，求这些数的和，并显示其中5的倍数请完成程序。
Fori=1To20
x=Int（___[6]Rnd*101+100___）
___[7]s=s+x___
If___[8]xmod5=0thenprintx;___
Nexti
Print"总和：
";s
6．下面的程序可根据用户所输入的数在一个数组中查找相应的下标，完成程序。
Dimarr,i%,MAs___[9]Integer___
arr=Array（12,43,76,24,54,86,49,55）
M=Val（InputBox（"要查找的数"））
Fori=___[10]0To7___
Ifarr（i）=MThen___[11]k=i___
Nexti
Print"下标是：
";k
7．窗体中有一个标签Label1和一个时钟控件Timer1。
开始运行程序时，窗体显示如图（a）；单击窗体后显示如图（b），其中的时钟每秒更新一次显示当前时间。
请填空完成程序代码。
PrivateSubForm_Load（）
Timer1.Enabled=___[12]False___
Timer1.___[13]Interval___=1000
EndSub
PrivateSubForm_Click（）
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer（）
___[14]Label1.Caption=Time___
EndSub
8．窗体中有一个文本框Text1，其MultiLine属性值为True，执行下列程序，将文件t1.txt的内容显示在文本框中，请完善程序。
PrivateSubCommand1_Click（）
Dimaspect$,Whole$
Open"f:
\t1.txt"For___[15]InputAs#1___
DoWhileNotEOF
（1）
LineInput___[16]#1,aspect___
Whole=Whole+aspect+Chr（13）+Chr（10）
Loop
Text1.Text=Whole
___[17]Close___
EndSub
9．窗体中有文本框Text1，标签Label1和命令按钮Command1，并有如下两段事件过程：
PrivateSubCommand1_Click（）
s$=InputBox（"请输入一串字符"）
Text1.Text=s
EndSub
PrivateSubText1_Change（）
Label1.Caption=UCase（Mid（Text1.Text,7））
EndSub
运行时单击命令按钮，在输入框中输入字符串“VisualBasic”，确定后标签显示___[18]BASIC___。
10．把数学式
改写成VB表达式：
___[19]（a+b）/（Log（Abs（a））/Log（Exp
（1）））___。
11．一个数组中有10个元素，对它进行冒泡排序，元素进行交换的次数最大可能是___[20]9___次。
12．窗体中有文本框Text1、列表框List1和标签Label1，程序运行时列表框中显示若干人的简单信息。
在文本框中输入姓或姓名并回车，在列表框中查找相符的人的情况，找到时在标签中显示查找结果（如图（a））；如果列表框中没有相符的项目，则显示相应的提示信息（如图（b））。
填空完成下面的程序。
PrivateSubText1____[21]KeyPress___（KeyAsciiAsInteger）
DimiAsInteger,nAsInteger,FoundAsBoolean
IfKeyAscii=13Then
Found=___[22]False___
___[23]n___=Len（Trim（Text1.Text））
Fori=0ToList1.ListCount-1
IfText1.Text=Left（List1.List（i）,n）Then
Label1.Caption=___[24]List1.List（i）___
Found=True
EndIf
Nexti
IfNotFoundThen___[25]MsgBox（“无此人”）___
EndIf
EndSub
三、编程题（20分，每小题10分，请在答题纸上标明题号）
1．随机产生10个正整数，求其中的最小值，并将原始数据和最小值显示在窗体中。
PrivateSubForm_Click（）
Dimi%,min%
Dima（10）AsInteger
Fori=1To10
a（i）=Int（Rnd*101）
Printa（i）;
Nexti
min=a
（1）
Fori=2To10
Ifa（i）Nexti
Print
Print"最小值：
"&min
EndSub
2．窗体中有一个文本框Text1、两个标签Label1和Label2、一个垂直滚动条Vscroll1。
点击滚动条，可使文本框中显示[2，20]之间的一个正整数n，标签Label1中立刻显示1！
+2！
+…+n!
的值。
运行界面如图。
编写完整的事件过程完成以上功能。
PrivateSubForm_Load（）
VScroll1.min=2
VScroll1.max=20
Label1.Caption=""
Label2.Caption="n="
EndSub
PrivateSubVscroll1_Change（）
DimsAsDouble,I%,j%,n%,tAsDouble
t=1
Text1.Text=VScroll1.Value
n=Val（Text1.Text）
ForI=1Ton
t=1
Forj=1ToI
t=t*j
Nextj
s=s+t
NextI
Label1.Caption="1!
+…+n!
="&s
EndSub
升级会员 