摘要:
结构体必须放在“模块”中: 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 阅读全文