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