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

替代语法：

此外，还有一个备用的语法do..while循环它检查条件在循环的结束。这两种语法之间的主要区别，用一个例子说明如下。

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

示例:

下面演示使用 do..while循环来检查条件在循环的结束。循环内的语句执行atleast一次，即使条件为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