Imports System
Class MirrorMatrixProgram
Const SIZE As Integer = 3
Private Shared Sub PrintMatrix(ByVal matrix As Integer(,))
For i As Integer = 0 To SIZE - 1
For j As Integer = 0 To SIZE - 1
Console.Write(matrix(i, j) & " ")
Next
Console.WriteLine()
Next
End Sub
Private Shared Sub MirrorMatrix(ByVal matrix As Integer(,))
For i As Integer = 0 To SIZE - 1
For j As Integer = i + 1 To SIZE - 1
Dim temp As Integer = matrix(i, j)
matrix(i, j) = matrix(j, i)
matrix(j, i) = temp
Next
Next
End Sub
Public Shared Sub Main()
Dim matrix As Integer(,) = {
{1, 2, 3},
{4, 5, 6},
{7, 8, 9}}
Console.WriteLine("Original Matrix:")
PrintMatrix(matrix)
MirrorMatrix(matrix)
Console.WriteLine("Mirrored Matrix:")
PrintMatrix(matrix)
End Sub
End Class
' run
'
' Original Matrix:
' 1 2 3
' 4 5 6
' 7 8 9
' Mirrored Matrix:
' 1 4 7
' 2 5 8
' 3 6 9
'
