二、填空题
1．以下语句的输出结果是____________
a%=4.5678
Printa%
2．以下语句的输出结果是_____________
PrintInt(12345.6789*100+0.5)/100
3．窗体、图片框或图像框中的图形经过对象的___________属性设置。
4．由Arry函数成立的数组的名字一定是_____________种类
5．以下程序段的输出结果是____________
num=0
Whilenum<=2
num=num+1
Printnum
Wend
6．在窗体中增添一个命令按钮（其Name属性为Command1），而后编写以下代码：PrivateSubCommand1_Click( )
Dimn( )AsInteger
Dima,bAsInteger
a=InputBox("Enterthefirstnumber")
b=InputBox("Enterthesecondnumber")
ReDimn(aTob)
1/3
Fork=LBound(n,1)ToUBound(n,1)
n(k)=k
Printn(k)
NextkEndSub程序运转后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为___________。
7．在窗体中增添两个文本框和一个命令按钮，而后在命令按钮的代码窗口
中编写以下代码：PrivateSubCommand1_Click( )Text1.Text="VB"Text2.Text= Text1.TextText1.Text="ABC"EndSub程序运转后，单击命令按钮后，两个文本框
中显示的内容分别为________和________。
8．以下程序的功能是：从键盘上输入若干个学生的考试分数，统计并输出
最高分数和最低分数，当输入负数时结束输入，输出结果，请将程序增补完
好。
PrivateSubForm_Click(
)
Dimx,amax,aminAsSinglex=InputBox("Enterascore")amax=xamin=xDoWhile___ __________Ifx>amaxThenamax=xEndIfIf
vba计算字符串长度_____________Thenamin=xEndIfx=InputBox("Enterascore")LoopPrint"max="; amax,"min=";amin
EndSub
9．设计一个计时程序。该程序用户界面以下图，由一个文本框
（T ext1）、两个按钮：命令按钮1（Command1）、命令按钮2（Command2）
构成。程序运转后，单击开始按钮，则开始计时，文本框中显示秒数，单击停
止按钮，则计时停止。单击窗口则退出。请将以下程序增补完好。
OptionExplicit
Dimi
PrivateSubCommand1_Click( )
i=0
2/3
Timer1.Interval=1000
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click( )
Timer1.Enabled=False
EndSub
PrivateSubForm_Click( )
__________Me
EndSub
PrivateSubForm_Load( )
Timer1.Enabled=False
Text1.Text=0
EndSub
PrivateSubTimer1____________( )
i=i+1Text1.Text=___________EndSub10．下边程序的功能是：输入一个
字符串，在“d:f1.dat文”件中查输入的字符串能否存在，若存在，则输出“
到字符串”，不然输出“没到字符串”。请将以下程序增补完好。
PrivateSubForm_Load( )a$=InputBox("请输入要查的字符串")Open
"d:\f1.dat"For____________As#1b$=Input(LOF(1),1)___________y=InStr(1,b$,
a$)Ify<>0ThenPrint"到字符串";a$ElsePrint"没到字符串";a$EndIfEndSub
3/3

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。