Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a As Integer

a = Val(InputBox(" !", "A"))

Dim c(a - 1) As String

Dim i As Integer

For i = 0 To a - 1

c(i) = InputBox("" & i + 1, "A")

Next

Dim n(a - 1, a - 1) As String

For i = 0 To a - 1

For j = 0 To a - 1

Dim k As Integer

k = MsgBox("" & "(" & c(i) & "," & c(j) & ")" & " ", MsgBoxStyle.OkCancel, "A")

If k = 1 Then n(i, j) = 1

If k = 2 Then n(i, j) = 0

Next

Next

For i = 0 To a - 1

For j = 0 To a - 1

Label1.Text = Label1.Text + n(i, j) + " "

Next

Next

Dim f As Integer

Dim p As Boolean

For i = 0 To a - 1

For j = 0 To a - 1

If i = j Then

If n(i, j) = 1 Then f = f + 1

End If

Next

Next

For i = 0 To a - 1

For j = 0 To a - 1

If (i <> j) Then

If n(i, j) = n(j, i) Then

p = True

Else

p = False

End If

If p = False Then GoTo L2

End If

Next

Next

Dim m(a - 1, a - 1) As String

Dim w As Integer

Dim q As Integer

For i = 0 To a - 1

For j = 0 To a - 1

For q = 0 To a - 1

If m(i, j) = 1 Then GoTo L1

Next

Next

Next

Dim t, r As Integer

For i = 0 To a - 1

For j = 0 To a - 1

If m(i, j) = 1 Then t = t + 1

If n(i, j) = 1 Then r = r + 1

Next

Next

Label6.Visible = True

If f = a Then

Label2.Text = " "

Else

Label2.Text = " "

End If

If p = True Then

Label3.Text = " "

Else

Label3.Text = " "

End If

If (t <= r) Then

Label4.Text = " "

ElseIf (t > r) Then

Label4.Text = " "

End If

If ((f = a) And (p = True) And (t <= r)) Then

MsgBox(" ", , "A ")

Else

MsgBox(" ", , "A ")

End If

End Sub