Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim count1(4) as Decimal

        Dim o = 0

        Dim u = 0

        Dim Cnt1 as Decimal

        Dim Cnt2 as Decimal

        Dim Cnt3 as Decimal

        Dim Cnt4 as Decimal

        Dim Candt as Decimal

        Dim ClassRep(4) as String

        dim maxname as string = "A"

        Dim x as string

        Dim max as integer = -5

        Dim lastmax as integer = 1000000

        ' Declaring and assigning complete

        '--------------------------------------------------------------Cnt1 = number of people , Cnt2 = Counter for candidate names, Candt = candidates number

        'How maany people in class'

        console.writeline("How many people in the class")

        Do

            Cnt1 = console.readline()

        Loop Until Cnt1 < 31 and Cnt1 > 0

​

        Console.writeline("Total number of people present = " & Cnt1)

        console.writeline("------------------------------------------------------------")

        'Number of candidates

        Console.writeline("Enter number of candidates")

        Candt = console.readline()

        Console.writeline("Total number of candidates = " & Candt)

        console.writeline("------------------------------------------------------------")

        '--------------Names assigned

        Cnt2 = 0

        Console.writeline("Enter Candidate Names")

        For i = 1 to Candt

            ClassRep(i) = Console.readline()

        Next

​

        Console.writeline("Enter number corresponding to candidate When Voting")

        For i = 1 to Candt

            COnsole.writeline("- " & ClassRep(i) & " -- " & i)

        Next

​

        '-------------------------------------------------------------loop input number of times

        For i = 1 to Cnt1

            Console.WriteLine("Enter Who you would like to vote for")

            Do

                '------------------------------------Cnt3 is the input

                '------------------------------------

                Cnt3 = Console.readline()

            Loop Until Cnt3 < Candt + 1

​

            count1(cnt3) = count1(cnt3) + 1

        Next

​

        '----------------------------------------------------showing results

        console.writeline("------------------------------------------------------------")

        For i = 1 To Candt

            Console.writeline("Total votes for " & ClassRep(i) & " = " & count1(i))

        Next

​

        console.writeline("------------------------------------------------------------")

        '-----------------------------------Sorting

'--------------------- If value is bigger then past value 

        console.writeline("Ordered in terms of votes:")

        For u = 1 To candt

            o = 1

            For o = 1 To candt

                If count1(o) > max And count1(o) < lastmax Then

                    max = count1(o)

                    maxname = ClassRep(o)

                else if count1(o) = max then

                    Console.Writeline(ClassRep(o) & ": " & max)

                End If

            Next o

​

            If max <> -5

                Console.WriteLine(maxname & ": " & max)

            end if

​

            lastmax = max

            max = -5

        Next u

    End Sub

End Module

​