Imports System

Public Module Module1

    Public Sub Main()

        Dim n As Integer = 0

        Dim cName() As String

        Dim tVotes() As Integer = {0, 0, 0, 0}

        Dim uVotes As String

        Dim maxVotes As Integer = 0

        Const increment = 1

        Console.WriteLine("Please enter the number of students for voting from 0-30.")

maxVotes = Console.ReadLine

        If maxVotes < 1 Or maxVotes > 30 Then

            Do While maxVotes < 1 Or maxVotes > 30

                Console.WriteLine("Please enter a number from 0 to 30.")

                maxVotes = Console.ReadLine

                Console.Clear()

            Loop

        End If

Console.WriteLine("Enter the number of candidates.")

        n = Console.ReadLine()

        If n < 2 Or n > 4 Then

            Do While n < 2 Or n > 4

                Console.WriteLine("Need at least two-four candidates. Press any key to continue")

                Console.Clear()

                Console.WriteLine("Please enter at least two-four candidates.")

                n = Console.ReadLine

            Loop

        End If

        ReDim cName(n - 1)

        For i = 0 To n - 1

            Console.WriteLine(i + 1 & ") Please enter the candidate name")

cName(i) = Console.ReadLine

        Next

        maxVotes -= 1

        For i = 0 To maxVotes

            Console.WriteLine(i + 1 & ") Please enter the number of the candidate you are voting for:")

            For h = 0 To n - 1

                Console.WriteLine(h + 1 & ") " & cName(h))

            Next

            uVotes = Console.ReadLine()

If uVotes > n Or uVotes < 1 Then

                Console.WriteLine("Rejected for invalid vote!")

                i -= 1

            Else

                Select Case CStr(uVotes)

                    Case "1"

                        Console.WriteLine(cName(0))

   tVotes(0) = tVotes(0) + increment

                    Case "2"

                        Console.WriteLine(cName(1))

                        tVotes(1) = tVotes(1) + increment

                    Case "3"

                        Console.WriteLine(cName(2))

                        tVotes(2) = tVotes(2) + increment

                    Case "4"

Console.WriteLine(cName(3))

                        tVotes(3) = tVotes(3) + increment

                End Select

            End If

        Next

        Dim temp As Integer = 0

        Dim cTemp As String = ""

        For i = 0 To n - 1

            For j = i + 1 To n - 1

                If tVotes(i) < tVotes(j) Then

                    temp = tVotes(i)

tVotes(i) = tVotes(j)

                    tVotes(j) = temp

                    cTemp = cName(i)

                    cName(i) = cName(j)

                    cName(j) = cTemp

                End If

            Next

        Next

        If tVotes(0) <> tVotes(1) Then

​

            Console.WriteLine("1) Candidate Name: " & cName(0) & " - NEW CAPTAIN! with " & tVotes(0) & " votes.")

            For i = 1 To n - 1

                Console.WriteLine(i + 1 & ") Candidate Name: " & cName(i) & " with " & tVotes(i) & " votes.")

            Next

        Else

            Console.WriteLine("NO OVERALL WINNER!")

        End If

        Console.Read()

    End Sub

End Module