各位大侠，我在编写如下代码是出错
dim A() as double
dim n as long
n=10000
redim A(n,n) as double
当运行到redim A(n,n) as double 语句时，提示“实时错误“7”，内存溢出”错误。当n=7000时不会出错，请教是何原因？我现在想定义一个20000*20000的二维数组，请教如何实现。