实验4(选择循环结构.doc

《实验4(选择循环结构.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验4选择循环结构（设计性)实验目的：1.掌握选择结构（If—Then-Else结构及其嵌套结构或SelectCase结构）程序的概念2。掌握循环结构(For循环、While循环或Do—Loop循环)程序的概念实验内容：实验1：写出下列程序的运行结果：（1）PrivateSubForm_Click（)Dimx%,y％x=InputBox(“Enterx”）y=InputBox（“Entery”)Ifx>yThenPrintx—y‘若输入的x,y值分别为4，5ElsePrinty-xEndIfEndSub（2）PrivateSubForm_Click()D

2、imx！,y!，z！x=4y=7z=xModyIfz>3Thenx=yy=zz=xModyEndIfPrintx,y,zEndSub（3）PrivateSubForm_Click（）Dimx！,y！x=1.5：y=3.5Ifx〈〉0Theny=y—xElseIfy〉0.5Thenx=yElseIfx〈>3。5Theny=y＊xEndIfPrintx，yEndSub或者用x=InputBox("Enterx：")：y=InputBox("Entery：”)代替上段语句中的：x=1.5：y=3.5(4)PrivateSubForm_Click（)Dimx！,

3、y！x=InputBox(“Enterx:")SelectCasexCase1，-59To–2y=x/4+5Case2To15‘写出x分别为—15，0,10，100时的结果y=x^3/2CaseIs>10y=xCaseElsey=0EndSelectPrint“y=“，yEndSub实验2：编程序计算下列分段函数：ex+lnxx>0y=0x=03x2+5x+1x〈0实验3：输入一个数，判断它能否同时被2，3，5整除；实验4：计算个人收入纳税额。收入1000元以下纳税为0；1000元~2000元纳税为2。5％；2001元~4000元纳税为3.5%；4000

4、元以上纳税为5%。实验5:写出下列程序的运行结果：（1）x=0Fori=1to3x=x+iNextiPrintx+i（2)a=10Whilea〈50Printa;a=a+5；Wend(3)Fori=1to5Forj=1toiIfiMod2=0ThenPrint“*”;ElsePrint“#”；EndIfNextjPrintNexti(4）x=1DoPrintx,x=x＊2LoopUntilx〉20Printx实验6:假设某乡镇企业现有产值2376000元，如果保持年增长率为13.45%,试问多少年后该企业的产值可以翻一番。实验7：用多项式计算e的近似值:

5、e=1+1/1!+1/2!+1/3！+……+1/N!实验8：我国现有人口13亿人口，若按人口年增长0。8％计算，多少年后我国人口将超过26亿。实验9：输入x、y、z三个数，按从小到大的次序显示。实验10：编制程序，计算某个学生奖学金的等级,以三门功课成绩m1、m2、m3为评奖依据。奖学金评奖标准如下：一等奖。符合下列条件之一的可得一等奖：i.平均分大于95分者ii.有两门成绩是100分，且第三门功课成绩不低于80分者二等奖。符合下列条件之一的可得二等奖：（1）平均分大于90分者（2）有一门成绩是100分,且其他功课成绩不低于75分者三等奖.各门功课成绩不

6、低于70分者。符合条件者就高不就低,只能获得高的那一项奖学金.要求显示获奖的等级.实验11：编写程序，在图形框（PictureBox)中显示出所有的水仙花数。所谓水仙花数,是指一个3位数,其各数位上的数字的立方和等于该数本身。例如：153是水仙花数，因为153=13+53+33实验12：计算π的近似值，π的计算公式为：π=2*（22/（1*3））*（42/（3＊5）)＊(62/（5＊7））＊……＊（（2*n)2/(（2n-1）＊(2n+1）)）