循环结构do循环嵌套ppt课件.ppt

《循环结构do循环嵌套ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、上节课内容回顾While…Wend语句注意:如果循环次数未知，则最好采用while…wend语句循环结构程序设计for循环结构While循环结构Do…while循环结构多重循环结构重点：理解循环的执行过程编写循环结构程序难点：多重循环结构循环结构循环结构依据某一条件（循环条件）反复执行某段程序（即循环体）。三种循环结构：for、while、do循环三要素循环三要素：(1)初始化：决定循环的初始状态，即与循环相关的变量的初始值。(2)循环体：循环中反复执行的部分。(3)循环的条件：决定循环结束的条件。Do循环当型循环当循环条件成立时执行循环，否则退出循环。Do循

2、环结构DoWhile<条件表达式>循环体Loop条件表达式成立？循环体NoYes条件表达式成立？循环体NoYes先判断后执行先执行后判断特点：条件表达式成立执行循环体Do循环体LoopWhile<条件表达式>例：求1~100之间所有整数的和，用While…Wend语句实现。sum=0:i=1Whilei<=100sum=sum+ii=i+1Wendi=1:s=0Whilei<=100s=s+ii=i+1wendi=1:s=0DoWhilei<=100s=s+ii=i+1Loopi=1:s=0Dos=s+ii=i+1LoopWhilei<=1002.直到型循环直

3、到循环条件成立时退出循环，否则执行循环。DoUntil<条件表达式>循环体Loop特点：条件表达式不成立执行循环体先判断后执行条件表达式成立？循环体NoYes先执行后判断条件表达式成立？循环体NoYesDo循环体LoopUntil<条件表达式>求1~100之间所有整数的和i=1:s=0DoWhilei<=100s=s+ii=i+1Loopi=1:s=0Dos=s+ii=i+1LoopWhilei<=100i=1:s=0DoUntili>100s=s+ii=i+1Loopi=1:s=0Dos=s+ii=i+1LoopUntili>100例4.20求某同学的平均分

4、PrivateSubCommand1_Click()DimSum%,i%,n%,num%,avg#Sum=0:i=1:n=Val(Text1.Text)DoWhilei<=nnum=Val(InputBox("输入第"&i&"位_同学的成绩","成绩输入"))Sum=Sum+numi=i+1Loopavg=Sum/nMsgBox"该生"&n&"门课程的平均分为"&avg,,"求平均成绩"EndSub例4.25分析程序PrivateSubForm_click()Dims%,i%s=0:i=1DoWhilei<=10s=s+iIfs>=4ThenExitDoEnd

5、Ifi=i+1LoopPrint"第";i-1;"项“EndSub输出结果：第2项Goto语句前面介绍的循环结构都是根据某个条件进行循环，称为有条件跳转语句。Goto语句和On-Goto语句，称为无条件跳转语句。格式：Goto语句标号

6、行号注意：(1)“语句

7、标号”是一个英文单词或整数，位于一行语句的开头，用于指示语句的位置，以冒号结尾。(2)Goto语句与If语句构成循环结构。循环的嵌套在一个循环结构的循环体内含有另一个完整的循环结构，称为循环的结构（多重循环）。说明：内外循环之间必须完整包含，不得交叉。内循环变量与外循环变量不能同名。如：fori=1to1

8、0forj=1to10……nextjnexti内循环j外循环i例4.26：打印循环变量的值。PrivateSubForm_click()Dimi%,j%Fori=1To3'外循环变化为1、2、3Print"i=";i;",";'打印外循环变量i的值Print"j=";Forj=1To4'内循环变化为1、2、3、4Printj;'打印内循环变量j的值NextjPrintNextiEndSub例4.27求100-200之间的素数。质数又称素数。指在一个大于1的自然数中，除了1和此整数自身外，没法被其他自然数整除的数。换句话说，只有两个正因数（1和自己）的自然数即为

9、素数。分析：穷举法：把所有的值一一列举出来，然后依次进行筛选。（1）Form=100to200判断m是否为素数，若是则打印Nextj（2）因为所有的偶数都不是素数，故设步长为2，从101开始判断，以提高程序的执行效率。Form=101to200step2判断m是否为素数，若是则打印Nextj素数的判断：1：只能被1和本身整除。或2：不能被小于它的平方根的所有素数整除就是素数。但是从算法上考虑，为了减少重复量，开平方后面的数就不用相除了。PrivateSubForm_click()Dimm%,i%,n%Form=101To200Step2'外循环测试奇数Fori

10、=2ToSqr(m)'内循环构造测试条