Imports System

Public Module Module1

    Public Sub Main()

        Dim Finished As boolean

        While Finished = false

            Dim Classnum As short

            Console.WriteLine("How many students would you like to candidate ( 2 to 4 ): ")

            Classnum = Console.ReadLine()

            Dim StudentName(Classnum) As String

            If Classnum > 4                                         'Gets number of candidates participating

                Console.WriteLine("INVALID INPUT (must be less than or equal to 4)")

                Exit while

            else if Classnum < 2

                        Console.WriteLine("INVALID INPUT (must be equal to or above 2)")

                Exit while

            end if

            For i = 1 to Classnum                                   'Gets candidates names from user

                if Classnum > 4 then 

                    exit for 

                end if 

                Console.WriteLine("Enter Student Candidate Name: ")

                StudentName( i-1 ) = Console.ReadLine()

            Next

            Console.WriteLine("The Candidates are: ")               'Prints out candidates names with their assigned number

            For a = 1 to Classnum

                Console.WriteLine(a & ": " & StudentName( a-1 ))

            Next

            Dim votes As Integer

            Console.WriteLine("How many votes will there be?: ") 

            votes = Console.ReadLine()                              ' gets how many votes there will be

                While votes > 30 Or votes < 1

                    Console.WriteLine("Must have less than 30 or at least 1 vote")

                votes = Console.ReadLine()

                end while

                Dim votearray(votes) As Integer                     ' array to hold votes values

                For i = 1 to votes                                  'loop to gather vote information

                Console.WriteLine("Enter a vote (number of candidate)")

                votearray(i-1) = Console.ReadLine()

                If votearray(i-1) > Classnum Or votearray(i-1) < 1 then

                    Console.WriteLine("Ivalid input please enter number between 1 and " & Classnum)

                    votearray(i-1) = Console.ReadLine()

                        If votearray(i-1) > Classnum Or votearray(i-1) < 1 then

                        Console.WriteLine("Exiting Program")

                        Exit while

                        end if

                end if

            Next

            Dim results(Classnum) As Integer                        ' array to hold total numbers of votes for each candidate

            For i = 1 to Classnum

                results(i-1) = 0                                    ' sets all contents of results array to zero

            Next

            For i = 1 to votes                                      ' add votes up to results array

                If votearray(i-1) = 1

                    results(0) = results(0) + 1

                else If votearray(i-1) = 2

                    results(1) = results(1) + 1

                else If votearray(i-1) = 3

                    results(2) = results(2) + 1

                else 

                    results(3) = results(3) + 1

                end if

            Next

                Console.WriteLine("Candidate's votes are: ")

                For i = 1 to Classnum

                Console.WriteLine(StudentName(i-1) & ": " & results(i-1))                              ' Prints out the results to the corrosponding candidate

                Next

            Console.WriteLine("Are you finished with the program? (enter 'false') Yes? (enter 'true)") ' to check if the user wants to go again or exit

            Finished = Console.ReadLine()

        end while

    End Sub

End Module