我的教室里滿是孩子，每個孩子都必須列出自己喜歡的玩具以作作業。有些孩子只列出1個玩具，而另一些孩子列出更多。如何創建一個鋸齒狀的數組，使Kids（x）（y）...其中x是我班上孩子的數量，y是他們列為收藏夾的玩具列表？
3 回答
梵蒂岡之花
TA貢獻1900條經驗 獲得超5個贊
您可以使用收藏集
Public Sub Test()
Dim list As New Collection
Dim i As Integer, j As Integer
Dim item As Collection
For i = 1 To 10
Set item = New Collection
For j = 1 To i
item.Add "Kid" & CStr(i) & "Toy" & CStr(j)
Next j
list.Add item
Next i
Debug.Print "Kid 4, Toy 2 = " & list(4)(2)
End Sub
哪個輸出 Kid 4, Toy 2 = Kid4Toy2
紫衣仙女
TA貢獻1839條經驗 獲得超15個贊
Jean-Francois指出，每個元素可以是長度可變的數組。我要補充一點，每個元素也可以是其他類型，而不必是數組。例如：
Dim c as New Collection
Dim a(1 to 5) as Variant
c.Add "a","a"
c.Add "b","b"
a(1) = 5
a(2) = Array(2,3,4)
set a(3) = c
a(4) = "abcd"
a(5) = Range("A1:A4").Value
然后可以根據每個子元素的隱式類型來引用各個子元素：
a（2）（1）= 3
a（3）（1）=“ a”
a（5）（2,1）=單元格A2中的內容。
- 3 回答
- 0 關注
- 592 瀏覽
添加回答
舉報
0/150
提交
取消