Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim Cand1, Cand2, Cand3, Cand4, Vote as Integer

        Cand1 = 0 'This block is for starting the candidates with 0 votes, useful later

        Cand2 = 0

        Cand3 = 0

        Cand4 = 0

        Dim errmess as string 'Error Message

        errmess =("Data Error")

        Dim Candnum as Integer 'This block is for the amount of candidates in class

        Console.WriteLine("How Much Candidates In Your Class")

        Candnum = Console.ReadLine()

        Do until Candnum >= 2 and Candnum <= 4  'This block for inputting, verifying and confirming the amount of candidates and if it's possible

        Console.Writeline(errmess) 'Error if you input amount of candidates not possible

        Candnum = Console.readLine()

        loop

​

        Dim Candidate(Candnum) as String 'This block ask names of candidates and puts them in a list used later

        Console.Writeline("What Are The Names Of Candidates")

        For i = 1 to Candnum

            Candidate(i) = Console.ReadLine()

        Next

​

        Dim Students as Integer 'This block is for inputting amount of students in class

        Console.writeline("How Much Students Are In Your Class")

        Students = Console.readline()

        If students < 0 or students > 31

            Do until students >= 0 and students < 31

                Console.writeline(errmess) 'Error message for if you input amount of students that are not possible

                Students = console.readLine()

            Loop

        End if

​

        Console.WriteLine("These Are The Candidates For President") 'This block tells users what voting number each candidate is assigned

        For i = 1 to Candnum

            Console.WriteLine(Candidate(i) & "'s Voting Number Is " & i)

        Next

​

        For i = 1 to Students 'This block for inputting and counting votes for candidates up to the amount of students

            Console.WriteLine("Enter Vote")

            Vote = Console.readline()

                Do Until Vote >= 1 and Vote <= 4

                    Console.writeline(errmess) 'Error message for if you input a vote number thats not assigned to any candidates

                    Vote = Console.readline()

                loop

            If Vote = 1 then Cand1 = Cand1 + 1 'This keeps track of votes for candidates and is included in for loop

            If Vote = 2 then Cand2 = Cand2 + 1

            If Vote = 3 then Cand3 = Cand3 + 1

            If Vote = 4 then Cand4 = Cand4 + 1

        Next

​

        Dim President as String 'This block is for determining the winner

        Dim Numvote as Integer

        If Cand1 > Cand2 and Cand1 > Cand3 and Cand1 > Cand4

            President = Candidate(1)

            Numvote = Cand1

        Else if Cand2 > Cand1 and Cand2 > Cand3 and Cand2 > Cand4

            President = Candidate(2)

            Numvote = Cand2

        Else if Cand3 > Cand2 and Cand3 > Cand1 and Cand3 > Cand4

            President = Candidate(3)

            Numvote = Cand3

        Else if Cand4 > Cand2 and Cand4 > Cand3 and Cand4 > Cand1

            President = Candidate(4)

            Numvote = Cand4

                        Else if Cand1 = Cand2 = Cand3 = Cand4

                                console.writeline("There Is No Clear Winner") 'If all votes equal then no clear winner is output

                        Else console.WriteLine(President & " Is The Elected President With " & Numvote & " Votes.") 'This is the final output for the winner if one is found

        End If

​

    End Sub

End Module

​