Dim a(3) As Single
Dim b(3) As Single
Dim c As New Collection
Private Sub Command1_Click()
For i = 1 To 3
a(i) = i
Next i
c.Add a, "a" '将数组a放入集合c
End SubPrivate Sub Command2_Click()SetArrayV a, b '当直接用a来进行付值,不会出错,
MsgBox b(3)
MsgBox c.Item("a")(3)If IsArray(c.Item("a")) Then SetArrayV (c.Item("a")), b '用了集合中取出的a就报:类型不匹配
End IfEnd Sub'数组付值过程。
Private Sub SetArrayV(ByRef arrFrom() As Single, ByRef arrTo() As Single) Dim i, n As Single n = (UBound(arrFrom) - LBound(arrFrom)) + 1 For i = LBound(arrFrom) To UBound(arrFrom)
arrTo(i) = arrFrom(i)
NextEnd Sub
Dim b(3) As Single
Dim c As New Collection
Private Sub Command1_Click()
For i = 1 To 3
a(i) = i
Next i
c.Add a, "a" '将数组a放入集合c
End SubPrivate Sub Command2_Click()SetArrayV a, b '当直接用a来进行付值,不会出错,
MsgBox b(3)
MsgBox c.Item("a")(3)If IsArray(c.Item("a")) Then SetArrayV (c.Item("a")), b '用了集合中取出的a就报:类型不匹配
End IfEnd Sub'数组付值过程。
Private Sub SetArrayV(ByRef arrFrom() As Single, ByRef arrTo() As Single) Dim i, n As Single n = (UBound(arrFrom) - LBound(arrFrom)) + 1 For i = LBound(arrFrom) To UBound(arrFrom)
arrTo(i) = arrFrom(i)
NextEnd Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货