Imports System

​

Public Module Module1

​

    Public Sub Main()

        aaa

    End Sub

​

    Private sub aaa

        dim stuVote(29) as integer 'a maximum of 30 votes to be cast

        Dim candidateNo as integer 'number of candidates

        Dim voteNo as integer 'number of votes

        'Task 1

        console.writeline("enter amount of votes")

        voteNo = console.ReadLine()

        If voteNo >= 31 then

            do

                Console.writeline("invalid amount of votes")

                voteNo = console.readline()

            loop until voteNo <= 30

        else if voteNo <= 0 then

            do

                Console.writeline("invalid amount of votes")

                voteNo = console.readline()

            loop until voteNo > 0

        end if

​

        console.writeline("enter amount of candidates")

        candidateNo = console.readline()

        If candidateNo > 4 or candidateNo < 2 then

            do

                Console.writeline("invalid amount of candidates")

                candidateNo = console.readline()

            loop until candidateNo <= 4 and candidateNo >= 2

        end if

​

        dim candidatename(candidateNo) as string 'between two and four different candidate names to be input and stored

        console.writeline("enter candidate names ")

        for i = 1 to(candidateNo)

            candidatename(i) = console.readline()

        next

​

        For i = 1 to candidateNo

            console.writeline(i & "= " & candidatename(i))

        next

​

        dim cVotes(candidateNo) as integer

        dim Splace(candidateNo) as string

        cVotes(1) = 0 'up to four totals set to zero ready to record the votes

        cVotes(2) = 0

        cVotes(3) = 0

        cVotes(4) = 0

        'Task 2

        Console.writeline("enter votes")

        for i = 1 to voteNo

            stuvote(i) = console.readline()

            If stuvote(i) > candidateNo then

                do

                    Console.writeline("invalid vote") 'output ‘invalid vote’ if a vote is rejected.

                    stuvote(i) = console.readline()

                loop until stuvote(i) <= candidateNo

            else if stuvote(i) <= 0 then

                do

                    Console.writeline("invalid vote")

                    stuvote(i) = console.readline()

                loop until stuvote(i) > 0

            end if

​

            If stuvote(i) = 1 then

                console.writeline(candidatename(1))

                cVotes(1) = cVotes(1) + 1

            else if stuvote(i) = 2 then

                console.writeline(candidatename(2))

                cVotes(2) = cVotes(2) + 1

            else if stuvote(i) = 3 then

                console.writeline(candidatename(3))

                cVotes(3) = cVotes(3) + 1

            else if stuvote(i) = 4 then

                console.writeline(candidatename(4))

                cVotes(4) = cVotes(4) + 1

            end if

        next

​

        'Task 3

        Dim nMax as integer = 0

        Dim nSavedNumber as integer

        Dim sSavedName as string

        For j as integer = 1 to candidateNo - 1

            For i as integer = 1 to candidateNo - 1 - j

                If cVotes(i) < cVotes(i + 1) then

                    nSavedNumber = cVotes(i)

                    cVotes(i) = cVotes(i + 1)

                    cVotes(i + 1) = nSavedNumber

                    sSavedName = candidatename(i)

                    candidatename(i) = candidatename(i + 1)

                    candidatename(i + 1) = sSavedName

                End if

            Next i

        Next j

        Console.writeline("VOTES")

        For i as integer = 1 to candidateNo

            Console.WriteLine(candidatename(i) & " : " & cVotes(i))

        Next

​

        if cVotes(0) = cVotes(1) then

            Console.writeline("NO OVERALL WINNER")

        else

            Console.WriteLine("NEW CLASS CAPTAIN :    " & candidatename(1))

        end if

    End sub

End Module

​