Andy 胡

摘要： 结构体必须放在“模块”中： Type Org tag As String person As New Collection End Type 使用： Sub testType() Dim x As Org x.tag = "ft" x.person.Add ("A") x.person.Add (" 阅读全文

摘要： Sub testSet() Dim c As New Collection c.Add ("A") c.Add (2) c.Add ("A") For i = 1 To c.count Debug.Print (c.Item(i)) Next End Sub output: A 2 A 阅读全文