VB控制结构_ForWhileDo

1,提要掌握循环结构基本知识ForNextWhileWendDoLoop掌握程序控制结构编程方法重点ForNextWhileWendDoLoop,第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)Printaa=Int(Rnd*(40-1+1)+1)Printa,ForI=1To15a=Int(Rnd*(40-1+1)+1)PrintaNextI,4.7.3循环结构,循环结构流程图,循环结构程序的组成部分：1.循环初始化？给循环变量和循环体中其它变量赋初值2.循环控制条件？(是否继续?)测试循环条件,判断循环是否还要重复3.循环体？要重复执行的操作4.循环控制修改部分？(确保趋向结束)修改循环变量的值，为循环的下一次重复做准备,循环类型,1.计数循环ForNext2.条件循环当循环WhileWendDO循环DoLoop,5,1.For-Next循环控制,格式：For=ToStep语句块ExitFor语句块Next循环变量,(一般用于循环次数已知),功能:按初值、终值和步长所确定的循环次数执行循环体。ExitFor:强制结束当前循环(出口),循环体,DimI%,s%s=0ForI=1To10Step2s=s+INextI,I:循环变量,1:初值,10:终值,2:步长,循环体,I=I+2,循环变量I的取值分别为:1,3,5,7,9完成s=1+3+5+7+9的计算,例(P59):计算110之间的奇数之和。,8,讨论For-Next,循环变量:数值型。循环次数步长ExitFor:强制退出循环,ForI=1to100Step1S=S+INextI,ForI=100to1Step-1S=S+INextI,当循环终值是一个变量时，在第一次运行时取走该变量中的值后，该变量中的值即便有修改，但不再影响循环节奏。,M=5ForI=1ToMM=M+1printI，MNextI,即:ForI=1To5,在循环体内，循环变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。,ForI=1To5I=I+2PrintINextI,ForI=1To5I=I-1PrintINextI,输出I=？,输出I=？,【例4-3】编程求自然数10的阶乘。,PrivatesubForm_Click()DimI%,S%,T%T为每一项S=1:T=1ForNextPrint“S=”;SEndSub,ForI=1To10Step1S=S*TT=T+1NextI,S=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=”;SEndSub,n=InputBox(“n=”),n,思考题1.s=1+2+3+4+n2.s=12223242n23.s=123252n24.s=1+3+5+7+(2n-1)5.s=1-3+5-7+(-1)n+1(2n-1)6.s=,设s=123n,求s不大于6000时最大的n和s.,思考：,思考:这是连乘器？加法器？计数器？循环次数能否确定？循环终止条件是什么？ForNext控制结构能否解决？,格式：While语句块Wend功能：当循环条件为真时，执行循环体，否则退出循环。,2.While-Wend循环当循环,(一般用于循环次数未知),循环体,讨论While-Wend,进入循环体之前，应正确设置循环条件。如果条件一开始就不成立(False)，则一次循环体也不执行。循环体内必须有修改循环条件的语句，确保循环体能正常执行和正常结束。,x=3Whilex10Printx;Wend,x=3Whilex=0Printx;Wend,X=X-1,4.Do-Loop循环Do循环,功能:当条件为True时，(While条件)执行循环体;当条件为False时，(Until条件)执行循环体。,先判断条件，后执行循环体DoWhile|Until条件语句块ExitDo语句块Loop,先执行循环体，后判断条件Do语句块ExitDo语句块LoopWhile|Until条件,两种格式：,等价于While-Wend,(一般用于循环次数未知),直到型循环,代码2:PrivateSubForm_Click()Dimi%,s互换:置mn和nr，转向继续执行。,例1-3:给定两个正整数m和n，求最大公约数？,5.其他辅助语句,Exit语句多种形式ExitFor、ExitDo、ExitSub、ExitFunction等作用：退出某种控制结构的执行End语句多种形式End、EndIf、EndSelect、EndWith、EndSub、EndFunction等作用：End结束一个程序的运行；其余表示某种控制结构的结束，与对应的结构语句配对.,With语句作用对某个对象执行一系列的操作，而不用重复指出对象的名称,WithLabel1.Height=2000.Width=2000.FontSize=22.Caption=“输入EndWith,Label1.Height=2000Label1.Width=2000Label1.FontSize=22Label1.Caption=“输入,等价,28,思考：(1)i的取值分别=(2)循环体n=n+1共执行了多少次?(3)退出循环后，i=?,PrivateSubForm_Click()Fori=0To50i=i+3n=n+1ifi10thenExitForNextiPrintn=;nEndSub,1.当i=0时,i=i+3=3,n=12.当i=4时,i=i+3=7,n=23.当i=8时,i=i+3=11,n=3,循环结束,阅读分析,29,PrivateSubForm_Click()Dimnum%num=0Whilenum=2num=num+1Printnum;WendEndSub,阅读分析,1.当num=0时,num=num+1=12.当num=1时,num=num+1=23.当num=2时,num=num+1=3,30,PrivateSubForm_Click()Dima%,b%a=0:b=1Doa=a+bb=b+1LoopWhilea10Printa;bEndSub,a=0:b=11.当a=0时,a=1,b=22.当a=1时,a=3,b=33.当a=3时,a=6,b=44.当a=6时,a=10,b=5循环结束,阅读分析,31,PrivateSubForm_Click()Dimstr1AsStringDimletterAsIntegerDimnumberAsIntegerDimotherAsIntegerDimnAsIntegerLetter=0:number=0:other=0Str1=InputBox(“输入字符串=”,”输入框”,”ab32-c,4d_5”)Forn=1toLen(str1)SelectCaseMid(Str1,n,1)Case“A”to“Z”,“a”to“z”Letter=letter+1Case1to9Number=number+1CaseelseOther=other+1EndSelectNextnPrint“letter=”;letter,”number=”;number,”other=”;otherEndSub,思考：(1)n的取值分别=(2)循环体共执行了多少次?(3)退出循环后，n=?(4)如何理解letter=letter+1?,阅读分析,32,跳转:Goto标号,PrivateSubForm_Click()Dimsum%,n%sum=0:n=1qq:Ifn=3Thensum=sum+nn=n+1GoToqqEndIfPrintsum=;sum,n=;nEndSub,1.当n=1时,sum=sum+n=1,n+1=22.当n=2时,sum=sum+n=3,n=n+1=33.当n=3时,sum=sum+n=6,n=n+1=4,跳转结束,本节小结：,For循环变量=初值To终值Step步长循