VB6.0的数组的上界上限是多少？是整型的范围么？

VB6.0的说明中说：VB6.0的数组下标的范围是 0 到 32767，应该是正整数范围，不包含负整数，整数的范围是 -32768 到 32767 。最大维数好像是60维。

[此贴子已经被作者于2018-9-18 18:59编辑过]

可是我在申请动态数组的时候，老是出现内存溢出，想找找问题所在……

Dim Commpents_Name_Style() As String
Private Sub Form_Load()
ReDim Commpents_Name_Style(1 To 30000,1 To 30000,1 To 30000) As String
End Sub

顺便问问，如何可以在不声明数组的下界和上界的情况下，申请三维数组？

关于多维数组的下标，VB文档中没有提及，我使用过的三维数组的下标没有超过200，至于到底三维数组的下标是多少的确无法回答你。
刚刚测试了一下，如果是 ReDim Commpents_Name_Style(1 To 511, 1 To 511, 1 To 511) 不会溢出，大于 511 就会溢出。
在声明动态数组的时候已经声明了数组的数据类型，在 ReDim 时不要再次声明数据类型了。
关于你说的：“如何可以在不声明数组的下界和上界的情况下，申请三维数组？”我认为办不到，因为数组使用前必须要声明。

另外不知道你使用这样大的三维数组是做什么用的，一般好像是 Dim AA(1 To 5, 1 To 200, 1 To 30000) As String 这样的，下标是不一样的，即就是二维数组，各维的下标也是不一样的，你的这种很特别。

好像 VB 固定大小的数组有一个 占用内存不得超过 64K 的限制。
但我测试失败，这个限制值是多少，不清楚了。
Const aMax = 2 ^ 26
Dim a(aMax) As Long
这个不报错，但 2^27 时就报错。

三维超大数组，那你想办法改成 结构吧！好像这个可以突破内存的限制。

VB6.0的数组下标的范围是 0 到 32767
这个是 控件数组的限制。

现在设计的一个程序，最终点击了文件保存和编译的时候，方才会将数据一一输出到文件，所以，中途使用软件设计的时候，并不会自生成数据，写出文件，以致于中途设计的时候需要一些变量来存储这些临时数据，而最好的办法，便是使用三维数组，也是最为简便的方法了，而我之所以会使用如此大范围的数组，是因为我怕，存储临时数据的时候，很容易超出数组的承受范围，以至于出现程序保存的情况，所以想着尽量放大数组的范围，让程序不易出现程序报错，而数据也能够一一临时存储起来。

怎么改？

厉害了我的天啊,居然用到三维

结构 : 一样有64K限制

Private Type C
    Third() As String
End Type
Private Type B
    Second() As C
End Type
Private Type A
    First() As B
End Type
Private AA As A

32723=>三维整型最大量

Private Type C
    Third(32723) As Integer
End Type
Private Type B
    Second As C
End Type
Private Type A
    First As B
End Type
Private AA As A

所以应该是三个()乘积需小于32723

Private Type C
    Third() As Integer
End Type
Private Type B
    Second() As C
End Type
Private Type A
    First() As B
End Type
Private AA As A

不过实际应用上从没用到这么大的值或资料
若真有这种需求建议改变一下程式逻辑

[此贴子已经被作者于2018-9-19 17:13编辑过]

那使用自定义数据类型可以不？用三个数组定义一个数据类型，每个数组的上界为30000，这应该没有问题了吧？