Ϊ True ʱΪ True ֮ǰظִĳ顣

Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop 
Ҳʹ﷨

Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until} condition]

condition 
ֵַʽֵΪ True  False condition Ϊ Null condition  False 
statements 
 condition Ϊ True ʱظִеһ 
˵
Exit Do  Do...Loop Уṩһ˳ Do...Loop ķ Do...Loop еκλ÷ Exit DoExit Do ͨж䣨 If...Then һʹãƴݸ Loop 䡣

Ƕ Do...Loop еʱExit Do ƴݸѭһǶѭ

Ӿ˵ʹ Do...Loop : 

Do Until DefResp = vbNo
   MyNum = Int (6 * Rnd + 1)   '  1  6 ֮
   DefResp = MsgBox (MyNum & " Ҫһ", vbYesNo)
Loop

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        ' ֹѭ
Ҫ
汾 1
