Imports System
Public Class SquareMatrixCheck
Public Shared Function IsSquareMatrix(ByVal matrix As Integer(,)) As Boolean
Dim rows As Integer = matrix.GetLength(0)
Dim cols As Integer = matrix.GetLength(1)
Return rows = cols
End Function
Public Shared Sub Main(ByVal args As String())
Dim matrix As Integer(,) = {
{1, 2, 3},
{4, 5, 6},
{7, 8, 9}}
If IsSquareMatrix(matrix) Then
Console.WriteLine("The matrix is a square matrix.")
Else
Console.WriteLine("The matrix is not a square matrix.")
End If
End Sub
End Class
' run:
'
' The matrix is a square matrix.
'