Option Explicit Dim size size = 1 Dim A() ReDim A(size) A(0) = 1 A(1) = "foo" MsgBox A(0) MsgBox A(1) Preserve なしの確認 Option Explicit Dim A() ReDim A(1) A(0) = 1 A(1) = "foo" ReDim A(1) MsgBox A(0) MsgBox A(1) Preserve ありの確認 Optio…