一个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
当上面的代码被执行时，它会在消息框中输出下面的输出。
