第4章 VB程序结构.ppt

For循环示例 求200-2100年间的所有闰年 2. Do… Loop 循环 Do循环可以在循环次数未知的情况下使用，根据循环条件来决定循环是否要继续。 Do…Loop循环语句有四种语法格式： Do While … Loop 语句与Do … Loop While 语句 条件为真，执行循环体，直到为假时退出。 Do Until …Loop 语句 与Do … Loop Until 语句 条件为假，执行循环体，直到为真时退出。 同一个问题，Do while 与 do until后的条件恰好相反。 （1）Do while… Loop 循环 Do While……Loop 与Do ……Loop While 如果条件为真，则继续循环。 条件 循环体 T F 条件 循环体 T F Do While 条件 … [Exit Do] … Loop Do … [Exit Do] … Loop While 条件 Exit Do用于退出Do Loop循环，但只能退出当前的一层循环。 Do While和Loop应成对出现。 循环体中要有控制循环的语句，以避免出现死循环。 Do while… Loop 循环循环示例 Dim S, i S=0 For i=1 to 100 S=S+i Next i Print S=,S Dim S, i S=0 i=1 Do while i=100 S=S+i i=i+1 Loop Print S=,S Dim S, i S=0 i=1 Do S=S+i i=i+1 Loop while i=100 Print S=,S （2）Do until… Loop 循环循环 Do Until …… Loop 与 Do ……Loop Until 如果条件为真，则退出循环。 条件 循环体 F T 条件 循环体 F T Do Until 条件 … [Exit Do] … Loop Do … [Exit Do] … Loop Until 条件 Do until 与do while 语句中的条件正好相反。 Do until… Loop循环示例 Dim S, i S=0 i=1 Do until not (i=100) S=S+i i=i+1 Loop Print S=,S Dim S, i S=0 i=1 Do while i=100 S=S+i i=i+1 Loop Print S=,S Dim S, i S=0 i=1 Do S=S+i i=i+1 Loop until i100 Print S=,S 3.While循环 格式： While 条件 循环体Wend 条件 循环体 T F Dim S, i S=0 i=1 While i=100 S=S+i i=i+1 Wend Print S=,S Dim S, i S=0 i=1 Do while i=100 S=S+i i=i+1 Loop Print S=,S while … Wend中不能使用Exit do语句来退出循环 循环的嵌套——多重循环结构 如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套， 嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。 上面介绍的几种循环控制结构可以相互嵌套。 正 确 错 误 For i =1 To 10 For j=1 To 20 … Next i Next j For i =1 To 10 For j=1 To 20 … Next j Next i For i =1 To 10 … Next i For i =1 To 10