Function ar_donor()
    Dim k(3, 5)
 
    For i = 1 To 3
        For j = 1 To 5
            k(i, j) = i * j
        Next j
    Next i
 
    ar_donor = k
End Function
 
Sub ar_accepter(q)
    s = ""
    For i = LBound(q, 1) To UBound(q, 1)
        For j = LBound(q, 2) To UBound(q, 2)
            s = s & q(i, j) & " "
        Next j
        s = s + vbCrLf
    Next i
    MsgBox s
End Sub
 
Sub zyxabc()
    ar = ar_donor()
    ar_accepter (ar)
End Sub
 

RnVuY3Rpb24gYXJfZG9ub3IoKQogICAgRGltIGsoMywgNSkKICAgIAogICAgRm9yIGkgPSAxIFRvIDMKICAgICAgICBGb3IgaiA9IDEgVG8gNQogICAgICAgICAgICBrKGksIGopID0gaSAqIGoKICAgICAgICBOZXh0IGoKICAgIE5leHQgaQogICAgCiAgICBhcl9kb25vciA9IGsKRW5kIEZ1bmN0aW9uCgpTdWIgYXJfYWNjZXB0ZXIocSkKICAgIHMgPSAiIgogICAgRm9yIGkgPSBMQm91bmQocSwgMSkgVG8gVUJvdW5kKHEsIDEpCiAgICAgICAgRm9yIGogPSBMQm91bmQocSwgMikgVG8gVUJvdW5kKHEsIDIpCiAgICAgICAgICAgIHMgPSBzICYgcShpLCBqKSAmICIgIgogICAgICAgIE5leHQgagogICAgICAgIHMgPSBzICsgdmJDckxmCiAgICBOZXh0IGkKICAgIE1zZ0JveCBzCkVuZCBTdWIKClN1YiB6eXhhYmMoKQogICAgYXIgPSBhcl9kb25vcigpCiAgICBhcl9hY2NlcHRlciAoYXIpCkVuZCBTdWIK