")
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】错误
【学