do..until 循环

当我们想要重复一组语句时，只要条件为假，就使用Do…Until循环。 可以在循环开始时或循环结束时检查条件。

语法 (Syntax)

以下是VBA中Do..Until循环的语法。

Do Until condition
   [statement 1]
   [statement 2]
   ...
   [statement n]
   [Exit Do]
   [statement 1]
   [statement 2]
   ...
   [statement n]
Loop           

流程图 (Flow Diagram)

例子 (Example)

以下示例使用Do…Until循环来检查循环开始时的条件。 仅当条件为false时，才会执行循环内的语句。 当条件成立时，它退出循环。

Private Sub Constant_demo_Click() 
   i = 10
   Do Until i>15  'Condition is False.Hence loop will be executed
      i = i + 1
      msgbox ("The value of i is : " & i)
   Loop 
End Sub

执行上述代码时，它会在消息框中输出以下输出。

The value of i is : 11
The value of i is : 12
The value of i is : 13
The value of i is : 14
The value of i is : 15
The value of i is : 16

替代语法

Do...Until循环还有一种替代语法，用于检查循环结束时的条件。 下面的示例解释了这两种语法之间的主要区别。

Do 
   [statement 1]
   [statement 2]
   ...
   [statement n]
   [Exit Do]
   [statement 1]
   [statement 2]
   ...
   [statement n]
Loop Until condition

流程图 (Flow Diagram)

例子 (Example)

以下示例使用Do...Until循环来检查循环结束时的条件。 即使条件为True，循环内的语句也至少执行一次。

Private Sub Constant_demo_Click()  
   i = 10
   Do 
      i = i + 1
      msgbox "The value of i is : " & i
   Loop Until i<15 'Condition is True.Hence loop is executed once.
End Sub

执行上述代码时，它会在消息框中输出以下输出。

The value of i is : 11