Imports System

​

Public Module Module1

​

    Public Sub Main()

        'this calculates a winner if there is no clear winner it just display a message no clear winner, else it says who it is and winning count

        Dim nCands as integer

        nCands = Input("Enter number of candidates (2 to 4)")

        do until nCands >= 2 and nCands <= 4 'used to verify if the number of candidates in either 2 to 4

            console.writeline("invalid amount. Enter number of candidates")

            nCands = console.readLine()

        loop

        nCands -= 1

        Dim nVotes(nCands) as integer

        Dim sNames(nCands) as String

        'enter the names of the candidates

        For i as integer = 0 to nCands

            console.WriteLine("Enter name for candidate {0}", i + 1)

            sNames(i) = console.readline()

        Next

​

        'test to see if the names ahave been entered correctly. remove in final version

        For each name as string in snames

            print(name)

        Next

​

        'enter the votes.

        Dim nVote as integer

        Dim sMessage as string

console.writeline("Enter the amount of votes needed")

Dim nMaxVoters as integer = console.readline - 1 'asks for how many times you need to vote unntil it stops, nMaxVoters is now set through user input, -1 is used to actualky get the right amount and not 1 extra

        For i as integer = 0 to nMaxVoters

            Print("Enter the number of the candidate you enter")

            Print("Numbers and names follow")

            For j as integer = 0 to nCands

                Console.writeline("{1, 10} {0}", j + 1, sNames(j))

            Next j

            nVote = input("")

            nVotes(nVote - 1) += 1

do until nVote = nCands >= 1 and <= nCands nVote.length -1'https://stackoverflow.com/questions/18726180/xml-name-expected-in-visual-basic

console.writeline("invalid candidate. Re-enter the number of the candidate you enter")

nVote = console.readLine()

loop

'when entering the candidate number it must be in between 1 and the amount of candidates aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

        Next i

​

        print("Votes")

        For i = 0 to nCands

            console.WriteLine("{0,10} {1}", sNames(i), nVotes(i))

        Next

​

        print("Finding maximum")

        Dim nMax as integer

        Dim nMaxIndex as integer

        'nMax holds the max votes. nMaxIndex holds the index of the array where the maximum is found

        'initialize nMaxIndex to 0

        nMaxIndex = 0

        nMax = nVotes(nMaxIndex)

        For i as integer = 0 to nVotes.Length - 1

            if nVotes(i) > nMax then

                nMAxIndex = i

                nMax = nVotes(i)

            end if

        Next

​

        'we have  a maximum value

        'we go back and check if there are 2 or more candidates with the same vote count

        Dim nMAxCount as integer

        'nMAxCount counts how many items have the same value as the maximum. (It will be at least 1)

        nMaxCount = 0

        For i as integer = 0 to nVotes.length - 1

            if nVotes(i) = nMax then

                nMAxCount += 1

            end if

        Next

​

        If nMaxCount = 1 then

            Console.WriteLine("There is a clear winner")

Console.writeline("The winner is {0} with {1} vote(s)") 'add line here to fix output of winner

        else

            Console.WriteLine("There is no clear winner")

For i  = 0 to nVotes.Length - 1

'add code

next

​

        'TODO

        'WRITE CODE TO DISPLAY ALL THE NAMES OF THE CANDIDATES WITH nMax votes (who are shared highest voters).

        end if

    End Sub

​

    Public Sub Print(s as string)

        Console.WriteLine((s))

    End Sub

​

    Public Function Input(message as string) as string

        Print(message)

        return console.readline()

    End Function

End Module