资源描述：
《第5章 循环结构化程序设计ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第五章循环结构化程序设计5.1循环语句5.2多重循环5.3其它辅助控制语句5.4列表框与组合框5.5程序举例循环:是指在一定条件下反复执行一段代码，被反复执行的程序段称为循环体。★类型①计数型：For循环②条件型：Do循环③当型：While循环概述5.1循环语句For循环(计数型)用于循环次数能确定的场合循环变量=初值循环变量<=终值内T语句块循环变量+步长F有ExitForFT【格式】For循环变量＝初值to终值[Step步长]语句块[ExitFor]Next循环变量循环次数＝int（（终值-初
2、值）/步长+1）默认步长:+1可省略循环变量必须是数值类型语句块可以是一句或多句例:ForI=2To13Step3PrintI,NextIPrint:Print“I=“,I结果：输出I的值分别为:25811循环执行次数：循环结束输出为:I=14(初值+循环次数*步长)思考：若初值和终值颠倒，循环执行几次？【例5.1】通过循环变量的变化在窗体上输出七彩字，运行界面如下图所示。图5.1运行结果程序代码：PrivateSubForm_Click()Dimi%,green%,blue%RandomizeF
3、ori=lto800green=Int(255*Rnd+1)blue=Int(255*Rnd+1)CurrentX=500+iCurrentY=500+iForeColor=RGB(i,green,blue)Print“hello”NextiEndSub【例5.2】运行下面的程序段,输出结果如图5.2所示。图5.2运行结果程序代码：PrivateSubcommnd1_Click()PrintSpc(6);"原来的循环次数=";10PrintSpc(6);"改变后的循环过程："j=0Fori=1To
4、20Step2i=i+3‘在循环体内对循环变量赋值j=j+1PrintSpc(6);"第";j;"次循环i=";iNextiPrintSpc(6);"退出循环后i=";iEndSubDO循环(条件型)用于循环次数不确定的场合DoWhile…LoopDo…WhileLoop条件语句块语句块TF语句块语句块条件TF有ExitDoFT有ExitDoFTDoUntil…LoopDo…UntilLoop条件语句块语句块语句块语句块条件FT有ExitDoFFTT有ExitDoFTDo{While
5、Until}
6、<条件>语句块[ExitDo]语句块Loop【格式1】【格式2】Do语句块[ExitDo]语句块Loop{While
7、Until}<条件>先判断后执行有可能一次循环都不执行先执行后判断至少执行了一次循环条件为假执行循环体【例5.3】我国有13.2亿人口,设年增长率为0.8%的增长率,多少年后超过26亿。m=1320000000#:year=0DoWhilem<=2000000000#m=m+m*0.005year=year+1Loop若将While改为Until，条件表达式怎么修改？【例5.4】编
8、写程序计算在1-100之间,即能被3整除,又能被7整除的最小数。PrivateSubCommand1_Click()DimnAsIntegern=1DoIfnMod3=0AndnMod7=0ThenLabel1.Caption="最小值为:"&nExitDo'提前结束循环EndIfn=n+1LoopWhilen<=100EndSub通过设置条件,强制提前结束循环While循环(当型)用于循环次数不确定，但控制条件可知的场合给循环变量赋值条件为真吗？T语句块FWhile…Wend循环流程图【例5.5
9、】计算1+2+3+…+100的值。程序代码：PrivateSubCommandl_Click0DimsAsSingle,iASIntegeri=1Whilei<=100sum=sum+ii=i+1WendPrint”1^2+2^2+3^2+…100^2”;sEndSub为循环变量赋值，以使条件为真设置修改循环条件的语句避免死循环【例5.6】从键盘上输入一串字符,以”?”技术,并对输入的字符中的字母个数和数字个数进行统计。程序代码：PrivateSubCommand1_Click()Dimch$,n
10、um1%,num2%num1=0:num2=0ch=InputBox("请输入字符:")Whilech<>"?"If(ch>="a"Andch<="z")Orch>="A"Andch<="Z")Thennum1=num1+1ElseIfch>="0"Andch<="9"Thennum2=num2+1EndIfch=InputBox("请输入字符:")WendPrint"字母个数:";num1Print"数字个数:";num2EndSub5.2多重循环一个循环体内又包含了一个完整的循
