第4章 VB控制结构ForWhileDo ppt课件.ppt

《第4章 VB控制结构ForWhileDo ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1提要掌握循环结构基本知识For…NextWhile…WendDo…Loop掌握程序控制结构编程方法重点For…NextWhile…WendDo…Loop第4章程序控制结构2问题:产生15个[1,40]随机整数，并用Print方法输出.a=Int(Rnd*(40-1+1)+1)Printaa=Int(Rnd*(40-1+1)+1)Printaa=Int(Rnd*(40-1+1)+1)Printa…a=Int(Rnd*(40-1+1)+1)PrintaForI=1To15a=Int(Rnd*(40-1+1)+1)PrintaNextI4.7.3循环结构开始结束T<=10S=S*TT

2、=T+1T=1S=1YN循环结构流程图循环结构程序的组成部分：1.循环初始化？给循环变量和循环体中其它变量赋初值2.循环控制条件？(是否继续?)测试循环条件,判断循环是否还要重复3.循环体？要重复执行的操作4.循环控制修改部分？(确保趋向结束)修改循环变量的值，为循环的下一次重复做准备循环类型1.计数循环For…Next2.条件循环当循环While…WendDO循环Do…Loop51.For-Next循环控制格式：For<循环变量>=<初值>To<终值>[Step<步长>]语句块[ExitFor]语句块Next[循环变量](一般用于循环次数已知)功能:按初值、终值和步长所确定的循

3、环次数执行循环体。[ExitFor]:强制结束当前循环(出口)循环体DimI%,s%s=0ForI=1To10Step2s=s+INextII:循环变量1:初值10:终值2:步长循环体I=I+2循环变量I的取值分别为:1,3,5,7,9完成s=1+3+5+7+9的计算例(P59):计算1~10之间的奇数之和。8讨论For-Next循环变量:数值型。循环次数步长ExitFor:强制退出循环>0初值<终值(Step1可省略)<0初值>终值=0死循环ForI=1to100Step1S=S+INextIForI=100to1Step-1S=S+INextI当循环终值是一个变量时，在第一次

4、运行时取走该变量中的值后，该变量中的值即便有修改，但不再影响循环节奏。M=5ForI=1ToMM=M+1printI，MNextI即:ForI=1To5在循环体内，循环变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。ForI=1To5I=I+2PrintINextIForI=1To5I=I-1PrintINextI输出I=？输出I=？【例4-3】编程求自然数10的阶乘。PrivatesubForm_Click()DimI%,S%,T%'T为每一项S=1:T=1For…Next…Print“S=”;SEndSubForI=1To10Step1S=S*TT=T+1Ne

5、xtIS=S*I此时，T=I???分析:每一项和每次相乘的积都是变化量因此，需要两个变量用T表示每一项的值:T=T+1用S表示累加之和:S=S*T循环终止条件:循环次数>100初始化:S=1【例4-3】编程求自然数n的阶乘。PrivatesubForm_Click()DimI%,S%,n%S=1ForI=1To10Step1S=S*INextIPrint“S=”;SEndSubn=InputBox(“n=”)n思考题1.s=1+2+3+4+…+n2.s=12×22×32×42×…×n23.s=12×32×52×…×n24.s=1+3+5+7+…+(2n-1)5.s=1-3+5-7

6、+…+(-1)n+1(2n-1)6.s=设s=1×2×3×…×n,求s不大于6000时最大的n和s.思考：思考:这是连乘器？加法器？计数器？循环次数能否确定？循环终止条件是什么？For…Next控制结构能否解决？格式：While<条件>语句块Wend功能：当循环条件为真时，执行循环体，否则退出循环。2.While-Wend循环——当循环(一般用于循环次数未知)循环体讨论While-Wend进入循环体之前，应正确设置循环条件。如果条件一开始就不成立(False)，则一次循环体也不执行。循环体内必须有修改循环条件的语句，确保循环体能正常执行和正常结束。x=3Whilex>10Prin

7、tx;Wendx=3Whilex>=0Printx;WendX=X-14.Do-Loop循环——Do循环功能:当条件为True时，(While条件)执行循环体;当条件为False时，(Until条件)执行循环体。'①先判断条件，后执行循环体Do{While

8、Until条件}[语句块][ExitDo][语句块]Loop'②先执行循环体，后判断条件Do[语句块][ExitDo][语句块]Loop{While

9、Until条件}两种格式：等价于While-Wend(一般用于循环次数未知)