我的教室里滿是孩子，每個(gè)孩子都必須列出自己喜歡的玩具以作作業(yè)。有些孩子只列出1個(gè)玩具，而另一些孩子列出更多。如何創(chuàng)建一個(gè)鋸齒狀的數(shù)組，使Kids（x）（y）...其中x是我班上孩子的數(shù)量，y是他們列為收藏夾的玩具列表？
3 回答
梵蒂岡之花
TA貢獻(xiàn)1900條經(jīng)驗(yàn) 獲得超5個(gè)贊
您可以使用收藏集
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
哪個(gè)輸出 Kid 4, Toy 2 = Kid4Toy2
紫衣仙女
TA貢獻(xiàn)1839條經(jīng)驗(yàn) 獲得超15個(gè)贊
Jean-Francois指出，每個(gè)元素可以是長度可變的數(shù)組。我要補(bǔ)充一點(diǎn)，每個(gè)元素也可以是其他類型，而不必是數(shù)組。例如：
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
然后可以根據(jù)每個(gè)子元素的隱式類型來引用各個(gè)子元素：
a（2）（1）= 3
a（3）（1）=“ a”
a（5）（2,1）=單元格A2中的內(nèi)容。
- 3 回答
- 0 關(guān)注
- 589 瀏覽
添加回答
舉報(bào)
0/150
提交
取消