Do Loop文は、指定した条件式が満たされるまで、又は満たされなくなるまで処理を繰り返す場合に使用します。Do Loop文ではWhile文とUntil文を使用します。
While文を使用した場合、条件式が満たされるまで処理を繰り返します。
Do While 条件式
条件式が満たされるまで処理される
Loop
以下の例では変数の値がi=100になるまでiに1を加算する処理を繰り返します。
Sub Sample()
Dim i As Integer
i = 1
Do While i < 100
i = i + 1
Loop
Msgbox i
End Sub
Until文を使用した場合、条件式が満たされなくなるまで処理を繰り返します。
Do Until 条件式
条件式が満たされなくなるまで処理される
Loop
以下の例では変数の値がi=100を超えるまでiに1を加算する処理を繰り返します。
Sub Sample()
Dim i As Integer
i=1
Do Until i > 100
i = i + 1
Loop
Msgbox i
End Sub