VBA - Do-Until 迴圈

當我們希望在條件為假的情況下重複一組語句時，將使用 Do…Until 迴圈。可以在迴圈的開頭或迴圈的末尾檢查條件。

語法

以下是 VBA 中 Do..Until 迴圈的語法。

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

流程圖

示例

以下示例使用 Do…Until 迴圈在迴圈開始時檢查條件。僅當條件為假時，才會執行迴圈內的語句。當條件變為真時，它將退出迴圈。

Private Sub Constant_demo_Click() 
   i = 10
   Do Until i>15  'Condition is False.Hence loop will be executed
      i = i + 1
      msgbox ("The value of i is : " & i)
   Loop 
End Sub

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

The value of i is : 11

The value of i is : 12

The value of i is : 13

The value of i is : 14

The value of i is : 15

The value of i is : 16

備用語法

還有一種備用語法用於 Do...Until 迴圈，該語法在迴圈末尾檢查條件。以下示例解釋了這兩種語法之間的主要差異。

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

流程圖

示例

以下示例使用 Do...Until 迴圈在迴圈末尾檢查條件。即使條件為 True，迴圈內的語句也會執行至少一次。

Private Sub Constant_demo_Click()  
   i = 10
   Do 
      i = i + 1
      msgbox "The value of i is : " & i
   Loop Until i<15 'Condition is True.Hence loop is executed once.
End Sub

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

The value of i is : 11