Do～Loop（繰り返し処理）

HOME >>Do～Loop（繰り返し処理）

今回はDo～Loop文を説明します。

Do～Loopには二つの書き方があります。

①While・・・条件がＴｒｕｅの場合は処理を繰り返す

②Until・・・条件がＦａｌｓｅになるまで処理を繰り返す

こちらはＦｏｒと違って繰り返してもカウンタ変数などがない為、値は増えていきません。

自分で変数を指定してプラスしていきましょう。

Ｆｏｒだと回数指定ですが、Ｄｏ～Loopを使用すると終わる値がわからない時などに使用します。

まずはWhile文から見ていきましょう

Do While 条件式
条件を満たすまでの処理
Loop

条件を満たすまで繰り返します。

なので最初から条件を満たしている場合はなにもしません。

While文の例↓

Dim i As Integer
i = 1
'iが３以下の場合は繰り返す
Do While i <″

MsgBox (i)
'iの変数に１プラスする
i = i + 1
Loop

Do～Loop文で大事なのは変数で条件を指定した場合

その変数の値を自分で増やしてあげないと、永久に続いてしまいます・・・

間違って永久に続いた場合は「Ctrl」＋「Break」と押してください。
（処理が中断されます。）

他にも上の文で　Ｄｏ　Ｗｈｉｌｅ　ｉ　>　３　とすると

最初に変数（ｉ）は３以下となってFalseとなるので繰り返しの処理はされません。

つぎはＵｎｔｉｌ文を見ていきましょう

書き方はＷｈｉｌｅと同じです。

両方に言える事ですが、Doの後に書くか、Loopの後に書くかで条件が変わってきます。

Doの後に書くと、条件を満たしていた場合は一回も処理がされません。

Ｌｏｏｐの後に書くと、最後に条件判断する為、最低でも一回処理がされます。

ＵｎｔｉｌはＬｏｏｐの後に書いてみたいと思います。

Dim i As Integer
i = 1
'iが３以下の場合は繰り返す
Do
MsgBox (i)
'iの変数に１プラスする
i = i + 1
Loop　Ｕｎｔｉｌ　ｉ　>　３

最後に条件を判断する為、変数　ｉ　の初期値を３以上としても一回は処理されます。

ＵｎｔｉｌなのでＦａｌｓｅを返す条件式を書いています。

これでは３より大きくなるまで繰り返します。

ここまでで少しはプログラムに対してわかってきましたか？？

次はそれぞれの処理の応用編を書いていきたいと思います。