VBA - Do-While 循环

更新于 2024/3/21 1:47:00

当我们想要在条件为真时重复一组语句时，使用 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 循环来检查循环开始处的条件。仅当条件为 True 时，才会执行循环内的语句。

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 循环来检查循环末尾的条件。即使条件为 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

执行上述代码时，它会在消息框中打印以下输出。