Taking Transpose of a Matrix
Code:
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