Const MSG_ID_INCORRECT = "ID has incorrect format. ID must be unique and must be between 10,000 and 99,999 inclusive"
Const MSG_RESULT_INCORRECT = "Result is incorrect. Result must be between 20 and 100"
Private IDs(NUM_STUDENTS - 1) as integer
Private ENGs(NUM_STUDENTS - 1) as integer
Private SCIs(NUM_STUDENTS - 1) as integer
Private MATs(NUM_STUDENTS - 1) as integer
Private AllArrays()() as integer = {IDS, ENGs, MATs, SCIs}
Console.WriteLine(" Thi is the Mark Analysis System. Choose the option to do: Enter 1 to enter marks, 2 to display, 3 to search ")
nOption = Console.ReadLine()
For i = 0 to NUM_STUDENTS - 1
Console.writeline(" Enter ID & Results in CSV format: ID, EnglishResult, MathResult, ScienceResult ")
Dim asIn = sIn.Split(", ")
isvalid = validate_ID(nTemp)
Console.WriteLine("Please re-enter ID")
nTemp = Console.readline()
isvalid = validate_ID(nTemp)
isvalid = Validate_Results(nTemp)
Console.WriteLine("Please re-enter Result for English.")
nTemp = Console.readline()
isvalid = validate_Results(nTemp)
isvalid = Validate_Results(nTemp)
Console.WriteLine("Please re-enter Result for Math.")
nTemp = Console.readline()
isvalid = validate_Results(nTemp)
isvalid = Validate_Results(nTemp)
Console.WriteLine("Please re-enter Result for Science.")
nTemp = Console.readline()
isvalid = validate_Results(nTemp)
Function Validate_Results(nResult as integer) as boolean
Console.writeline(MSG_RESULT_INCORRECT)
Function Validate_ID(nID as integer) as boolean
if nID < 9999 OR nID > 99999 then
Console.WriteLine("ID value incorrect. ID needs to be between 9,999 and 99,999. ")
if array.IndexOf(IDs, nID) <> -1 then
Console.WriteLine("ID not unique")
Dim sCategory() as string = {"ID","English","Math","Science"}
For i as integer = 0 to sCategory.Length - 1
Console.Write("{0,-20}", sCategory(i))
For i as integer = 0 to NUM_STUDENTS - 1
Console.WriteLine("{0,-20}{1,-20}{2,-20}{3,-20}", IDs(i), ENGs(i), MATs(i), SCIs(i))
Public Sub PrintArray(the_array as object)
For each s as object in the_array
Console.write("{0} ", s.ToString())
Public function IsValidate_s(a as string) as boolean
if a.length > 6 or a.length < 2 then
console.WriteLine("input needs to be between 2 and 6 chars long")