Imports System

Public Module Module1

    Public Sub Main()

        Dim precheck as decimal

        Dim max as decimal = 0

        Dim maxname as string

        Dim classcount as decimal

        Dim candidatecount as decimal

        Dim CandidateScore(candidatecount) As Decimal

        Dim CandidateNames(candidatecount) As String

        Console.WriteLine("Enter number of people in the class")

        Dim i As Integer

        Do While i = 0

            Precheck = Console.ReadLine()

            If Precheck >= 2 and precheck <= 30 then

                 classcount = Precheck

                i = i + 1

            Else

                Console.WriteLine("error")

            End If

        Loop 

    Console.WriteLine("Enter Number of Candidates")

        Do While i = 0

            Precheck = Console.ReadLine()

            If Precheck >= 2 and precheck <= 4 then

                candidatecount = Precheck

                i = i + 1

            Else

                Console.WriteLine("error")

            End If

        Loop    

        For i = 1 To candidatecount

            Console.WriteLine("Enter Candidate Name")

            CandidateNames(i) = Console.ReadLine()

    next

    Console.WriteLine("Input vote. (Number, name)")

    For i = 1 To candidatecount

            Console.WriteLine(" - " & CandidateNames(i) & " (" & i & ")")

Next

    For i = 1 To classcount          

            Precheck = Console.ReadLine()

If Precheck  = 0 And Precheck > 0 And Precheck <= candidatecount Then

                CandidateScore(Precheck) = CandidateScore(Precheck) + 1

            Else

                Console.WriteLine("Invalid vote")

            End If

next

​

Console.WriteLine("   ")

dim Last As Decimal = 100000

Max = 0

For j = 0 To candidatecount

For i = 1 To candidatecount

                If CandidateScore(i) > Max And CandidateScore(i) < Last Then

                    Max = CandidateScore(i)

                elseif CandidateScore(i) = Last

                    Console.WriteLine(CandidateNames(i) & " - Number of Votes: " & CandidateScore(i))

​

                End If

            Next

            Last = Max 

            Max = 0

Next

Last = 100000

For i = 1 To candidatecount

        If CandidateScore(i) >= Max Then

            Last = Max 

            Max = CandidateScore(i)

For j = 1 To candidatecount

                    if j = i then

MaxName = CandidateNames(i)

end if 

next

end if 

next

Console.WriteLine("  ")

if Max = Last then

Console.WriteLine("no overall winner")

else

Console.WriteLine("new class captain " & MaxName)

end if

​

​

​

​

​

    End Sub

End Module