Imports System
Module Program
Sub Main()
Dim a(,) As Integer = {
{1, 2},
{3, 4}
}
Dim b(,) As Integer = {
{10, 20},
{30, 40}
}
Dim rows As Integer = a.GetLength(0)
Dim cols As Integer = a.GetLength(1)
Dim merged(rows - 1, cols - 1) As Integer
For i As Integer = 0 To rows - 1
For j As Integer = 0 To cols - 1
merged(i, j) = a(i, j) + b(i, j)
Next
Next
PrintMatrix(merged)
End Sub
Sub PrintMatrix(arr(,) As Integer)
For i As Integer = 0 To arr.GetLength(0) - 1
For j As Integer = 0 To arr.GetLength(1) - 1
Console.Write(arr(i, j) & " ")
Next
Console.WriteLine()
Next
End Sub
End Module
' run:
'
' 11 22
' 33 44
'