Imports System

Public Module Module1

    Public Sub Main()

        Dim Precheck As Decimal

​

        Dim ClassNumber As Decimal

        Dim NumberOfCandidates As Decimal

​

        Dim Max As Decimal = 0

        Dim MaxName As String

        Console.WriteLine("Enter Class Size")

        Dim i As Integer

        Do While i = 0

            'Precheck = Console.ReadLine()

            Precheck = 10

            If Precheck Mod 1 = 0 And Precheck <= 30 And Precheck>0 Then

                ClassNumber = Precheck

                i = i + 1

            Else

                Console.WriteLine("error, retry")

            End If

        Loop

        i = 0

​

        Console.WriteLine("Enter Number of Candidates")

        Do While i = 0

            'Precheck = Console.ReadLine()

            Precheck = 4

            If Precheck Mod 1 = 0 And Precheck >= 2 And 4 >= Precheck Then

                NumberOfCandidates = Precheck

                i = i + 1

            Else

                Console.WriteLine("error, retry")

            End If

        Loop

​

        'Dim CandidateNames(NumberOfCandidates) As String

        Dim CandidateNames() As Decimal  = {1, 2, 3, 4, 5, 6}

        'For i = 1 To NumberOfCandidates

            Console.WriteLine("Enter Candidate Name")

        'Next

​

        Console.WriteLine("Input your vote using the numbers stated alongside the candidate's names:")

        For i = 1 To 5

            Console.WriteLine(" - " & CandidateNames(i) & " (" & i & ")")

        Next

        Dim CandidateScorekeep(4) As Decimal

​

        'For i = 1 To ClassNumber          

        '   Precheck = Console.ReadLine()

         '   If Precheck Mod 1 = 0 And Precheck > 0 And Precheck <= NumberOfCandidates Then

          '      CandidateScorekeep(Precheck) = CandidateScorekeep(Precheck) + 1

           ' Else

            '    Console.WriteLine("invalid vote, retry entering vote")

            'End If

        'Next

    CandidateScorekeep(1) = 15

    CandidateScorekeep(2) = 12

    CandidateScorekeep(3) = 10

    CandidateScorekeep(4) = 29

​

​

dim CandidateScoreKeep2(NumberOfCandidates) as Decimal

​

​

    Dim Lastmax As Decimal = 100000

        For j = 0 To NumberOfCandidates

            For i = 1 To NumberOfCandidates

                If CandidateScoreKeep(i) > Max And CandidateScoreKeep(i) < LastMax Then

                    Max = CandidateScoreKeep(i)

                elseif CandidateScoreKeep(i) = LastMax

                    CandidateScoreKeep2(i) = LastMax

                    Console.WriteLine(CandidateNames(i) & " - Number of Votes: " & CandidateScorekeep(i))   

                    CandidateScoreKeep2(i) = CandidateScorekeep(i)  

                End If      

            Next

            Lastmax = Max 

            Max = 0

        Next 

​

Lastmax = 100000

For i = 1 To NumberOfCandidates

        If CandidateScoreKeep(i) >= Max Then

            Lastmax = Max 

            Max = CandidateScoreKeep(i)

                For j = 1 To NumberOfCandidates

                    if j = i then

                    MaxName = CandidateNames(i)

                    end if

                Next

        End If

Next

​

​

'For j = 1 To NumberOfCandidates

'   Console.WriteLine(CandidateScoreKeep2(j))

'Next

​

if Max = LastMax then

Console.WriteLine("NO OVERALL WINNER")

else

Console.WriteLine("NEW CLASS CAPTAIN: " & MaxName)

end if

​

​

'Dim Lastmax2 As Decimal = 100000

''Max = 0

''      For j = 0 To NumberOfCandidates

''          For i = 1 To NumberOfCandidates

    ''          If CandidateScoreKeep(i) > Max And CandidateScoreKeep(i) < LastMax2 Then

''                  Max = CandidateScoreKeep(i)

''Co''nsole.WriteLine(CandidateNames(j) & "  " & CandidateScorekeep(j))

    ''          End If

    ''      Next

''          Lastmax = Max 

''          Max = 0

    ''  Next 

​

​

'Console.WriteLine()

'if Check = 2 then

'Console.WriteLine("NO OVERALL WINNER")

'else

'Console.WriteLine("NEW CLASS CAPTAIN: " & MaxName)

'End if

​

​

        Console.ReadLine()

    End Sub

End Module