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循环来检查循环开始处的条件。循环内部的语句只有在条件成立时才被执行。

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

备用/替代语法

另外还有一个替代语句for...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

当上面的代码被执行时，它会在消息框中输出下面的输出。