Imports System

Public Module Module1

    Public Sub Main()

        'im scores_length as string

        Dim scores as string

        'Dim i as integer

        Dim students_num as integer

        Dim n as integer

        Dim ID(n) as string

        Dim Eng(n) as integer

        Dim Math(n) as integer

        Dim sci(n) as integer

        Console.Writeline("How many students sit the test?")

        students_num = Console.readline()

        n = 0

        For n = 0 to students_num

        Console.WriteLine("Please enter your ID number and results in CSV format")

        scores = Console.readline()

        Dim parts as string() = scores.split(",")

            While parts.length <> 4

            Console.Writeline("There should be 4 parts")

            scores = Console.readline()

            parts = scores.split(",")

            End while 

        ID(n) = parts(0)

        Eng(n) = parts(1)

        Math(n) = parts(2)

        sci(n) = parts(3)

            While ID(n).length <> 5

                Console.Writeline("Please enter a valid 5-digit ID number")

                ID(n) = Console.Readline()

            End while

​

            While Eng(n) or Math(n) or sci(n) < 20

                If Eng(n) < 20

                    Eng(n) = 20

                Elseif Math(n) < 20

                    Math(n) = 20

                Else

                    sci(n) = 20

                End if

            End While

            While Eng(n) or Math(n) or sci(n) > 100

                If Eng(n) > 100

                    Console.Writeline("Please enter a valid scores for" & Eng(n))

                    Eng(n) = console.readline()

                Elseif Math(n) > 100

                    Console.Writeline("Please enter a valid scores for" & Math(n))

                    Math(n) = console.readline()

                Else

                    Console.Writeline("Please enter a valid scores for" & sci(n))

                    sci(n) = console.readline()

                End if

            End while

​

        n += 1

​

        Next

​

    For n = 0 to students_num

        Console.Writeline("{0,-8},{1,-8},{2,-8},{3,-8}" , "ID" , "Eng" , "Math" , "sci")

        Console.Writeline(ID(n) & "    " & Eng(n) & "       " & Math(n) & "        " & sci(n))

    Next

    End Sub

End Module