Dim A2() As Integer
Dim A3() As Integer
Private Sub Command1_Click()
Dim k As Integer, t As Integer
Dim s As String
'=======================
A3 = sumarMatriz(A2, 50) ' aquí se llama a una función, envía una matriz y recibe una matriz....
'=======================
For k = 0 To 2
For t = 0 To 3
s = s & CStr(A3(k, t)) & " , "
Next
Next
MsgBox s
End Sub
Private Sub Form_Load()
Dim k As Integer, t As Integer
ReDim A2(0 To 2, 0 To 3)
For k = 0 To 2
For t = 0 To 3
A2(k, t) = n
n = n + 1
Next
Next
End Sub
Private Function sumarMatriz(ByRef m() As Integer, ByVal incremento As Integer) As Integer()
Dim k As Integer, t As Integer
Dim tmp() As Integer
ReDim tmp(0 To 2, 0 To 3)
For k = 0 To 2
For t = 0 To 3
tmp(k, t) = m(k, t) + incremento
Next
Next
sumarMatriz = tmp
End Function