请问下高手，有没有可能实现多维数组？

dim a() as long
redim a(11,11)
'不就得了？

不是二维，是N多的那种

你要多少维???????????

一路这样定义下去就是了.

数组变量的维数；最多可以定义 60 维的多维数组

骗人，我这个定义到8维的时候就溢出了，骗子，呜~~~~~~~~

看来现在的硬件条件还不够强大，我的数组连接10个程序之后就死机了……，可惜啊，经济条件不够啊……呜呜~~~~~~！

Option Explicit

Dim A() As Long

Private Sub Command1_Click()

ReDim A(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
      A(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) = 1
MsgBox A(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)

End Sub


我测试没错,16维
不过,执行速度感觉有点慢.

你把数值改成大点的就会发现出问题……，改成999试验下，就试试8维就行

下标 9999 ??

VB好像有一个限制,限制是
一个数组占用的内存不得超过 64K 内存.
你所说的溢出,是指什么溢出?
内存溢出?

如果是内存溢出,那是你的数组太大了,并不是说数组维数太多了.


任何数据类型的数组都需要 20 个字节的内存空间，加上每一数组维数占 4 个字节，再加上数据本身所占用的空间。数据所占用的内存空间可以用数据元数目乘上每个元素的大小加以计算。例如，以 4 个 2 字节之 Integer 数据元所组成的一维数组中的数据，占 8 个字节。这 8 个字节加上额外的 24 个字节，使得这个数组所需总内存空间为 32 个字节。

包含一数组的 Variant 比单独的一个数组需要多 12 个字节。



内存溢出（错误 7）

需要更多的内存空间，或是遇到 64K 段边界限制。此错误有以下的原因和解决方法：