Class TestStruct
里面有三个属性
Property MyProperty As Long
Property Str As String
Property tt As TestClass()
Class TestClass里面有一个属性
Property i As Long
现在我的目的是,要声明一个TestStruct类的实例,里面包含了一个TestClass类的实例:tt数组...
Dim a(1 To 10) As TestClass
Dim k As Integer
For k = 1 To 10
Set a(k) = New TestClass
a(k) = k
Next k
Dim b As TestStruct
Set b = New TestStruct
我写到这...就不知道如何把a数组,赋值给b中的tt了...