Option Explicit
Dim aryMainInfo(4, 4) As VariantPrivate Sub Form_Load()
aryMainInfo(0, 0) = 0
aryMainInfo(1, 1) = 1
aryMainInfo(2, 2) = 2
sendacc aryMainInfo
End SubPublic Function sendacc(a() As Variant) As Boolean
MsgBox a(1, 1)
MsgBox a(2, 2)
End Function
Dim aryMainInfo(4, 4) As VariantPrivate Sub Form_Load()
aryMainInfo(0, 0) = 0
aryMainInfo(1, 1) = 1
aryMainInfo(2, 2) = 2
sendacc aryMainInfo
End SubPublic Function sendacc(a() As Variant) As Boolean
MsgBox a(1, 1)
MsgBox a(2, 2)
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货