VBScript のステートメント、Do...Loop ステートメント

Dim ステートメントはスキップ

Do
  MsgBox "foo"
  Exit Do
Loop

x = 0
Do While x = 0
  MsgBox "foo " & x
  x = 1
Loop

x = 0
Do Until x = 1
  MsgBox "foo " & x
  x = 1
Loop

x = 1
Do
  MsgBox "foo " & x
Loop While x = 0

x = 1
Do
  MsgBox "foo " & x
Loop Until x = 1

まんま

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     ' 直ちに外側のループから抜け出します。