For Next MsgBox の疑問です

Question

Dim i
For i = 1 To 5
MsgBox i
Next

Dim i
For i = 1 To 5
MsgBox i
Next
MsgBox i

上の記述で　1,2,3,4,5と表示されるのは納得がいくのですが、下の記述でMsgBox iが追加されたことで6まで表示されるのが色々調べたのですが分かりません。
どなたかご教示ください。

Comments

[ttyp03]

文章が途切れているようです。編集お願いします。

[hisayan]

失礼いたしました。
抜けている部分は以下の通りでした。

色々調べたのですが、よく分かりません。どなたかご教示いただけませんでしょうか。

Answer 1

中々見えにくいところではありますが、For文の終了条件はインクリメントをしてから判断されます。

1. 「5」が表示される
2. iが6になる
3. Forの制御が、ループ条件を満たさないと判断して終了する

もし、ループしたカウンタを保存しておきたい場合は別の変数を使用するべきです。

    Dim i
    Dim count
    count = 0
    For i = 1 To 5
        count = i
        MsgBox count
    Next
    MsgBox count

Comments

[hisayan]

ありがとうございました。