VBScript のループ制御、Do...Loop
x = 0 Do While x < 2 MsgBox "Loop 1: " & x x = x + 1 Loop x = 3 Do MsgBox "Loop 2: " & x x = x + 1 Loop While x < 2 x = 0 Do Until x > 2 MsgBox "Loop 3: " & x x = x + 1 Loop x = 3 Do MsgBox "Loop 4: " & x x = x + 1 Loop Until x > 2 Do While True MsgBox "Loop 5: " Exit Do Loop