Module Matsub


 Sub Main()
 Dim i, j As Integer
 Dim Matrix1 As Integer(,) = New Integer(2, 3) {}
 Dim Matrix2 As Integer(,) = New Integer(2, 3) {}
 For i = 0 To 1
 For j = 0 To 2
               Console.Write("Enter an element")
               Matrix1(i, j) = Console.ReadLine
 Next

 Next

       Console.Write("Matrix 1 is " & vbCrLf)
 For i = 0 To 1
 For j = 0 To 2
               Console.Write(Matrix1(i, j) & vbTab)
 Next
           Console.Write(vbCrLf)
 Next

 For i = 0 To 1
 For j = 0 To 2
               Console.Write("Enter an element")
               Matrix2(i, j) = Console.ReadLine
 Next

 Next

       Console.Write("Matrix 2 is " & vbCrLf)
 For i = 0 To 1
 For j = 0 To 2
               Console.Write(Matrix2(i, j) & vbTab)
 Next
           Console.Write(vbCrLf)
 Next

       Console.Write("After Subtracting Matrix1 and Matrix2 result is" & vbCrLf)
 For i = 0 To 1
 For j = 0 To 2
               Console.Write(Matrix1(i, j) - Matrix2(i, j) & vbTab)
 Next
           Console.Write(vbCrLf)
 Next

 End Sub