Imports System

​

Public Module Module1

​

    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"

​

    Const MSG_RESULT_INCORRECT = "Results need to 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, SCIs, MATs}

​

    Public Sub Main()

        Dim nOption as integer

        Console.WriteLine("What Do You Want To Do? Enter 1 To Enter Marks, 2 To Display, 3 To Search Or 4 To Quit: ")

        Do

        nOption = Console.ReadLine()

        If nOption <1 or nOption >4 then

            Console.WriteLine("Invalid Input, Make Sure You Chose Either Option 1 Or 4: ")

            Elseif nOption = 2 or nOption = 3 then

                Console.WriteLine("You Haven't Entered Any Data To Be Displayed Or Searched From! Please Select 1 To Enter Data Or 4 To Quit: ")

            End If

        Loop Until nOption = 1 or nOption = 4

        If nOption = 4 then

            Console.WriteLine("Ending. Finding Results... ")

        End If

        Select case nOption

            Case 1

                InputData()

            Case 2

                Display()

            Case 3

                Search()

            Case 4

        End Select

        Console.WriteLine()

        Console.WriteLine("The Results Are: ")

        DisplayData()

    End Sub

​

    Public Sub InputData()

        Dim sIn as string

        Dim IsValid as boolean

        Dim nTemp as integer

        For i = 0 to NUM_STUDENTS - 1

        Console.writeline(" Enter ID Followed By The Results. The Format is: ID, English Result, Science Result And Maths Result: ")

            sIn = Console.ReadLine()

            Dim asIn = sIn.Split(", ")

            ntemp = asIN(0)

            isvalid = validate_ID(nTemp)

            Do while isvalid = false

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

                nTemp = Console.readline()

                isvalid = validate_ID(nTemp)

            Loop

​

            IDs(i) = nTemp

            nTemp = asIN(1)

            isvalid = Validate_Results(nTemp)

            do while isvalid = false

                Console.WriteLine("Please re-enter Result for English: ")

                nTemp = Console.readline()

                isvalid = validate_Results(nTemp)

            Loop

​

            ENGs(i) = nTemp

            nTemp = asIN(2)

            isvalid = Validate_Results(nTemp)

            do while isvalid = false

            Console.WriteLine("Please re-enter Result for Science: ")

                nTemp = Console.readline()

                isvalid = validate_Results(nTemp)

            Loop

​

            SCIs(i) = nTemp

            nTemp = asIN(3)

            isvalid = Validate_Results(nTemp)

            do while isvalid = false

            Console.WriteLine("Please re-enter Result for Maths: ")

                nTemp = Console.readline()

                isvalid = validate_Results(nTemp)

             Loop

​

            MATs(i) = nTemp

        Next

    End Sub

​

    Function Validate_Results(nResult as integer) as boolean

        if nResult > 100 then

            Console.writeline(MSG_RESULT_INCORRECT)

            return False

        else

            Return True

        end if

    End Function

​

    Function Validate_ID(nID) as integer

        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

​

        Return True

    End Function

​

    Public Sub PrintArray(the_array as object)

        For each s as object in the_array

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

    Next

    End Sub

​

​

    Public Sub Display()

Console.writeline("{0,10}{1,10}{2,10}{3,10}", "ID", "English", "Science", "Maths")

        for i as integer = 0 to IDs.Length-1

Console.writeline("{0,10}{1,10}{2,10}{3,10}", IDs(i), ENGs(i), SCIs(i), MATs(i))

        Next

    End sub

​

Public Sub DisplayData()

        Dim nStudents as integer

        nStudents = ENGs.Length

        Dim anAvg(2) as integer

        Dim anMax(2) as integer

        Dim nMark as integer

        Dim nTotal as integer

        anMax(0) = ENGs(0)

        For each nMark in ENGs

            ntotal += nMark

        if nMArk > anMAx(0) then

            anMax(0) = nMArk

        end if

        next

        anAvg(0) = ntotal / nStudents

        ntotal = 0

        For each nMark in SCIs

            ntotal += nMark

        next

​

        anAvg(1) = ntotal / nStudents

        ntotal = 0

        For each nMark in MATs

            ntotal += nMark

        next

​

        anAvg(2) = ntotal / nStudents

        ntotal = 0

        console.writeline("{0,-12}{1,-12}{2,-12}{3,-12}", "ID", "English", "Science", "Maths")

        console.writeline("{0,-12}{1,-12}{2,-12}{3,-12}", new String("_", 10), new String("_", 10), new String("_", 10), new String("_", 10))

        console.writeline()

        for n as integer = 0 to nStudents - 1

        console.WriteLine("{0,-12}{1,-12}{2,-12}{3,-12}", IDs(n), ENGs(n), SCIs(n), MATs(n))

        next

​

        console.writeline()

        console.writeline("{0,-12}{1,-12}{2,-12}{3,-12}", "Average: ", anAvg(0), anAvg(1), anAvg(2))

    dim maxENG, maxSCI, maxMAT as integer

        maxEng = findMax(ENGs)

        maxSCI = findMax(MATs)

        maxMAT = findMax(SCIs)

    Console.WriteLine("{0, -12}{1, -12}{2, -12}{3, -12}", "Maximum: ", maxENG, maxSCI, maxMAT)

​

    dim minENG, minSCI, minMAT as integer

        minENG = findMin(ENGs)

        minSCI = findMin(SCIs)

        minMAT = findMin(MATs)

    Console.WriteLine("{0, -12}{1, -12}{2, -12}{3, -12}", "Mininum: ", minENG, minSCI, minMAT)

    End Sub

​

​

    Public function findMax(num() as integer)

        dim nMax as integer

        For i = 0 to num.length - 1

            if num(i) > nMax then

                nMax = num(i)

            end if

        next

​

        return nMax

        return true

    end function

​

    Public function findMin(num() as integer)

        dim nMin as integer

        nMin = num(0)

        For i = 0 to num.length - 1

            if num(i) < nMin then

                num(i) = nMin

            end if

        next

​

        return nMin

        return true

    end function

​

​

Public Sub Search()

​

End Sub

​

End Module

​