感谢您使用微软产品。关于在VB中一个二维数组给一个函数作为参数,您可以参考以下代码:
Private Sub Command1_Click()
Dim abc(1, 2) As Integer
abc(0, 0) = 1
abc(0, 1) = 2
abc(0, 2) = 3
abc(1, 0) = 4
abc(1, 1) = 5
abc(1, 2) = 6
Test abc
End SubSub Test(iarray() As Integer)
Dim i As Integer, j As Integer
For i = LBound(iarray, 1) To UBound(iarray, 1)
For j = LBound(iarray, 2) To UBound(iarray, 2)
MsgBox (iarray(i, j))
Next
Next
End Sub - 微软亚洲技术中心 VB技术支持本贴子仅供CSDN的用户作为参考信息使用。其内容不具备任何法律保障。您需要考虑到并承担使用此信息可能带来的风险。具体事项可参见使用条款 (http://www.csdn.net/microsoft/terms.shtm)。
Private Sub Command1_Click()
Dim abc(1, 2) As Integer
abc(0, 0) = 1
abc(0, 1) = 2
abc(0, 2) = 3
abc(1, 0) = 4
abc(1, 1) = 5
abc(1, 2) = 6
Test abc
End SubSub Test(iarray() As Integer)
Dim i As Integer, j As Integer
For i = LBound(iarray, 1) To UBound(iarray, 1)
For j = LBound(iarray, 2) To UBound(iarray, 2)
MsgBox (iarray(i, j))
Next
Next
End Sub - 微软亚洲技术中心 VB技术支持本贴子仅供CSDN的用户作为参考信息使用。其内容不具备任何法律保障。您需要考虑到并承担使用此信息可能带来的风险。具体事项可参见使用条款 (http://www.csdn.net/microsoft/terms.shtm)。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货