Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim matrix1 As Integer()() = New Integer()() {
New Integer() {1, 2, 3, 4},
New Integer() {5, 6, 7, 8},
New Integer() {9, 7, 6, 3}}
Dim matrix2 As Integer()() = New Integer()() {
New Integer() {1, 1, 1, 1},
New Integer() {2, 2, 2, 2},
New Integer() {3, 3, 3, 3}}
Dim subtract As Integer()() = New Integer()() {New Integer() {0, 0, 0, 0}, New Integer() {0, 0, 0, 0}, New Integer() {0, 0, 0, 0}}
Dim rows As Integer = matrix1.Length
Dim cols As Integer = matrix1(0).Length
For i As Integer = 0 To rows - 1
For j As Integer = 0 To cols - 1
subtract(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(subtract(i)(j) & " ")
Next
Console.WriteLine()
Next
End Sub
End Class
' run:
'
' 0 1 2 3
' 3 4 5 6
' 6 4 3 0
'
