VBAの繰り返し処理の方法

Question

お世話になります。

VBAのFOR～NEXT文の処理で不明点があり質問させていただきます。

こちらのサイトにある
https://www.sejuku.net/blog/29274

Sub macro1()
    Dim arr_int(2) As Integer
    Dim arr_str(2) As String
    
    'Eraseで初期化
    Erase arr_int
    Erase arr_str
    
    '要素の取得と表示
    Dim i As Integer, str As String
    str = "arr_int"
    For i = 0 To 2
        str = str & ", " & arr_int(i)
    Next i
    str = str & vbCrLf & "arr_str"
    For i = 0 To 2
        str = str & ", " & arr_str(i)
    Next i
    
    MsgBox str, vbInformation
End Sub

なのですが、結果的には下記画像のようになるのですが、なぜこの結果になるのかわかりません。

特にarr_int,0,0,0の0,0,0の部分やarr_str,,,の,,,の部分ですがarr_intやarr_strはなぜ繰り返されないのかが一番わかりません。

ご教授お願いします。

Comments

[otn]

どういう結果になると思ったのでしょうか？

[kaiserdoragon]

お世話になります！

当初は

arr_int,0
arr_int,0,0
arr_int,0,0,0

が出力されると思っており、なぜ数字や空白だけが増えるのだと思っていました。
文法や初期化の概念が理解できていなかったのではなくて、For文の変化が頭の中で処理がしっかりできていないことが原因でした。

Answer 1

どの辺が分からないのか不明なので、とりあえず各コードにコメントを付けておきました。

Sub macro1()
    Dim arr_int(2) As Integer '3つの要素を持つ数値の配列(インデックスは0から始まる)
    Dim arr_str(2) As String  '3つの要素を持つ文字列の配列(インデックスは0から始まる)

    'Eraseで初期化
    Erase arr_int '数値型の初期値は0なので、{0,0,0}の配列
    Erase arr_str '文字列型の初期値は""(中身が空の文字列)なので、{"","",""}の配列

    '要素の取得と表示
    Dim i As Integer, str As String
    str = "arr_int" 'str変数に"arr_int"を代入
    For i = 0 To 2
        str = str & ", " & arr_int(i) 'str変数に数値配列の要素の値(0)をカンマ区切りで追加
    Next i
    str = str & vbCrLf & "arr_str" ''str変数に改行(vbCrLf)と"arr_str"を追加
    For i = 0 To 2
        str = str & ", " & arr_str(i) 'str変数に文字列配列の要素の値("")をカンマ区切りで追加
    Next i

    MsgBox str, vbInformation 'str変数の内容をメッセージボックスに表示
End Sub

上記のコメントをみても分からない部分があれば、どこがどのように分からないのか、具体的に質問してください。

Comments

[kaiserdoragon]

ご回答ありがとうございます！

解決することができました！

わからなかった原因はFor分の値の変化をしっかりと追えておりませんでした。
アナログですが、変化を紙に書いたところしっかり理解できました。

丁寧にコードにコメントありがとうございます。

Answer 2

    Erase arr_int
    Erase arr_str

Integerの配列arr_intを初期化するので要素の値は0になります。
Stringの配列arr_strを初期化するので要素の値は空文字になります。

str = str & ", " & arr_int(i)

変数strにカンマ＋空白と配列の要素を結合して、str自身に代入しています。
ループ前のstr は arr_int
ループ１回目　　 arr_int, 0
ループ２回目　　 arr_int, 0, 0
ループ３回目　　 arr_int, 0, 0, 0

arr_strのループも同じ仕組みです。

Comments

[kaiserdoragon]

ご回答ありがとうございます！

解決することができました！

わからなかった原因はFor分の値の変化をしっかりと追えておりませんでした。

紙にFor分の変化を書きだしたところ解答いただいた内容がしっかり理解できました！

ありがとうございます！