第6章VB控制结构（2）6.1概述打印九九乘法表DimSgsAsStringDimi,jAsIntegerFori=1To9’被乘数从1变到9Forj=iTo9’乘数从1变到9Sgs=i&"×"&j&"="&Str(i*j)’打印公式如1×1=1Picture1.PrintTab((j-1)*9+1);Sgs;NextjPicture1.PrintNextIFor循环语句(一般用于循环次数已知)形式：For循环变量＝初值to终值[Step步长]语句块[ExitFor]语句块Next[循环变量]循环次数6.2For...Next循环结构6.2For...Next循环结构练习：分析下面程序段结束时窗体上显示的值是多少？例6.7编程计算：S=1+2+3+…+100前测型:DoWhile<条件>语句块[ExitDo]语句块Loop6.2Do...Loop循环结构后测型:Do语句块[ExitDo]语句块LoopWhile<条件>6.3Do...Loop循环结构前测型:DoUntil<条件>语句块[ExitDo]语句块Loop6.3Do...Loop循环结构后测型:Do语句块[ExitDo]语句块LoopUntil<条件>6.3Do...Loop循环结构本节小结：（1）当使用While<条件>构成循环时，当条件为“真”，则反复执行循环体，当条件为“假”，则退出循环。（2）当使用Until<条件>构成循环时，当条件为“假”，则反复执行循环体，直到条件成立，即为“真”时，则退出循环。思考:将一个十进制数转换成二进制。将一个十进制数转换成二进制。将一个十进制数转换成二进制的程序如下:6.4.1While…Wend语句使用格式如下：While<条件><循环块>Wend说明：该语句的功能与DoWhile<条件>….Loop实现的循环完全相同。6.5.1循环的嵌套——多重循环结构如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。上面介绍的几种循环控制结构可以相互嵌套，下面是几种常见的二重嵌套形式：（1）ForI=….…..ForJ=….….NextJ…..NextIPrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To3Print"i=";iForj=1To3PrintTab;"j=";jNextNextEndSub6.5嵌套结构6.5嵌套结构6.5嵌套结构例：打印九九乘法表.Fori=1To9Forj=1To9se=i&"×"&j&"="&i*jPicture1.PrintTab((j-1)*9+1);se;NextjPicture1.PrintNexti6.5嵌套结构6.5嵌套结构6.5嵌套结构6.5.2循环结构与选择结构的嵌套（1）ForI=…………IF…Then……EndIF……NextI6.6强制退出循环6.6强制退出循环6.6强制退出循环6.6强制退出循环6.7应用举例DimN%,I%,K%N=Val(InputBox("N=？"))K=Int(Sqr(N))ForI=2ToKIfNModI=0ThenExitForNextIIfI>KThenPrintN;"是素数"ElsePrintN;"不是素数"EndIf6.7应用举例6.7应用举例6.7应用举例几种循环语句比较结束