指定した条件に従い処理を繰り返す
 
指定した条件に従い処理を繰り返す Do Loop
     構文
  Do While 条件式
    繰り返す処理
  Loop
  または
  Do
    繰り返す処理
  Loop While 条件式

使用例
次の例は、内側の Do...Loop ステートメントでは、ループを 10 回繰り返すとフラグの値を偽 (False) に設定し、Exit Do ステートメントを使ってループから抜けます。
外側のループは、フラグの値を調べてループから抜けます。

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

指定した処理を何回繰り返せばよいか予め、判っている時はFor〜Next文を使うのが基本です。
前もって、処理の回数が判らない時(検索処理等)はDo〜Loop文を使って下さい。




01/06/06