Module Module1
Sub Main()
Dim matrix1(,) As Integer = New Integer(,) {{1, 1}, {2, 2}, {3, 3}, {4, 4}}
Dim matrix2(,) As Integer = New Integer(,) {{5, 5}, {6, 6}, {7, 7}, {8, 8}}
Dim sum(,) As Integer = New Integer(,) {{0, 0}, {0, 0}, {0, 0}, {0, 0}}
Dim rows As Integer = matrix1.GetUpperBound(0) + 1
Dim cols As Integer = matrix1.GetUpperBound(1) + 1
For i As Integer = 0 To rows - 1
For j As Integer = 0 To cols - 1
sum(i, j) = matrix1(i, j) + matrix2(i, j)
Next
Next
For i As Integer = 0 To rows - 1
For j As Integer = 0 To cols - 1
Console.Write("{0,2} ", sum(i, j))
Next
Console.WriteLine()
Next
End Sub
End Module
' run:
'
' 6 6
' 8 8
' 10 10
' 12 12
