do..while 循环

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

语法 (Syntax)

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

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

流程图 (Flow Diagram)

例子 (Example)

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

流程图 (Flow Diagram)

例子 (Example)

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