Dim A(-10000 to 10000) as Integer

VBは本当胸が悪くなる。