Imports System

​

Public Module Module1 '34weg

​

    Public Sub Main()

        Dim tutorname As String

        Dim pupilnumb, candreg As Integer

        Dim candnames(3) As String

        dim votes(candreg) as string

        Console.WriteLine("Welcome to the VOTESYSTEM 2.0 - Credit, Carl Stewrat")

        Console.WriteLine(">> Enter The Name Of Your Tutor Group")

        Console.WriteLine(" ")

        tutorname = Console.ReadLine()

        Console.WriteLine(" ")

        Console.WriteLine("You're in, " & tutorname)

        Console.WriteLine("Great, Now Enter The Amount Of Students Voting In The Tutor Group")

        pupilnumb = Console.ReadLine()

        While pupilnumb < 28 Or pupilnumb > 35

            Console.WriteLine(" ")

            Console.WriteLine("/ERROR/")

            Console.WriteLine("Your Class Must Be Between 28-35 students, Please Try Again")

            Console.WriteLine("/ERROR END/")

            Console.WriteLine(" ")

            pupilnumb = Console.ReadLine()

        End While

​

        Console.WriteLine(" ")

        Console.WriteLine("Great, You've Selected, " & pupilnumb & " Students To Vote")

        Console.WriteLine("Now, Please Enter The Amount Of Candidates Competing")

        Console.WriteLine(" ")

        candreg = Console.ReadLine()

        While candreg > 4

            Console.WriteLine(" ")

            Console.WriteLine("/ERROR/")

            Console.WriteLine("There Can Only Be Up To 4 Candidates, Please Try Again")

            Console.WriteLine("/ERROR END/")

            Console.WriteLine(" ")

            candreg = Console.ReadLine()

        End While

​

        For count as integer = 0 to candreg - 1

            Console.WriteLine(" ")

            Console.WriteLine("Thank you, You've Selected " & candreg & " Candidates")

            Console.WriteLine("Please Enter The Names Of The Following Students")

            Console.WriteLine(" ")

        votes(candreg) = Console.ReadLine()

        Next

    End Sub

End Module

​