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 ClassNumber as Decimal
Dim NewClassCaptain As Decimal
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)")
Precheck = Console.ReadLine()
if Precheck Mod 1 = 0 And Precheck>0 And Precheck<=4 then
CandidateScorekeep(Precheck) = CandidateScorekeep(Precheck)+1
Console.WriteLine("invalid vote")
Console.WriteLine(CandidateScorekeep(i))
If CandidateScoreKeep(i) > Max Then
Max = CandidateScoreKeep(i)
if CandidateScoreKeep(1) = CandidateScoreKeep(2) = CandidateScoreKeep(3) = CandidateScoreKeep(4) then
Console.WriteLine("NEW CLASS CAPTAIN: " & MaxName)