一个Do...while 循环用于只要条件为真就重复一组语句。该条件可以在循环开始时或循环结束时检查。
语法
以下是VBA中的一个Do...While 循环的语法。
Do While condition
[statement 1]
[statement 2]
...
[statement n]
[Exit Do]
[statement 1]
[statement 2]
...
[statement n]
Loop
流程图
![](http://image109.360doc.com/DownloadImg/2021/11/2108/234487405_2_20211121083902349.png)
示例
以下示例使用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
当上面的代码被执行时,它会在消息框中输出下面的输出。
![](http://image109.360doc.com/DownloadImg/2021/11/2108/234487405_3_20211121083902849.png)
|