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