Dim c(600, 620, 600, 620)
这是个多么庞大的数组啊!它所占用的字节总数为601*621*601*621*16,你自己算算是多少吧,反正我的计算器算不了这么大的数,大概是2千多GB吧,我不知道几年后的电脑内存有没有这么大的,反正现在肯定是没有,所以发生“内存溢出”的错误就一点也不奇怪了。
从你的程序来看,这个数组其实就这么大:
Dim c(2, 2, 2, 2)
更准确一点的话,还应该把0去掉:
Dim c(1 To 2, 1 To 2, 1 To 2, 1 To 2)
这样的话,实际占用字节数就是2*2*2*2*16=256