Console.writeline("Options: Enter 1 to enter student data, enter 2 to display results and enter 3 to search for data.")
nOption = Console.readline()
Dim SubjectResult as string
Dim SplittedResult() as string
Dim AmountStudents as integer
Console.writeline("How many students' data would you like to enter?")
AmountStudents = Console.readline()
For i = 0 to AmountStudents - 1
Console.writeline("Please enter the student's results in the format of ID,English,Maths,Science as shown, without a space between each comma.")
SubjectResult = Console.readline()
SplittedResult = SubjectResult.split(",")
nTemp = SplittedResult(0)
IsValid = Validate_ID(nTemp)
Console.writeline("Please re-enter the ID.")
nTemp = Console.readline()
IsValid = Validate_ID(nTemp)
nTemp = SplittedResult(1)
IsValid = Validate_Results(nTemp)
Console.writeline("Please re-enter the English Result.")
nTemp = Console.readline()
IsValid = Validate_Results(nTemp)
nTemp = SplittedResult(2)
IsValid = Validate_Results(nTemp)
Console.writeline("Please re-enter the Maths Result.")
nTemp = Console.readline()
IsValid = Validate_Results(nTemp)
nTemp = SplittedResult(3)
IsValid = Validate_Results(nTemp)
Console.writeline("Please re-enter the Science Result.")
nTemp = Console.readline()
IsValid = Validate_Results(nTemp)
Function Validate_ID(IDn as integer) as boolean
If IDn < 9999 or IDn > 99999 then
Console.writeline("Please only enter an ID number between 10,000 and 99,999.")
If array.indexof(IDs, IDn) <> -1 then
Console.writeline("This ID number is not unique.")
Function Validate_Results(Resultn as integer) as boolean
if Resultn < 20 or Resultn > 100 then