Imports System

Public Module Module1

    'Task 1 variables

    Dim GroupName as string

    Dim temp as string

    Dim numberofstudents as integer

    Dim Numberofcandidates as integer

    Dim Candidatename(4) as string

    Dim Candidatevote(4) as integer

    Dim testvote as integer

    Dim max as integer

    Dim n, m as integer

    'Task 2 variables

    Dim UniqueNumberCheck(35) as string

    Dim testnumber as string

    Dim indexofNumber as integer

    Public Sub Main()

    'Task 3 Variables

    Dim totalvotes as integer

    dim tempPercentage as string

    Dim winningCandidateCount as integer    

    Dim tiedCandidatesNames(4) as string

    Dim voteloop as boolean

        'get name of tutor group

        Console.WriteLine("Enter name of Tutor Group")

        GroupName = console.readline()

        'get number of students and validate its a number and in the bound

        Console.WriteLine("Enter number of students")

        temp = console.readline

        Do While Not (Integer.TryParse(temp, Numberofstudents) AND Numberofstudents >= 28 AND Numberofstudents <= 35)

            Console.writeline ("Enter a whole number between 28 and 35")

            temp = console.ReadLine()

        Loop

        'get number of candidates and validate its a number and in the bound        

        Console.WriteLine("Enter number of candidates in the election")

        temp = console.readline

        Do while Not (Integer.TryParse(temp, Numberofcandidates) AND Numberofcandidates >= 1 AND Numberofcandidates <= 4)

            Console.writeline ("Enter a whole number between 1 and 4")

            temp = console.ReadLine()

        Loop

        'get name of candidates

    For n = 1 To Numberofcandidates

        Console.WriteLine("Enter name of candidate " & n)

        Candidatename(n) = console.readline

    next

    'declare the abstain option

    Candidatename(0) = "Abstain"

    voteloop = true

    Do while voteloop 

    'Initialise the candidates vote array

    For n = 0 to 4

        Candidatevote(n) = 0

    Next

​

    'Initialise the unique number check array

    for n = 1 to 35

    UniqueNumbercheck(n) = 0

    Next

​

    'Initialise the tied candidate names array

    for n = 1 to 4

    tiedCandidatesNames(n) =""

    Next

​

    'Initialise the other variables

    Max = 0

    totalVotes = 0

    WinningCandidateCount = 0

​

    'get all the votes and validate

    Console.WriteLine()

    n = 0

    do while n < numberofstudents

    'Allow student to enter unique number

    Console.WriteLine("Please enter your unique voter number")

    testnumber = console.ReadLine()

    'Check the number is not duplicate

    Indexofnumber = 0

    For m = 1 to 35

    if UniqueNumberCheck(n) = testnumber then

        Indexofnumber = n

        end if

    next

If indexofnumber > 0 then 

    Console.WriteLine("You have already voted")

Else 

        n=n+1

        UniqueNumbercheck(n) = testnumber

        Console.WriteLine("Student " & n & " please enter your vote;")

        Console.WriteLine("Enter 0 to abstain")

        for m = 1 to Numberofcandidates

            console.WriteLine("Enter " & m & " to vote for " & Candidatename(m))

        next

        temp = console.ReadLine()

Do while Not (Integer.TryParse(temp, testvote) AND testvote >= 0 AND testvote <= Numberofcandidates)

Console.writeline ("Enter a whole number between 0 and " & Numberofcandidates)

            temp = console.ReadLine()

        Loop

        Candidatevote(testvote) = Candidatevote(testvote) + 1

End if

    Loop

​

        'display Votes

        TotalVotes = candidateVote(1) + candidateVote(2) + candidateVote(3) + candidateVote(4)

        Max = 0

        Console.WriteLine()

Console.WriteLine("Tutor Group: " & GroupName)

        for n = 1 To Numberofcandidates

        temppercentage = cInt(CandidateVote(n) / TotalVotes * 100) & "%"

        Console.WriteLine(Candidatename(n) & " got " & Candidatevote(n) & " votes (" & temppercentage & ")")

            if Candidatevote(n) > Max then

                Max = Candidatevote(n)

            end if

        next

        Console.WriteLine("The total number of votes was " & totalVotes & " with " & CandidateVote(0) & " abstentions")

​

        winningCandidateCount = 0

        Console.WriteLine("The following candidate(s) have scored the most votes;")

        For n = 1 to Numberofcandidates

            if Candidatevote(n) = max then

                winningCandidateCount = winningCandidateCount + 1

                Console.WriteLine(Candidatename(n))

                tiedCandidatesNames(winningCandidateCount) = Candidatename(n)           

            End If

        Next

​

        If winningCandidateCount > 1 then

            console.WriteLine("We need to vote again due to a draw")

        for n = 1 to numberofcandidates

            Candidatename(n) = tiedCandidatesNames(n)

        next    

numberofcandidates = winningCandidateCount

        else

            'Stop the loop

            Voteloop = false

        End if

        Loop

​

    End Sub

End Module