Imports System

Public Module Module1

    Public Sub Main()

        Dim Precheck As Decimal

​

        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")

        Dim i As Integer

        Do While i = 0

            Precheck = Console.ReadLine()

            If Precheck Mod 1 = 0 And Precheck <= 30 Then

                ClassNumber = Precheck

                i = i + 1

            Else

                Console.WriteLine("error, retry")

            End If

        Loop

        i = 0

​

        Console.WriteLine("Enter Number of Candidates")

        Do While i = 0

            Precheck = Console.ReadLine()

            If Precheck Mod 1 = 0 And Precheck >= 2 And 4 >= Precheck Then

                NumberOfCandidates = Precheck

                i = i + 1

            Else

                Console.WriteLine("error, retry")

            End If

        Loop

​

        Dim CandidateNames(NumberOfCandidates) As String

​

        For i = 1 To NumberOfCandidates

            Console.WriteLine("Enter Candidate Name")

            CandidateNames(i) = Console.ReadLine()

        Next

​

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

        For i = 1 To NumberOfCandidates

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

        Next

        Dim CandidateScorekeep(NumberOfCandidates) As Decimal

​

        For i = 1 To ClassNumber

            Precheck = Console.ReadLine()

            If Precheck Mod 1 = 0 And Precheck > 0 And Precheck <= NumberOfCandidates Then

                CandidateScorekeep(Precheck) = CandidateScorekeep(Precheck) + 1

            Else

                Console.WriteLine("invalid vote, retry entering vote")

            End If

        Next

​

        For i = 1 To NumberOfCandidates

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

        Next

        Console.ReadLine()

    End Sub

End Module