模块与VBA程序设计.ppt

二级ACCESS—模块与VBA 10.8 三种基本结构程序设计 循环结构 形式3、4：(直到循环） Do 语句块 [Exit Do] 语句块 Loop { While|Until} 条件 二级ACCESS—模块与VBA 10.8 三种基本结构程序设计 直到循环举例 Sub Command1.Click() ? Dim I As Intger ??? I=1 ? Do ??? Print I ? I=I+1 ? Loop While I=20 End Sub Sub Command1.Click() ? Dim I As Intger ??? I=1 ? Do ??? Print I ? I=I+1 ? Loop Until I=20 End Sub 结果I=21 结果I=2 二级ACCESS—模块与VBA 10.8 三种基本结构程序设计 While…Wend语句循环结构 While 条件 循环块 Wend 说明：该语句的功能与Do While 条件….Loop实现的循环完全相同。 Sub Command1.Click() ? Dim I As Intger ?? I=1 ? While I=20 ??? Print I ? I=I+1 ? Wend End Sub 二级ACCESS—模块与VBA 10.8 三种基本结构程序设计 For循环语句 (一般用于循环次数已知) For 循环变量＝初值 to 终值 [Step 步长] 语句块 [Exit For] 语句块 Next 循环变量 循环体 0 初值终值 =1 时,可省略 0 初值终值 =0 初值＝终值 步长 循环执行的条件 二级ACCESS—模块与VBA 10.8 三种基本结构程序设计 For循环语句 (一般用于循环次数已知) 循环次数 例: For I=2 To 13 Step 3 Print I , Next I Print “I=“, I 循环次数？输出结果？ 循环执行次数 输出I的值分别为: 2 5 8 11 出了循环输出为: I=14 二级ACCESS—模块与VBA 10.8 三种基本结构程序设计 循环的嵌套——多重循环结构 如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定。以下是各种嵌套循环的示例： （1）For I=…. ….. For J=…. …. Next J ….. Next I （2）For I=…. ….. Do While/Until …. …. Loop ….. Next I （3）Do While…. ….. For J=…. …. Next J ….. Loop （4）Do While/Until…. ….. Do While/Until …. …. Loop ….. Loop 二级ACCESS—模块与VBA 10.8 三种基本结构程序设计 对于循环的嵌套，要注意以下事项： (1) 内循环变量与外循环变量不能同名； (2) 外循环必须完全包含内循环，不能交叉； (3) 不能从循环体外转向循环体内，也不能从外循环转向内循环.