Imports System

Public Module Module1

    Public Sub Main()

                Dim nCan as integer

​

        console.writeline("Enter the number of candidates")

        nCan = console.readline()

        nCan-=1

        Dim nVotes(nCan) as integer

        Dim Names(4) as string

        For i as integer = 0 to nCan

        Console.Writeline("Enter name for candidate {0}", i + 1)

        Names(i) = console.readline()

    next

    dim nMaxVoters, vote(4) as integer

    nMaxVoters = 5

    For i = 1 to nMaxVoters

    console.writeline("Enter vote")

    vote(i) = console.readline()

    if vote(i) = 1 then 

        Names(1) = Vote(1) + 1

    else if vote(i) = 2 then 

            Names(2) = Vote(2) + 1

    else if vote(i) = 1 then 

            Names(3) = Vote(3) + 1

    else if vote(i) = 1 then 

            Names(4) = Vote(4) + 1

    vote(i) = 1

    nVotes(vote(i))+=1

    nVotes = {5, 6, 3, 2}

    end if

    console.writeline(Vote(1))  

next

​

    End Sub

End Module