excel圖表循環設置？下面繼續介紹在滿足指定的條件時才執行相應代碼塊的循環結構，接著來看看Do Until循環。
Do Until循環與Do While循環的結構相似，最本質的區別在于循環條件的判斷。顧名思義，在Do While循環中，當條件為真（True）時，就執行循環；而在Do Until循環中，執行循環直到條件為真（True）時，退出循環。
Do Until循環的基本語法結構如下：
Do [Until 條件語句]
[語句塊]
[Exit Do]
[語句塊]
Loop
或者：
Do
[語句塊]
[Exit Do]
[語句塊]
Loop [Until 條件語句]
說明：
按照慣例，方括號中的內容表示可選項。
條件語句可以放在循環的開始處或者結尾處。如果放在開始處，那么先評估條件，若不滿足條件要求，就執行循環里面的語句；這種情況下，當始終滿足條件時，就有可能一次也不會執行循環里面的語句。如果放在結尾處，則至少會執行一次循環里面的語句。
Exit Do語句表示提前退出循環。
用框圖分別表示Do Until循環的兩種語法形式如下：
與上一篇文章介紹的Do While循環相比較，結構一樣，只是執行循環的條件相反。
接下來，為方便對兩種循環結構的理解，我們改寫上一篇文章中的部分示例。
示例1：如果想要在工作表單元格區域A1:A10中依次填寫數字1至10，也可以使用下面的包含Do Until循環的代碼：
Sub DoUntil1()
Dim i As Integer ‘聲明變量
i = 1 ‘給變量賦初始值
‘循環
Do Until i > 10
Cells(i, 1).Value = i
i = i + 1
Loop
End Sub
注意，與For-Next循環不同的是，在進入循環之前，需要先給變量i賦初始值。在循環中，還需要能夠增加變量的值。
示例2：下面的代碼使用Do Until循環求1至100的和，并顯示結果。
Sub DoUntil2()
‘聲明變量
Dim i As Integer
Dim sum As Integer
‘給變量賦初值
i = 1
sum = 0
‘循環并顯示結果
Do Until i > 100
sum = sum + i
i = i + 1
Loop
MsgBox “1至100的和為：”& sum
End Sub
示例3：下面的代碼使用Do Until循環求1至100之間的偶數和并顯示結果。
Sub DoUntil3()
‘聲明變量
Dim i As Integer
Dim sum As Integer
‘給變量賦初值
i = 1
sum = 0
‘循環并顯示結果
Do Until i > 100
If (i Mod 2 = 0) Then
sum = sum + i
End If
i = i + 1
Loop
MsgBox “1至100的和為：”& sum
End Sub
