Imports System

Public Module Module1

    Public Sub Main()

        Dim Candidate1(30) as Decimal

        Dim Candidate2(30) as Decimal

        Dim Candidate3(30) as Decimal

        Dim Candidate4(30) as Decimal

        Dim CandidateScorekeep(4) as Decimal

        Dim Precheck as Decimal

        Dim ClassNumber as Decimal

        Dim NewClassCaptain As Decimal

        Dim Max As Decimal = 0

        Dim MaxName As String

        'Console.WriteLine("ENTER CLASS SIZE:")'

        'ClassNumber = Console.ReadLine()'

        Console.WriteLine("Input your vote using the numbers stated alongside the candidate's names:")

        Console.WriteLine(" - Donkey (1)")

        Console.WriteLine(" - DonkeyTwo (2)")

        Console.WriteLine(" - DonkeyThree (3)")

        Console.WriteLine(" - DonkeFour (4)")

        For i = 1 To 4

            Precheck = Console.ReadLine()

            if Precheck Mod 1 = 0 And Precheck>0 And Precheck<=4 then

                CandidateScorekeep(Precheck) = CandidateScorekeep(Precheck)+1       

            else

            Console.WriteLine("invalid vote")

            end if

        Next

    For i = 1 To 4

    Console.WriteLine(CandidateScorekeep(i))

Next

​

For i = 1 To 4

        If CandidateScoreKeep(i) > Max Then

                Max = CandidateScoreKeep(i)

                If i = 1 Then

                MaxName = "Donkey1"

                ElseIf i = 2 Then

                MaxName = "Donkey2"

                Elseif i = 3 Then

                MaxName = "Donkey3"

                Else

                MaxName = "Donkey4"

                End If

            End If

Next

​

if CandidateScoreKeep(1) = CandidateScoreKeep(2)  = CandidateScoreKeep(3) = CandidateScoreKeep(4) then

Console.WriteLine("")

else

Console.WriteLine("NEW CLASS CAPTAIN: " & MaxName)

end if

​

    End Sub

End Module