Module Mattranspose
 
 
 Sub Main()
 Dim i, j As Integer
 Dim Matrix1 As Integer(,) = New Integer(,) {{1, 2, 3}, {4, 5, 6}}
 For i = 0 To 1
 For j = 0 To 2
 
                Console.Write(Matrix1(i, j) & vbTab)
 Next
            Console.Write(vbCrLf)
 
 Next
 
        Console.Write("Transpose of the above matrix is given below:" & vbCrLf)
 For i = 0 To 2
 For j = 0 To 1
                Console.Write(Matrix1(j, i) & vbTab)
 Next
            Console.Write(vbCrLf)
 Next
 
 End Sub
 
 
 
 
End Module