VBA - Do-While 循环

当我们希望在条件为真时重复一组语句时，使用 Do…While 循环。该条件可以在循环开始时或循环结束时检查。

语法

以下是 VBA 中 Do…While 循环的语法。

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

流程图

示例

以下示例使用 Do…while 循环在循环开始时检查条件。仅当条件变为 True 时，才执行循环中的语句。

Private Sub Constant_demo_Click()
   Do While i < 5
      i = i + 1
      msgbox "The value of i is : " & i
   Loop
End Sub

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

The value of i is : 1

The value of i is : 2

The value of i is : 3

The value of i is : 4

The value of i is : 5

备用语法

Do…while 循环还有一种备用语法，用于在循环结束时检查条件。这两个语法之间的主要区别将在以下示例中说明。

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

示例

以下示例使用 Do…while 循环在循环结束时检查条件。即使条件为 False，循环中的语句也会至少执行一次。

Private Sub Constant_demo_Click() 
   i = 10
   Do
      i = i + 1
      MsgBox "The value of i is : " & i
   Loop While i < 3 'Condition is false.Hence loop is executed once.
End Sub

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

The value of i is : 11