Imports System
Public Class Program
Private Shared Function checkSymmetric(ByVal matrix As Integer()()) As Boolean
Dim rows As Integer = matrix.Length
Dim cols As Integer = matrix(0).Length
If rows <> cols Then
Return False
End If
For i As Integer = 0 To rows - 1
For j As Integer = 0 To cols - 1
If matrix(i)(j) <> matrix(j)(i) Then
Return False
End If
Next
Next
Return True
End Function
Public Shared Sub Main(ByVal args As String())
Dim matrix As Integer()() = New Integer()() {
New Integer() {1, 5, 2, 4},
New Integer() {5, 6, 3, 7},
New Integer() {2, 3, 9, 0},
New Integer() {4, 7, 0, 8}
}
If checkSymmetric(matrix) Then
Console.Write("yes")
Else
Console.Write("no")
End If
End Sub
End Class
' run:
'
' yes
'
