ループ（繰り返し）文　{ Do ～ Loop , For～Next }

一定の作業を繰り返す場合は、 Do～Loop文　または　For～Next文を使います。

Do～Loop文は、条件を設定することができます。

For～Next文は、数字を一定のStep(例：一ずつ増やす）で増やしたり、減らしたりすることができます。


例）Do～Loop文


Private Sub Command1_Click()

Dim A, B, C As Long

B = 0

C = 0

A = 0

Do Until A = 5

B = B + 1

C = C - 1

A = A + 1

Loop

End Sub

この時点で　A B Cの数値は

A=5

B=5

C=-5

っとなる。


この文ならばFor～Next文でもあらわすことができる。


例)For～Next文


Private Sub Command1_Click()

Dim A, B, C As Long

B = 0

C = 0

A = 0

For A = 1 To 5 Step 1

B = B + 1

C = C - 1

Next A

End Sub


この時点で　A B Cの数値は

A=5

B=5

C=-5

っとなる。