Imports System

​

Public Module Module1

    Public Sub Main()

​

        Dim Candidates(4) as String

        Dim x as integer 'candidate number'

        Dim vote(4) as integer

        Dim y as integer 'student number'

        Dim studentvote(30) as decimal

        Console.writeline("How many stuents are being selected as candidates?")

        x = console.readline()

        If x < 0 then

            console.writeline("Please enter number more than 1")

        Else if x > 4 then

                console.writeline("Wrong answer")

        End if

​

            For i = 1 to 1

            Console.WriteLine("Please enter student name one by one")

            Candidates(1) = console.ReadLine()

​

        Next

        For i = 1 to x

        console.WriteLine("Candidate(1) is being voted by students successfully")

    next

    console.WriteLine("how many students in your class? PS: No more than 30 or less than 1")

    y = console.ReadLine()

    if y < 1 OR y > 30 then

        console.WriteLine("No it is wrong")

    End if

    End Sub

​

End Module