"）
Ifx>rThenm=MsgBox（"太大了，请继续猜！
"）
Ifx=rThen
Print"猜中了！
共猜了"+_____+"次"
Ifi<=5ThenPrint"太棒了！
"ElsePrint"加油！
"
_____
EndIf
Nexti
EndSub
【空1】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空2】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空3】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【程序说明】右击窗体则打开Windows自带的计算器“C:
\windows\calc.exe”；
单击“退出”按钮时将右击窗体的次数写入磁盘文件。
_____
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle）
IfButton=2Thenn=n+1:
Shell_____
EndSub
PrivateSubCommand1_Click（）
Open"C:
\a1.dat"For_____
Print#1,n:
Close#1
_____
EndSub
【空1】错误
【学生答案】
[无]
【参考答案】
DimnAsInteger
============================================================
【空2】错误
【学生答案】
[无]
【参考答案】
"C:
\windows\calc.exe"
============================================================
【空3】错误
【学生答案】
[无]
【参考答案】
Output
============================================================
【空4】错误
【学生答案】
[无]
【参考答案】
End
============================================================
【程序说明】本程序求3～100之间的所有素数（质数）并统计个数；同时将这些素数从
小到大依次写入顺序文件e:
\dataout.txt；素数的个数显示在窗体Form1上。
PrivateSubCommand1_Click（）
DimcounAsInteger,flagAsBoolean
Dimt1AsInteger,t2AsInteger
_____
coun=0
Fort1=3To100
flag=True
Fort2=2ToInt（Sqr（t1））
If_____thenflag=False
Nextt2
_____
coun=coun+1
Write#1,t1
EndIf
Nextt1
_____
Close#1
EndSub
【空1】错误
【学生答案】
[无]
【参考答案】
Open"e:
\dataout.txt"ForOutputAs#1
============================================================
【空2】错误
【学生答案】
[无]
【参考答案】
t1Modt2=0
============================================================
【空3】错误
【学生答案】
[无]
【参考答案】
IfflagThen
============================================================
【空4】错误
【学生答案】
[无]
【参考答案】
Printcoun
============================================================
【程序说明】窗体上有两个命令按钮：
Command1（显示）和Command2（退出）。
下列程序运行时，
“显示”按钮能响应，“退出”按钮不能响应；单击“显示”按钮后，在窗体上显示一个用字符“*”
组成的5层的金字塔，同时“显示”按钮不能响应，“退出”按钮能响应。
PrivateSubCommand1_Click（）
DimiAsInteger,jAsInteger
Fori=1To5
PrintSpc（5-i）;
Forj=_____:
Print"*";:
Nextj
Print
Nexti
Command1.Enabled=False
_____
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
Command1.Enabled=True
_____
EndSub
【空1】错误
【学生答案】
[无]
【参考答案】
Int（Rnd*100）
============================================================
【空2】错误
【学生答案】
[无]
【参考答案】
Str（i）
============================================================
【空3】错误
【学生答案】
[无]
【参考答案】
ExitFor
============================================================
【程序说明】选择形状、边框后，图片框中控件Shape1作相应变化。
界面设计如图9-1所示。
PrivateSubCombo1_Click（）
Shape1.Shape=Combo1.List（_____）
EndSub
PrivateSubCombo2_Click（）
_____=Combo2.List（Combo2.ListIndex）
EndSub
PrivateSubForm_Load（）
DimiAsInteger
Fori=0To5:
Combo1.AddItemStr（i）:
Nexti
Fori=0To6:
_____:
Nexti
EndSub
【空1】错误
【学生答案】
[无]
【参考答案】
Combo1.ListIndex
============================================================
【空2】错误
【学生答案】
[无]
【参考答案】
Shape1.BorderStyle
============================================================
【空3】错误
【学生答案】
[无]
【参考答案】
Combo2.AddItemStr（i）
============================================================
【程序说明】自制一个简单的图片浏览器。
要求在窗体上建立一个影像框和两个命令按钮，
命令按钮上显示文字“上一张”和“下一张”。
运行时，显示第一张图片，“上一张”按钮不能响应，单击“下一张”按钮显示另一张图片，
“上一张”按钮能响应。
显示到最后一张图片时，“下一张”按钮不能响应。
（假设在C:
\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片）
DimnAsByte
PrivateSubCommand1_Click（）
Ifn<8ThenCommand2.Enabled=True
n=n-1
_____
Ifn<=1ThenCommand1.Enabled=_____:
n=1
EndSub
PrivateSubCommand2_Click（）
_____
Ifn>=1ThenCommand1.Enabled=True
Callpic
Ifn=8ThenCommand2.Enabled=False
EndSub
PrivateSubForm_Load（）
n=1:
Command1.Enabled=False:
Image1.Picture=_____
EndSub
Subpic（）
DimfnAsString
fn="c:
\windows\"+Trim（str（n））+".bmp"
Image1.Picture=_____
EndSub
【空1】错误
【学生答案】
[无]
【参考答案】
Callpic
============================================================
【空2】错误
【学生答案】
[无]
【参考答案】
False
============================================================
【空3】错误
【学生答案】
[无]
【参考答案】
n=n+1
============================================================
【空4】错误
【学生答案】
[无]
【参考答案】
LoadPicture（"c:
\windows\1.bmp"）
============================================================
【空5】错误
【学生答案】
[无]
【参考答案】
LoadPicture（fn）
============================================================
【程序说明】下列过程用于求一元n-1次代数多项式的值。
PrivateFunctionf（_____,xAsDouble）AsDouble
DimsAsDouble,iAsInteger,tAsDouble
t=x:
s=a
（1）
Fori=2Ton
s=s+a（i）*t:
_____
Nexti
_____
EndSub
【空1】错误
【学生答案】
[无]
【参考答案】
a（）asdouble,nasinteger
a（）AsDouble,nAsInteger
============================================================
【空2】错误
【学生答案】
[无]
【参考答案】
t=t*x
============================================================
【空3】错误
【学生答案】
[无]
【参考答案】
f=s
============================================================
【程序说明】利用1个定时器、1个标签和2个命令按钮制作一个动态秒表。
各控件名称取缺省值，
控件Command1、Command2标题分别为“开始”、“结束”。
运行时，单击“开始”按钮后秒
表开始计时，并在标签上显示总秒数；单击“结束”按钮后，计时结束，在窗体上显示出运行
的时间（折算成小时、分钟和秒数）。
DimxAsLong
PrivateSubForm_Load（）
Timer1.Interval=1000:
Timer1.Enabled=False
EndSub
PrivateSubCommand1_Click（）
Cls
x=0
_____
EndSub
PrivateSubCommand2_Click（）
DimhAsInteger,mAsInteger,sAsInteger
Timer1.Enabled=False
h=_____
m=_____
s=xMod3600Mod60
Print"运行了"+Str（h）+"小时"+Str（m）+"分"+Str（s）+"秒"
EndSub
PrivateSubTimer1_Timer（）
_____
Label1.Caption=x
EndSub
【空1】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空2】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空3】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空4】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【程序说明】在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间”、
“显示日期”、“颜色”、“字体”和“清空”操作。
m1为不可见菜单项，m11
为其子菜单（共5项，均同名，索引值依次为0，1，2，3，4）。
PrivateSubForm_Load（）
Timer1.Enabled=False'锁定定时器（时间间隔已设置为1秒）
EndSub
PrivateSubm11_Click（IndexAsInteger）
SelectCaseIndex
Case0:
Timer1.Enabled=True
Case1
Timer1.Enabled=_____:
Text1.Text="日期：
"+_____
Case2
CommonDialog1.Action=3:
Text1.ForeColor=_____
Case3
CommonDialog1.Flags=256'选择字体范围，否则出现运行错误
CommonDialog1.Action=4'打开“字体”对话框
Text1.FontBold=CommonDialog1.FontBold'用修改后的属性设置
Text1.FontItalic=CommonDialog1.FontItalic'文本框相应属性
Text1.FontName=CommonDialog1.FontName
Text1.FontSize=CommonDialog1.FontSize
Case4:
Text1.Text=""
EndSelect
EndSub
PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_
xAsSingle,yAsSingle）
IfButton=2Then_____,2
EndSub
PrivateSubTimer1_Timer（）
Text1.Text="时间：
"+Time$
EndSub
【空1】错误
【学生答
升级会员 