Imports System

​

​

Public Module Module1

​

​

'define number of students.

'change this in final version

Const NUM_STUDENTS = 2

​

​

Const MSG_ID_INCORRECT = "ID has incorrect format. ID must be unique and must be between 10,000 and 99,999 inclusive"

​

​

'initialize arrays, use the key Private , when declaring outside a function/subroutine.

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

​

​

Public Sub Main()

'setup the menu

Dim nOption as integer

Console.WriteLine(" Mark  Analysis System. What Do you want to do.Enter 1 to enter marks, 2 to display, 3 to search ")

nOption = Console.ReadLine()

Select case nOption

Case 1

'input data

InputData()

Case 2

'display data

Case 3

'search

Case 4

'edit (for later)

End Select

End Sub

​

​

Public Sub InputData()

'get input

Dim sIn as string ' to hold input

Dim IsValid as boolean 'used to flag whether input is valid

Dim nTemp as integer 'temp value used to hold data before adding it into an array

For i = 0 to NUM_STUDENTS - 1

Console.writeline(" Enter ID and Results.Format is: ID, EnglishResult, MathResult, ScienceResult ")

sIn = Console.ReadLine()

'we split the input, as thje input is 1 string, we want the data to be items in an array so they are easy to access.

Dim asIn = sIn.Split(", ")

'asIN will be an array of string, and the IDS and results are integers

'however, VB.Net will implicitly convert into the correct datatype.

'if you enter a result that is not a number by mistake e.g., 20300,e4,90,80, the code, as written will crash.

'check the ID first - it is  always the first item in the array asIN

ntemp = asIN(0)

'validate

isvalid = validate_ID(nTemp)

'if not valid keep validating until it is valid

Do while isvalid = false

Console.WriteLine("Please re-enter ID")

nTemp = Console.readline()

isvalid = validate_ID(nTemp)

Loop

​

​

IDs(i) = nTemp

'validate IDs with a while loop

'check range

'start with isvalid = true, then change to false if fails validation

'the English result is  always the first item in the array asIN

nTemp = asIN(1)

'validate the english result

ENGs(i) = nTemp

'the Maths result is  always the first item in the array asIN

nTemp = asIN(2)

'validate the maths result

MATs(i) = nTemp

'the Science result is  always the first item in the array asIN

nTemp = SCIs(i)

'valiate the science result

SCIs(i) = asIN(3)

Next

​

​

'print arrays out - just to test code works , remove from final version

PrintArray(IDs)

PrintArray(ENGs)

PrintArray(MATs)

PrintArray(SCIs)

End Sub

​

​

Function Validate_ID(nID as integer) as boolean

'check the range

if nID < 9999 OR nID > 99999 then

Console.WriteLine("ID value incorrect. ID needs to be between 10,000 and 99,999. ")

return false

end if

​

​

if array.IndexOf(IDs, nID) = -1 then

Console.WriteLine("ID not unique")

return false

end if

​

​

'if the code gets to here, ID is valid

Return True

End Function

​

​

Public Sub PrintArray(the_array as object)

'this is a subroutine that should print any array regardless of datatype

For each s as object in the_array

Console.write("{0} ", s.ToString())

Next

End Sub

End Module