Dim IDs(NUM_STUDENTS - 1) AS Integer
Dim English(NUM_STUDENTS - 1) as Integer
Dim Math(NUM_STUDENTS - 1) as Integer
Dim Science(NUM_STUDENTS - 1) as Integer
Console.WriteLine("What do you want to do. Enter 1 to enter data, 2 to display results, 3 to search")
Tsk1 = Console.readline()
Public Sub EnterResults()
Dim asResults() as string
Console.WriteLine("Enter Results. Input like ID/ID/ID/ID,eng,mat,sci")
For i as integer = 0 to NUM_STUDENTS - 1
sResult = Console.readline()
asResults = sResult.split(",")
English(i) = asResults(1)
Science(i) = asResults(3)
Public Sub DisplayResults()