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