do.......loop until條件直接為壹個數意思是不斷循環操作，直到條件和until想壹致時停止操作。until 是排除條件。不否和條件的，才執行命令。
語法：
Do
[statements]
[Exit Do]
[statements]
Loop?[{While | Until} condition]
舉例：
Dim Check, Counter
Check = True: Counter = 0' 初始化變量。
Do?' 外層循環。
Do While?Counter<20 ' 內層循環。
Counter = Counter + 1 ' 增加計數器。
If Counter =10 Then ' 如果條件為 True...
Check = False' 將標誌值設置為 False。
Exit Do ' 終止內層循環。
End If
Loop
Loop Until?Check = False' 立即終止外層循環。
擴展資料：
Exit Do?僅可以用在?Do...Loop?控制語句中，提供另壹種退出?Do...Loop?的方法。可以在?Do...Loop?語句中的任何位置放置任意個?Exit Do。
Exit Do?通常與條件判斷語句（如?If...Then?）壹起使用，將控制傳遞給緊隨在?Loop?語句後面的語句。當用於嵌套?Do...Loop?中的時候，Exit Do?將控制傳遞給其所在循環的上壹層嵌套循環。
百度百科——Do...Loop