Imports System

​

Public Module Module1

​

    Dim IDs() as integer

​

    Dim ENGs() as integer

​

    Dim MATs() as integer

​

    dim SCIs() as integer

​

    Public Sub Main()

        Dim nOption as integer

        Console.writeline("Options: Enter 1 to enter student data, enter 2 to display results and enter 3 to search for data.")

        nOption = Console.readline()

        select case nOption

            Case 1

                InputData()

            Case 2

            Case 3

        End select

    End Sub

​

    Public Sub InputData()

        Dim SubjectResult as string

        Dim SplittedResult() as string

        Dim AmountStudents as integer

        Dim IsValid as boolean

        Dim nTemp as integer

        Console.writeline("How many students' data would you like to enter?")

        AmountStudents = Console.readline()

        For i = 0 to AmountStudents - 1

            Do until i < 0

                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)

                Do while IsValid = False

                    Console.writeline("Please re-enter the ID.")

                    nTemp = Console.readline()

                    IsValid = Validate_ID(nTemp)

                Loop

​

                IDs(i) = nTemp

                nTemp = SplittedResult(1)

                IsValid = Validate_Results(nTemp)

                Do while IsValid = False

                    Console.writeline("Please re-enter the English Result.")

                    nTemp = Console.readline()

                    IsValid = Validate_Results(nTemp)

                Loop

​

                ENGs(i) = nTemp

                nTemp = SplittedResult(2)

                IsValid = Validate_Results(nTemp)

                Do while IsValid = False

                    Console.writeline("Please re-enter the Maths Result.")

                    nTemp = Console.readline()

                    IsValid = Validate_Results(nTemp)

                Loop

​

                MATs(i) = nTemp

                nTemp = SplittedResult(3)

                IsValid = Validate_Results(nTemp)

                Do while IsValid = False

                    Console.writeline("Please re-enter the Science Result.")

                    nTemp = Console.readline()

                    IsValid = Validate_Results(nTemp)

                Loop

​

                SCIs(i) = nTemp

            Loop

        Next

    End Sub

​

    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.")

            Return false

        End if

​

        If array.indexof(IDs, IDn) <> -1 then

            Console.writeline("This ID  number is not unique.")

            Return false

        End if

​

        Return true

    End function

​

    Function Validate_Results(Resultn as integer) as boolean

        if Resultn < 20 or Resultn > 100 then

            Return false

        End if

​

        Return true

    End function

End Module

​