实验四 循环结构程序设计.docx
《实验四 循环结构程序设计.docx》由会员分享，可在线阅读，更多相关《实验四 循环结构程序设计.docx（11页珍藏版）》请在冰点文库上搜索。
实验四循环结构程序设计
实验四循环结构程序设计（4个学时）
一、实验目的
1.掌握For循环语句的使用。
2.掌握单Do循环语句的使用。
3.掌握如何控制循环条件，防止死循环或不循环。
二、实验内容
1.设计一个程序：
用For循环语句计算1~n（正整数）的所有的偶数之和。
（参考课本P98，例6.7）
要求:
程序运行后，单击窗体弹出一个输入框由用户输入n的值，然后在窗体上显示计算的结果。
1）代码设计如下
PrivateSubForm_Click（）
DimaAsSingle,iAsSingle,nAsSingle
n=Val（InputBox（"请输入n","提示"））
s=0
Fori=2TonStep2
s=s+i
Nexti
Prints
EndSub
2）将输入100时的运行结果的界面截下来粘贴在下面：
3）调试过程记录（错误情况及改正方法）
1.在做FOR循环时，将变量I漏写。
2．设计程序：
求100以内所有19的倍数的数。
并求这些数的和。
（参考上机指导P20，第一题）
要求：
点击“显示”按钮时，将结果显示在窗体上。
点击“求和”按钮时，将结果显示在一个文本框中。
1）代码设计如下
OptionExplicit
DimiAsInteger,sAsInteger,tAsString
PrivateSubCommand1_Click（）
Fori=1To100
IfiMod19=0ThenPrinti
Nexti
EndSub
PrivateSubCommand2_Click（）
Fori=1To100
IfiMod19=0Then
s=s+i
EndIf
Nexti
Text1.Text=s
EndSub
2）将运行结果的界面截下来粘贴在下面
3）调试过程记录（错误情况及改正方法）
1.在对命令按钮2进行设计时以为只写命令1的就行，结果命令2没有FOR结构。
2.误将零写成o，结果无意中增加了一个未定义的新变量。
3.设计一个程序：
我国今年的国民生产总值为45600亿元，若今后每年以9%的增长率增长，计算多少年后能实现国民生产总值翻一番？
（参考课本P102例6.11）
要求：
单击“计算”按钮时，将计算的结果显示在窗体上。
1）代码设计
PrivateSubCommand1_Click（）
DimxAsSingle,nAsLong
x=45600
DoWhilex<91200
x=x*1.09
n=n+1
Loop
Printn;"年后国民生产总值翻一番"
EndSub
2）将运行结果的界面截下来粘贴在下面
3）调试过程记录（错误情况及改正方法）
1.编码时将X的初值放在了DO句型的后面，结果出现了死循环。
4.编写一个程序，点击窗体时在窗体上输出所有水仙花数（水仙花数是指一个三位十进制正整数，该数的各位数字的立方之和等于该数本身，例如153是个水仙花数，因为1^3+5^3+3^3=153）。
1）代码设计
PrivateSubCommand1_Click（）
Dimi!
a!
c!
d!
tAsString
Fori=100To999Step1
a=i\100
c=（iMod100）\10
d=iMod10
Ifi=a^3+c^3+d^3Then
t=t&Str（i）&Chr（13）&Chr（10）
EndIf
Nexti
Text1.Text=t
EndSub
2）将程序运行的结果图截下粘贴在下面。
3）调试过程记录（错误情况及改正方法）
Textbox换行没设置，在multiline处设置
5.编写一个程序解百马百瓦古题：
大、小马和马驹共100匹，共驮100片瓦，大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合？
（参考课本P106，例6.16）。
要求：
单击窗体将结果显示在窗体上。
1）代码设计
PrivateSubForm_Load（）
Dimx%,y%,z%
Show
Print"大马","小马","马驹"
Forx=1To33
Fory=1To50
z=100-x-y
Ifx*3+y*2+z/2=100Then
Printx,y,z
EndIf
Nexty
Nextx
EndSub
2）将程序运行的结果图截下粘贴在下面。
3）调试过程记录（错误情况及改正方法）
Nexty 和nextx的顺序打反，导致无法运行。
实验五常用控件程序设计（4个学时）
一、实验目的
1.掌握单选按钮、复选按钮、框架、列表框、组合框、时钟和滚动条的属性、事件和方法。
2.明确常用内部控件的功能，熟练使用“属性”窗口设置属性。
3.掌握在常用内部控件的事件过程中编写程序代码。
二、实验内容
1.设计一个程序运用单选按钮、复选框和框架对文本框中文本的颜色、字号和效果进行设置。
要求：
文本的颜色可以选择红色、绿色和蓝色。
文本的字号可以选择12、18、24号，效果可以选择删除线和下划线。
当文本框中输入文字后，单击某个按钮，文本框中的文字将按所选择的选项进行设置。
（参考上机指导P6，第一题）
1）代码设计如下
2）运行后的结果（将运行结果的界面截下来粘贴在下面）
3）调试过程记录（错误情况及改正方法，不得少于三条）
2.编写一个为组合框中添加或删除内容的程序。
（参考上机指导P6第三题）
要求：
1）在组合框中输入内容后，单击“添加”按钮，如果列表框中没有该内容，则将输入内容加入到列表框中，否则不添加，另外，要求组合框中的内容能自动按字母顺序排序。
2）在列表框中选择某一选项后，单击“删除”按钮，则删除该项。
3）单击“清除’按钮，将清除列表框中所有的内容。
1）代码设计
2）运行后的结果（将运行结果的界面截下来粘贴在下面）
3）调试过程记录（错误情况及改正方法，不得少于三条）
3．设计一个选课程序。
要求：
该选课的运行界面包含2个列表框，左边为已开设的课程名称，通过Form_load事件加载，并按字母顺序排序；当单击某课程名称后，将该课程加入到右边的列表框中，并在左边的列表框中删除该课程，当右边的课程数已满5门时，不允许再加入。
1）代码设计
2）运行后的结果（将运行结果的界面截下来粘贴在下面）
3）调试过程记录（错误情况及改正方法，不得少于三条）
4.设计一个程序实现字体的自动放大，并用垂直滚动条控制放大的速度。
（参考课本P86，例5.7）
1）代码设计
2）运行后的结果（将运行结果的界面截下来粘贴在下面）
3）调试过程记录（错误情况及改正方法，不得少于三条）
A:
Hello,everyone,Iamveryfamous.MynameisQQ,peoplecallme阿-Q.Iamveryfamous,Ilovemyjobverymuch.YouknowIamaworker.ButIhatemyboss.Hesaysheisaforeigner,butIdon’tbelievethat.
（听见老板的咳嗽声）Heymaster!
B:
（咳嗽）A-Q,youknowtomorrowismyfather’sbirthday.
A:
Oh,yourfather’sbirthday?
Howoldisyourfather?
B:
Heisdead.
A:
Oh,he……Iamsorrytohearthat……
Butwhendidyourfatherdie?
B：
TwoyearsbeforeIwasborn.
A:
Oh,twoyearsbeforeyouwereborn?
B：
So,tomorrow,阿Q,youshouldworkharder.
A:
Ofcourse,ofcourseIwillworkharder.额……
Butmaster……额……Ijustwantsomemoremoney……（somemoremoney）
B:
Youwantsomemoremoney?
A:
Yes,somemoremoneymaster.
B:
（一巴掌扇过来）Tellyou,noway!
A:
NOway?
B:
ButIcanfindsomebodytohelpyou
A:
Somebodytohelpme?
who?
B:
WUMA,comehere,WUMAhequick!
A:
wuma
B:
AQ,thisisWUMA,wuma,nowyoujustworktogetherwithAQ.
A:
一直在转着圈得说着无码
B:
AQ……
A:
Master
B:
Thisiswuma
A:
Iknow
B:
YOUknowfromnowyoujustworktogetherwithher.
ANOproblem
B:
Doremember,donotdoanythingwrongtoher,orIwillkillyou
A:
Ofcourse,not
B:
It’steno’clock.Ijustwanttogotobuysomeanimalstoeat
A:
Ohanimalstoeat,ok.ok……
B:
Remember,Iwillbeback,donotdoanythingwrongtoher.
AOfcoursenot,takeiteasy.
H:
wumawumawumawumawhat’syourname?
wuma
W.Mynameiswuma
A:
wuma,howmanyhusbandsdoyouhave?
W.Onlyone
A:
Shesaysonlyone,howoldishe?
WHeisdead.
A:
Heisdead!
Iamverygladtohearthat.Wumawuma
Youknow,mynameisqq,peoplecallmeA-Q
wumayouknow,Ihavealargehouse,Imakemoneyeveryday,alotofmoney.
W:
Soyouhavealotofwives?
A:
Alotofwives?
Oh,no,Idon'thaveanywives
ButIhavetwodogsandthreecatsandfourmonkeys.
W:
Aretheybeautiful?
A:
Ofcoursetheyareverybeautiful.Butyouaremorebeautifulthananimals.
ImsorryImeananimalsaremorebeautifulthanyouimsorryImeanyouareasbeautifulasanimals.
A.wuma…tobefrank,totellyouthetruth,actuallyinmyheartinfact……Ijustwanttomarryyou,wumaIjustwantyoutobemywife.wuma,Ijustwanttosleepwithyou.
W:
Whatdidyousay
A:
WumaIjustwanttosleepwithyou
W:
wolfwolf,nonohelphelp,policemanpoliceman…
A:
wuma,
P:
Whereisthewolf
W:
it’shere.
P:
It’sA-Q,heisnotawolf,don'tcareaboutitBeautifulwoman!
MayIknowyourname?
W.Mynameiswuma,peoplecallmewuma
P:
Oh,wuma,howmanyhusbanddoyouhave?
W.onlyone
P:
Oh,onlyone.Howoldishe?
W:
Heisdead
P:
Dead?
good
P:
wumaIjustwantyoutobemywifeNO.6
tobemywifeNO.6
wuma,Iamagoodperson.i’mveryverygood,
youseeI’mgood
P:
Shit,Iwillkillyou!
A.Youcan’thurther
P:
Look,beautifulgirl!
A:
I’mhurt,Iamdyingwuma
WumawumayouknowIamnotawolf
W.:
Iknow,Iknow.
A:
wumayouknow,Iloveyouverymuch.
Wuma,Ijustwantyoutobemywife,ok?
W:
ok,Iwillbeyourwife.
A:
ButwumayouknowIamverypoor.
W:
Idon'tcare,Idon’tcare
A:
oh,wuma,Iloveyou.
W:
A-Q,Iloveyoutoo.
升级会员 