循环结构do循环嵌套课件

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

DoWhile<条件表达式>循环体Loop条件表达式成立？循环体NoYes条件表达式成立？循环体NoYes先判断后执行先执行后判断特点：条件表达式成立执行循环体Do循环体LoopWhile<条件表达式>i=1:s=0Whilei<=100s=s+ii=i+1wendi=1:s=0DoWhilei<=100s=s+ii=i+1Loopi=1:s=0Dos=s+ii=i+1LoopWhilei<=1002.直到型循环直到循环条件成立时退出循环，否则执行循环。DoUntil<条件表达式>循环体Loop特点：条件表达式不成立执行循环体先判断后执行条件表达式成立？循环体NoYes先执行后判断条件表达式成立？循环体NoYesDo循环体LoopUntil<条件表达式>例4.20求某同学的平均分PrivateSubCommand1_Click()DimSum%,i%,n%,num%,avg#Sum=0:i=1:n=Val(Text1.Text)

DoWhilei<=n

num=Val(InputBox("输入第"&i&"位_同学的成绩","成绩输入"))Sum=Sum+numi=i+1

Loop

avg=Sum/nMsgBox"该生"&n&"门课程的平均分为"&avg,,"求平均成绩"EndSub例4.25分析程序PrivateSubForm_click()

Dims%,i%s=0:i=1DoWhilei<=10s=s+i

Ifs>=4ThenExitDoEndIf

i=i+1LoopPrint"第";i-1;"项“EndSub输出结果：第2项循环的嵌套在一个循环结构的循环体内含有另一个完整的循环结构，称为循环的结构（多重循环）。说明：内外循环之间必须完整包含，不得交叉。内循环变量与外循环变量不能同名。如：fori=1to10 forj=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和自己）的自然数即为素数。素数的判断：1：只能被1和本身整除。或2：不能被小于它的平方根的所有素数整除就是素数。

但是从算法上考虑，为了减少重复量，开平方后面的数就不用相除了。

PrivateSubForm_click()Dimm%,i%,n%Form=101To200Step2'外循环测试奇数Fori=2ToSqr(m)'内循环构造测试条件IfmModi=0Then'能够整除，不是素数ExitFor'结束内循环EndIfNextiIfi>Sqr(m)Then'正常结束内循环，是素数n=n+1'统计素数个数Printm;IfnMod5=0ThenPrint'控制每行输出5个EndIfNextmPrintPrint"素数的个数为";n'输出素数个数EndSub另一方法：素数与1到素数本身中间的所有整数都相除，看是否有整除的数，如果有，那肯定不是素数了。例4.28打印以下图形。PrivateSubform_click()Dimi%,j%Fori=1To5Forj=1To5Print"*";NextjPrintNextiEndSub思考：如何打印以下图形。PrivateSubForm_Click()Font.Size=20Dimi%,j%ClsFori=1To5PrintSpace(i-1);Forj=1To10-2*i+1Print"*";NextjPrintNextiEndSub例4.30打印九九乘法表分析：（1）共9行，按行打印Fori=1to9打印第i行换行，准备输出下一行Nexti（2）每列的列号从1到9，行号固定不变。Forj=1to9Printi&“*”&j&“=”&i*j;‘打印第i行NextjPrivateSubForm_click()Dimi%,j%PrintTab(30);"九九乘法表"PrintFori=1To