VBA - Do-Until 循环

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

语法

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

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

流程图

示例

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

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

流程图

示例

以下示例使用 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

❮ vba_loops.html