Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim ID as integer

        Dim English as integer

        Dim Maths as integer

        dim Science as integer

        Dim nOption as integer

        Console.writeline("Options: Enter 1 to enter student data, enter 2 to display results and enter 3 to search for data.")

        nOption = Console.readline()

        select case nOption

            Case 1

            Dim SubjectResult as string 

            Dim SplittedResult() as string

                Console.writeline("Please enter the student's results")

            SubjectResult = Console.readline()

            SplittedResult = SubjectResult.split(",")

            ID = SplittedResult(0)

            English = SplittedResult(1)

            Maths = SplittedResult(2)

            Science = SplittedResult(3)

            Case 2

            Case 3

        End select

    End Sub

End Module

​