VBA Do...While循环

一个Do...while循环用于只要条件为真就重复一组语句。该条件可以在循环开始时或循环结束时检查。

语法

以下是VBA中的一个Do...While循环的语法。

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

流程图

示例

以下示例使用Do...while循环来检查循环开始处的条件。循环内部的语句只有在条件成立时才被执行。

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

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

The value of i is : 
 
The value of i is : 
 
The value of i is : 
 
The value of i is : 
 
The value of i is : 

备用/替代语法

另外还有一个替代语句for...while循环，用于在循环结束时检查条件。下面的例子解释了这两种语法的主要区别。语法 -

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

示例

以下示例使用Do...while循环来检查循环结束时的条件。循环内的语句至少执行一次，即使条件为False。

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

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