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
Console.WriteLine("What do you want to do. Enter 1 to enter data, 2 to display results, 3 to search")
Public Sub EnterResults()
Console.WriteLine("Enter Results")
For i as integer = 0 to NUM_STUDENTS -1
Result = Console.readline()
Results = Result.split(",")
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))