求动态创建数组的代码

活宝番茄蛋花汤

1.根据 I 来创建数组，比如I=20 那么创建arr1,arr2,arr3,arr4,arr4,arr5,arr6,arr7,arr8,arr9...........求代码。

百度不到去谷歌

你是要创建I个数组 还是创建1-I个元素的一个数组?

活宝番茄蛋花汤

百度不到去谷歌 发表于 2014-4-21 20:44
你是要创建I个数组 还是创建1-I个元素的一个数组?

是I个数组，是I个数组，是I个数组

ed2003

可以考虑用字典的方法，例：
Dim d()
...
ReDim d(1 To x)
For i = 1 To x
Set d(i) = CreateObject("Scripting.Dictionary")
Next
这样，字典的数量可变，d(i)中的Key和Item也可变。

zhaogang1960

嵌套数组请参考:
Sub Macro1()
    Dim i%, arr(), brr(1 To 10)
    i = 20
    ReDim arr(1 To i)
    For i = 1 To 20
        arr(i) = brr
        For j = 1 To 10
            arr(i)(j) = i * j
        Next
    Next
    MsgBox arr(10)(9)
End Sub

dfsf12

zhaogang1960 发表于 2014-4-22 16:43
嵌套数组请参考:
Sub Macro1()
    Dim i%, arr(), brr(1 To 10)

嵌套数组是什么，能不能把这代码解释下，实在看不懂？

zhaogang1960

dfsf12 发表于 2014-10-19 10:39
嵌套数组是什么，能不能把这代码解释下，实在看不懂？

arr是Variant类型数组，每个元素就是Variant类型的变量，把一个已经定义的数组brr赋值给一个Variant类型的变量，该Variant类型的变量称为数组变量，可以当作数组使用，该数组变量的维数、上下标同brr

pepsi7777

不错，学习下