vb控制结构-循环结构程序设计.ppt

第6章VB控制结构（2）6.1概述打印九九乘法表
DimSgsAsString
Dimi,jAsInteger
Fori=1To9’被乘数从1变到9
Forj=iTo9’乘数从1变到9
Sgs=i&"×"&j&"="&Str(i*j)’打印公式如1×1=1
Picture1.PrintTab((j-1)*9+1);Sgs;
Nextj
Picture1.Print
NextIFor循环语句(一般用于循环次数已知)
形式：
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,jAsInteger
Fori=1To3
Print"i=";i
Forj=1To3
PrintTab;"j=";j
Next
Next
EndSub6.5嵌套结构6.5嵌套结构6.5嵌套结构例：打印九九乘法表.
Fori=1To9
Forj=1To9
se=i&"×"&j&"="&i*j
Picture1.PrintTab((j-1)*9+1);se;
Nextj
Picture1.Print
Nexti6.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=2ToK
IfNModI=0ThenExitFor
NextI
IfI>KThen
PrintN;"是素数"
Else
PrintN;"不是素数"
EndIf6.7应用举例6.7应用举例6.7应用举例几种循环语句比较结束