Printx
EndSub
C）PrivateSubCommand1_Click（）
n=5:
x=1:
i=1
Do
x=x*i
i=i+1
LoopWhilei<=n
Printx
EndSub
D）PrivateSubCommand1_Click（）
n=5:
x=1:
i=1
Do
x=x*i
i=i+1
LoopWhilei>n
Printx
EndSub
（23）在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：
PrivateXAsInteger
PrivateSubCommand1_Click（）
X=5:
Y=3
Callproc（X,Y）
Label1.Caption=X
Label2.Caption=Y
EndSub
PrivateSubproc（ByValaAsInteger,ByValbAsInteger）
X=a*a
Y=b+b
EndSub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是
A）5和3B）25和3C）25和6D）5和6
（24）在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：
PrivateSubCommand1_Click（）
s=0
Fori=1To15
x=2*i-1
IfxMod3=0Thens=s+1
Nexti
Label1.Caption=s
EndSub
程序运行后，单击命令按钮，则标签中显示的内容是
A）1B）5C）27D）45
（25）在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码：
PrivatexAsInteger
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）101010B）303030C）303010D）103030
（26）设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程：
PrivateSubCommand1_Click（）
StaticbAsVariant
b=Array（1,3,5,7,9）
……
EndSub
此过程的功能是把数组b中的5个数逆序存放（即排列为9,7,5,3,1）。
为实现此功能，省略号处的程序段应该是
A）Fori=0To5-1\2
tmp=b（i）
b（i）=b（5-i-1）
b（5-i-1）=tmp
Next
B）Fori=0To5
tmp=b（i）
b（i）=b（5-i-1）
b（5-i-1）=tmp
Next
C）Fori=0To5\2
tmp=b（i）
b（i）=b（5-i-1）
b（5-i-1）=tmp
Next
D）Fori=1To5\2
tmp=b（i）
b（i）=b（5-i-1）
b（5-i-1）=tmp
Next
（27）在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和"共有文件"的标签。
编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。
如图所示。
能够正确实现上述功能的程序是
A）PrivateSubDir1_Change（）B）PrivateSubDir1_Change（）
File1.Path=Dir1.PathFile1.Path=Dir1.Path
EndSubEndSub
PrivateSubDrive1_Change（）PrivateSubDrive1_Change（）
Dir1.Path=Drive1.DriveDir1.Path=Drive1.Drive
Label1.Caption=File1.ListCountLabel1.Caption=File1.List
EndSubEndSub
C）PrivateSubDir1_Change（）D）PrivateSubDir1_Change（）
File1.Path=Dir1.PathFile1.Path=Dir1.Path
Label1.Caption=File1.ListCountLabel1.Caption=File1.List
EndSubEndSub
PrivateSubDrive1_Change（）PrivateSubDrive1_Change（）
Dir1.Path=Drive1.DriveDir1.Path=Drive1.Drive
Label1.Caption=File1.ListCountLabel1.Caption=File1.List
EndSubEndSub
（28）一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块。
假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：
Form1中定义的过程：
PrivateSubfrmFunction1（）
……
EndSub
Form2中定义的过程：
PublicSubfrmFunction2（）
……
EndSub
mdlFunc中定义的过程：
PublicSubmdlFunction（）
……
EndSub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是
A）上述三个过程都可以在工程中的任何窗体或模块中被调用
B）frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用
C）上述三个过程都只能在各自被定义的模块中调用
D）只有mdlFunction过程能够被工程中各个窗体或模块调用
（29）窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。
运行后的窗体外观如图所示。
设有如下的类型声明
TypePerson
nameAsString*8
majorAsString*20
EndType
当单击"保存"按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。
设文本框中的数据已正确地赋值给Person类型的变量p。
则能够正确地把数据写入文件的程序段是
A）Open"c:
\Test29.dat"ForRandomAs#1
Put#1,1,p
Close#1
B）Open"c:
\Test29.dat"ForRandomAs#1
Get#1,1,p
Close#1
C）Open"c:
\Test29.dat"ForRandomAs#1Len=Len（p）
Put#1,1,p
Close#1
D）Open"c:
\Test29.dat"ForRandomAs#1Len=Len（p）
Get#1,1,p
Close#1
（30）在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。
要求单击命令按钮时，打开一个保存文件的通用对话框。
该窗口的标题为"Save"，缺省文件名为"SaveFile"，在"文件类型"栏中显示*.txt。
则能够满足上述要求的程序是
A）PrivateSubCommand1_Click（）
CommonDialog1.FileName="SaveFile"
CommonDialog1.Filter="AllFiles|*.*|（*.txt）|*.txt|（*.doc）|*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="Save"
CommonDialog1.Action=2
EndSub
B）PrivateSubCommand1_Click（）
CommonDialog1.FileName="SaveFile"
CommonDialog1.Filter="AllFiles|*.*|（*.txt）|*.txt|（*.doc）|*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="Save"
CommonDialog1.Action=2
EndSub
C）PrivateSubCommand1_Click（）
CommonDialog1.FileName="Save"
CommonDialog1.Filter="AllFiles|*.*|（*.txt）|*.txt|（*.doc）|*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="SaveFile"
CommonDialog1.Action=2
EndSub
D）PrivateSubCommand1_Click（）
CommonDialog1.FileName="SaveFile"
CommonDialog1.Filter="AllFiles|*.*|（*.txt）|*.txt|（*.doc）|*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="Save"
CommonDialog1.Action=1
EndSub
二、填空题（每空2分，共30分）
请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
（1）VisualBasic中有一种控件组合了文本框和列表框的特性，这种控件是【1】。
（2）VisualBasic提供的对数据文件的三种访问方式为随机访问方式、【2】和二进制访问方式。
（3）执行下面的程序段后，变量S的值为【3】。
S=5
Fori=2.6To4.9Step0.6
S=S+1
Nexti
（4）为了在运行时把d:
\pic文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为【4】。
（5）计时器控件能有规律的以一定时间间隔触发【5】事件，并执行该事件过程中的程序代码。
（6）以下程序的功能是：
生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。
请填空。
PrivateSubCommand1_Click（）
Fori=1To20
x=Int（【6】*200+100）
If【7】=0Then
Printx
S=S+【8】
EndIf
Nexti
Print"Sum=";S
EndSub
（7）设有如下程序
PrivateSubForm_Click（）
DimaAsInteger,bAsInteger
a=20:
b=50
p1a,b
p2a,b
p3a,b
Print"a=";a,"b=";b
EndSub
Subp1（xAsInteger,ByValyAsInteger）
x=x+10
y=y+20
EndSub
Subp2（ByValxAsInteger,yAsInteger）
x=x+10
y=y+20
EndSub
Subp3（ByValxAsInteger,ByValyAsInteger）
x=x+10
y=y+20
EndSub
该程序运行后，单击窗体，则在窗体上显示的内容是：
a=【9】和b=【10】。
（8）在窗体上画一个名称为Command1的命令按钮，编写如下事件过程
PrivateSubCommand1_Click（）
DimaAsString
a=【11】
Fori=1To5
PrintSpace（6-i）;Mid$（a,6-i,2*i-1）
Nexti
EndSub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。
（9）在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption属性分别为"城市名称"和空白的标签。
程序运行后，当在组合框中输入一个新项后按回车键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项"如图所示；如果存在，则在Label2中给出提示"输入项已在组合框中
升级会员 