Imports System

​

Public Module Module1

        CONST NUM_STUDENTS = 3

        Dim IDs(NUM_STUDENTS-1) AS Integer

        Dim English(NUM_STUDENTS-1) as Integer

        Dim Maths(NUM_STUDENTS-1) as Integer

        Dim Science(NUM_STUDENTS-1) as Integer

    Public Sub Main()

​

        Dim a as integer

        Console.WriteLine("What do you want to do. Enter 1 to enter data, 2 to display results, 3 to search")

        a = Console.readline()

        select case a

        Case 1

            EnterResults()

        End select

    End Sub

​

    Public Sub EnterResults()

        Dim Result as string

        Dim Results() as string

        Console.WriteLine("Enter Results")

        For i as integer = 0 to NUM_STUDENTS -1

            Result = Console.readline()

            Results = Result.split(",")

            IDs(i) = Results(0)

            English(i) = Results(1)

            Maths(i) = Results(2)

            Science(i) = Results(3)

        Next

    for i =1 to 3

    console.writeline（"student")

    console.writeline(IDs(i))

    console.writeline("English")

    console.writeline(English(i)）

    console.writeline("Maths")

    console.writeline(Maths(i))

    console.writeline("Science")

    console.writeline(Science(i))

        next

    End Sub

​

End Module

​