Imports System

Public Module Module1

    Public Sub Main()

   dim CountVotes(4), Students, NomCan, Vote, count, count1, count2, count3, count4, winvote, nomwin, percent(4), votercount, absent as Integer

   dim Tutor, NameCan(4), win(4), voterNom(35), voters(35) as string

    winvote = 0

​

        Console.WriteLine("Tutor group: ") 'enter tutor

    Tutor = console.ReadLine()

        Console.WriteLine("Number of students: ") 'enter number of students

    Students = console.ReadLine()

        While students > 35 or students < 28 

            console.writeline("Error, should be between 28 and 35.") 'range check for number of students

            Console.WriteLine("Please enter a valid number....Number of students: ")

            students = console.ReadLine()

        end while

    Console.WriteLine("Number of candidates: ") 'enter number of candidates

    NomCan = console.ReadLine()

        while NomCan > 4 

            console.writeline("Error, maximum 4 candidates.") 'range check for number of candidates

            Console.WriteLine("Please enter a valid number....Number of candidates: ")

        NomCan = console.ReadLine()

        end while

     for count = 1 to NomCan

        Console.WriteLine("Names of candidates: ") 'enter names of candidates

      NameCan(count) = console.ReadLine()

     next

    for count = 1 to 35 'setting the voter numbers array to blank

    voters(count) = "0"

   next

​

  for count1 = 1 to students

console.writeline("Please enter your voter number.") 'voter enters unique number

    voternom(count1) = console.ReadLine()

​

      if voters(35).Contains(voternom(count1)) then 'if the voter has already voted an error message appears

        console.writeline ("Error, already voted")

      Else

        voters(count1) = Voters(count1)

    console.writeline("Enter Vote.")'enter students vote if they have not voted

        vote = console.readline()

          if vote = namecan(1) then

            countvotes(1) = countvotes(1) + 1 'count the candidates votes

        votercount = votercount + 1

          else if vote = namecan(2) then

            countvotes(2) = countvotes(2) + 1

        votercount = votercount + 1

          else if vote = namecan(3) then

            countvotes(3) = countvotes(3) + 1

        votercount = votercount + 1

          else if vote = namecan(4) then

            countvotes(4) = countvotes(4) + 1

        votercount = votercount + 1

          end if    

    end if

   next 

    for count4 = 1 to nomcan

        percent(count4) = (countvotes(count4) / votercount) * 100

    next

    Console.WriteLine("tutor:" & tutor) 'output tutor

      for count2 = 1 to nomcan

        if countvotes(count2) > winvote then 'calculate winner

          win(1) = namecan(count2)

        else if countvotes(count2) = win(1) then 'calculate tie

          win(count2) = namecan(count2)

          nomwin = nomwin + 1

        end if

        console.writeline(namecan(count2) & " - " & countvotes(count2) & "votes" & " - " & percent(count2) & "%") 'output candidates and their votes

      next

    if nomwin > 1 then 'if there is a tie the class will vote again and the votes from the second vote will be added on to the first

        for count = 1 to students

        console.writeline("Enter a new vote for the two candidates that are tied.")'enter students vote if they have not voted

        vote = console.readline()

          if vote = namecan(1) then

            countvotes(1) = countvotes(1) + 1 'count the candidates votes for the tie

        votercount = votercount + 1

          else if vote = namecan(2) then

            countvotes(2) = countvotes(2) + 1

        votercount = votercount + 1

          else if vote = namecan(3) then

            countvotes(3) = countvotes(3) + 1

        votercount = votercount + 1

          else if vote = namecan(4) then

            countvotes(4) = countvotes(4) + 1

        votercount = votercount + 1

          end if    

        next

         Console.WriteLine("tutor:" & tutor) 'output tutor

      for count3 = 1 to nomcan

        if countvotes(count3) > winvote then 'calculate winner

          win(1) = namecan(count3)

        else if countvotes(count3) = win(1) then 'calculate tie

          win(count3) = namecan(count3)

          nomwin = nomwin + 1

        end if

                    for count4 = 1 to nomcan 'recalculate the percentage

            percent(count4) = (countvotes(count4) / votercount) * 100

          next

        console.writeline(namecan(count3) & " - " & countvotes(count3) & "votes" & " - " & percent(count3) & "%") 'output candidates and their votes

      next      

    end if

​

    absent = Students - (countvotes(1) + Countvotes(2) + Countvotes(3) + Countvotes(4)) 'how many voters where absent

    console.writeline("There are " & absent & " childeren absent")

    End Sub

End Module