VBA - Do-While 迴圈

當我們希望在條件為真時重複一組語句時，使用 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

當執行上述程式碼時，它在訊息框中列印以下輸出。

The value of i is : 11