资源描述：
《VB实验任务8答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、实验任务七课程名称：程序设计基础VB实验名称——循环结构程序设计（1）一、实验目的：1.进一步掌握if语句的三种基本结构2.掌握多分支语句select语句的使用3.清楚循环流程，掌握循环语句的描述4.掌握循环结构程序的设计方法二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：u程序完善题的做题技巧和方法建议，先根据程序运行的参考界面和题目要求，分析代码中变量和对象各自的作用（一般从输入或输出方面着手推导和分析），然后填充程序[希望同学们通过实践掌握]实验2有一个阶梯，如果每步跨2阶，最后余1阶；每步跨3阶，最后余2阶；每步跨5阶，最后
2、余4阶；每步跨6阶，最后余5阶；每步跨7阶，正好到达阶梯顶。问阶梯至少有多少阶？方法（1）利用所给的条件，用循环从0开始一一试凑，找到满足条件的数，就停止循环。由于事先不知循环次数可以使用Do循环语句。PrivateSubCommand1_Click()DimmAsIntegerDoIfmMod2=1AndmMod3=2AndmMod4=3AndmMod5=4AndmMod6=5AndmMod7=0ThenPrintmExitDoEndIfm=m+1LoopEndSub方法（2）由于题目中最后的条件“每步跨7阶，正好到达阶梯顶”，所以阶梯数一定是7的倍
3、数，然后根据同时满足除n余b(n=2,3,4,5,6;b=1,2,3,4,5)的逻辑关系来确定即可。PrivateSubCommand2_Click()DimmAsInteger,nAsIntegerForm=7To32767Step7IfmMod2=1AndmMod3=2AndmMod5=4_AndmMod6=5AndmMod7=0ThenPrintmExitForEndIfNextmEndSub实验3实验书实验5-12设窗体上有一个名称为Combo1的组合框，如图所示，并有以下程序。PrivateSubCombo1_KeyPress(KeyAsci
4、iAsInteger)DimkAsIntegerIfKeyAscii=13ThenFork=0ToCombo1.ListCount-1IfCombo1.Text=Combo1.List(k)ThenCombo1.Text=""ExitForEndIfNextkIfCombo1.Text<>""ThenCombo1.AddItemCombo1.TextEndIfEndIfEndSub程序功能：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。实验4实验书104页实
5、验5-13我国现有13亿人口，设年增长率为1%，编写程序，计算多少年后增加到或超过20亿？PrivateSubForm_Click()DimnAsInteger,peoplenumAsDoublepeoplenum=13Don=n+1peoplenum=peoplenum*(1+0.01)‘或者peoplenum=13*(1+0.01)^nLoopUntilpeoplenum>=20‘或者Whilepeoplenum<20Printn;"年后我国人口将达到";peoplenum;"亿"EndSub实验5实验书106页实验5-18有一个两位数的正整数，将
6、其个位数与十位数对调所生成的数称为对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位数的正整数，使这两个数之和等于它们各自的对调数之和，如56+32=65+23.PrivateSubCommand1_Click()m=Val(Text1.Text)m1=(mMod10)*10+m10Forn=10To99n1=(nMod10)*10+n10Ifm+n=m1+n1ThenPrintnNextnEndSub实验6实验书104页实验5-14在窗体上显示出所有的水仙花数。水仙花数是指一个3位数，其中各位数字立方和等于该数字本身。例如，1
7、53=13+53+33，所以153就是水仙花数。PrivateSubCommand1_Click()DimmAsInteger,a%,b%,c%,n%n=0Form=100To999Step1a=m100b=(m-a*100)10'十位数上的数计算有多种表示方法，请同学思考c=mMod10Ifa^3+b^3+c^3=mThenPrintm;n=n+1IfnMod5=0ThenPrintEndIfNextmPrintEndSubPrivateSubCommand2_Click()Dima%,b%,c%,m%Fora=1To9Forb=0To9Forc
8、=0To9m=a*100+b*10+cIfa^3+b^3+c^3=mThenPrintm;Ne
