Dim ClassNumber As Decimal
Dim NumberOfCandidates As Decimal
Dim Candidate1(30) As Decimal
Dim Candidate2(30) As Decimal
Dim Candidate3(30) As Decimal
Dim Candidate4(30) As Decimal
Console.WriteLine("Enter Class Size")
Precheck = Console.ReadLine()
If Precheck Mod 1 = 0 And Precheck <= 30 Then
Console.WriteLine("error, retry")
Console.WriteLine("Enter Number of Candidates")
Precheck = Console.ReadLine()
If Precheck Mod 1 = 0 And Precheck >= 2 And 4 >= Precheck Then
NumberOfCandidates = Precheck
Console.WriteLine("error, retry")
Dim CandidateNames(NumberOfCandidates) As String
For i = 1 To NumberOfCandidates
Console.WriteLine("Enter Candidate Name")
CandidateNames(i) = Console.ReadLine()
Console.WriteLine("Input your vote using the numbers stated alongside the candidate's names:")
For i = 1 To NumberOfCandidates
Console.WriteLine(" - " & CandidateNames(i) & " (" & i & ")")
Dim CandidateScorekeep(NumberOfCandidates) As Decimal
Precheck = Console.ReadLine()
If Precheck Mod 1 = 0 And Precheck > 0 And Precheck <= NumberOfCandidates Then
CandidateScorekeep(Precheck) = CandidateScorekeep(Precheck) + 1
Console.WriteLine("invalid vote, retry entering vote")
For i = 1 To NumberOfCandidates
Console.WriteLine(CandidateNames(i) & " - Number of Votes: " & CandidateScorekeep(i))