武汉大学---VBA程序设计-.ppt

*8.2.3循环结构Do......Loop循环格式1：Do[{While|Until}循环条件表达式][语句序列1][ExitDo][语句序列2]Loop格式2：Do[语句序列1][ExitDo][语句序列2]Loop[{While|Until}循环条件表达式]*流程图真假循环体循环条件真假循环体循环条件格式1格式2*例计算1+2+…+100Subexample4()DimsAsInteger,iAsIntegers=0i=1Dos=s+ii=i+1Loopwhile(i=100)MsgBox1+2+...+100=sEndSub*循环结构示例(P255)寻找乘积为399的两个相邻的奇数Subexample5() DimsAsIntegers=1DoWhiles*(s+2)399s=s+2Ifs*(s+2)=399ThenMsgBoxs×(s+2)=s*(s+2)EndIfLoopEndSub*循环结构示例我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿SubPopu()x=13n=0DoWhilex26x=x*1.008n=n+1LoopMsgBoxnEndSub*循环结构示例有一张厚0.5mm面积足够大的纸，将它不断对折。求对折多少次后其厚度超过珠穆朗玛峰的高度(8848000mm)Subzmlm()h=0.5n=0DoWhileh8848000h=h*2n=n+1LoopMsgBoxn,,折叠的次数EndSub*8.2.3循环结构While......Wend循环格式：For循环条件循环体Wend说明：碰到Wend语句后对循环条件进行判断，若为真，继续执行循环体；否则，执行Wend后的语句与Do......Loop循环类似，但不能使用Exit语句退出循环*8.2.3循环结构循环嵌套：一个循环体内包含另一个完整的循环结构执行过程：外层循环的循环变量每取一个值，其内层循环都必须从循环开始重复执行到循环终止然后返回外层循环，外层循环取下一个值注意：各层循环结构的循环变量不能同名*嵌套循环示例(P256)在立即窗口输出“九九”口诀表Subsquaretable() Fori=1To9Forj=1To9m=i*jDebug.PrintTab(j*8);i“×j=i*j;NextjDebug.PrintNextiEndSub*综合读程序*下面的过程运行之后，变量J的值为。SubFun()DimJasIntegerJ=5DoJ=J+2LoopWhileJ10EndsubA.5 B.7 C.9 D.11D*下面的程序执行结果是。DimiAsInteger,SAsIntegerS=0Fori=1to10step1S=S+INextIA.S=0 B.S=10C.死循环 D.S=55D*下列程序运行后，消息框输出。Subex1() Dima(10,10) Form=2to4 Forn=4to