配列を初期化する

今回は配列の初期化についてメモしておきます。配列の初期化にはEraseステートメントを使います。

実行プログラム

Sub Sample3_8_1()

    Dim strArray1(6)  As String
    Dim varArray2     As Variant
 
    strArray1(0) = "Sun"
    strArray1(1) = "Mon"
    strArray1(2) = "Tue"
    strArray1(3) = "Wed"
    strArray1(4) = "Thu"
    strArray1(5) = "Fri"
    strArray1(6) = "Sat"

    varArray2 = Split("日,月,火,水,木,金,土", ",")

    Erase strArray1  ' 初期化
    Erase varArray2  ' 初期化
 
End Sub

Sub Sample3_8_1()

Dim strArray1(6) As String

Dim varArray2 As Variant

strArray1(0) = "Sun"

strArray1(1) = "Mon"

strArray1(2) = "Tue"

strArray1(3) = "Wed"

strArray1(4) = "Thu"

strArray1(5) = "Fri"

strArray1(6) = "Sat"

varArray2 = Split("日,月,火,水,木,金,土", ",")

Erase strArray1 ' 初期化

Erase varArray2 ' 初期化

End Sub

Eraseステートメント実行前

Eraseステートメント実行後

固定サイズ配列の要素を初期化することができます。
動的配列の記憶域を解放することができます。