16,555
社区成员
发帖
与我相关
我的任务
分享
Structure data1
name As String
<VBFixedArray(2)> Public abc() As Integer
End Structure
Public Sub ceshi()
Dim abc As data1
Dim Def As New Collection
ReDim abc.acc(1)
abc.name="01"
abc.abc(0)=0
abc.abc(1)=1
Def.Add(abc)
abc.name="23"
abc.abc(0)=2
abc.abc(1)=3
Def.Add(abc)
abc.name="45"
abc.abc(0)=4
abc.abc(1)=5
Def.Add(abc)
Dim xyz As Integer =0
for a=1 to 3
abc=Def.Item(a)
xyz=abc.abc(0)+abc.abc(1)
next
End Sub