Imports System

Public Module Module1

    Public Sub Main()

        Dim Maths(), English(), Science() as integer

        Dim ID, Result as string

        Dim input as integer 

        Do

        Console.writeline("What would you like to do?  1. Input Data   2. Results Table   3. Search   4. Quit")

        input = console.readline()

        if input = 1 then

            for i = 1 to 1

            console.writeline("Enter Data")

            Result = console.readline()

            Dim sResult = Result.split(",")

        next

        else if input = 2 then

                console.writeline("Student ID     Maths       English      Science")

            console.writeline(ID.Replace(",","          "))

        else if input = 3 then

                console.writeline("")   

        else if input = 4 then

                        GoTo lastline

        end if 

                console.writeline(ID(1))                

        Loop until input = 4

    lastline:                                       

    End Sub

End Module