Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim VCount(4) as Integer    

        Dim C as Integer    

        Dim temp as Integer

        Dim Nclass as Integer

        Dim Max as Integer = 0

        Dim LastMax as Integer = 30

        Dim Maxname as String

        Dim FVoteCount(4) as Integer 

        Dim FName(4) as string

        Dim Name as string

        Dim Index as Integer

        Console.WriteLine("Input number of candidates 2-4")

        C = Console.ReadLine()

        Do until C > 1 AND C < 5 

            Console.WriteLine("Invalid number of candidates, please enter again")

            C = Console.ReadLine()

        Loop

        Dim CName(C) as String

        For i = 1 to C

            Console.WriteLine("Input Candidate Name " & " " & i)

            Name = Console.ReadLine()

            'Do Until Name.Equals(CName(1)) = False AND Name.Equals(CName(2)) = False AND Name.Equals(CName(3)) = False

                'Console.WriteLine("This candidate has been entered already, enter another")

                'Name = Console.ReadLine()

            'Loop

            CName(i) = Name

        Next i

        Console.WriteLine("Input number of students in class, more than number of candidates and less than 30")

        NClass = Console.ReadLine()

            Do Until NClass <= 30 AND NClass > C 

                Console.WriteLine("Invalid, input number of students in class again")

                NClass = Console.ReadLine()

            Loop

        For j = 1 to NClass - C 

            Console.WriteLine("Enter candidate number to vote")

            temp = Console.ReadLine()

            Do Until temp <= C AND temp >= 1

                Console.WriteLine("Invalid, input vote again")

                temp = Console.ReadLine()

            Loop

            VCount(temp) = VCount(temp) + 1 

        Next j

        'Task 3

        For k as integer = 1 To C

            For m = 1 To C

                If VCount(m) > Max And VCount(m) < LastMax Then

                    Max = VCount(m)

                    MaxName = CName(m)

                    Index = m

                Elseif VCount(m) = Max and VCount(m) = 0 then

                    MaxName = CName(m)

                End If

            Next m

            FVoteCount(k) = Max

            FName(k) = Maxname

            VCount(index) = -1

            Lastmax = Max

            Max = 0

        Next k

        For o = 1 to C

            Console.WriteLine(FName(o) & ": " & FVoteCount(o))

        Next o

        If FVoteCount(0) = FVoteCount(1) then

            Console.WriteLine("No Overall Winner")

        Else

            Console.WriteLine("New Captain: " & FName(1))

        End If

    End Sub

End Module