Do...While ステートメント
概要
処理結果が指定値になるまで記述した処理を続けます
（書式）
Do {While : Utill} 条件式
実行する処理
Loop
作成例
フォーム「テストフォーム２」上のコマンドボタン「判断テスト」のクリック時イベントに
次のプロシージャを作成して実行。
下図のように０～９までメッセージが順に表示され終了します。
（プロシージャ）
Private Sub cmd_判断_Click()
Dim cnt As Integer
cnt = 0
Do While cnt < 10
MsgBox cnt
cnt = cnt + 1
Loop
End Sub
下図のように０～１０までメッセージが順に表示され終了します。
