Imports System

​

Public Module Module1

​

    'number of students as constant change this in order to change it for the final________________________________________________________________________________________________________________________ number of students CONSTANT

    private nSize as integer = 2

​

    'number of students as constant change this in order to change it for the final________________________________________________________________________________________________________________________ number of students CONSTANT

    private IDs(nSize) as string

​

    private engRes(nSize) as integer

​

    private matRes(nSize) as integer

​

    private sciRes(nSize) as integer

​

    Public Sub Main()

        console.WriteLine("input, 1 for input, 2 for display, 3 for search, or -1 to quit the program")

        dim userOP as integer = console.ReadLine()

        do while userOP > 3 or userOP < -1 or userOP = 0

            console.WriteLine("invalid input, please re-enter your desired operation")

            userOP = console.ReadLine()

        loop

​

        'menu navigation system______________________________________________________________________________________________________________________ MENU NAVIGATION

        if userOP = 1

            inputOP

        elseif userOP = 2

            displayOP

        elseif userOP = 3

            searchOP

        elseif userOP = -1

            quitOP

        end if

    End Sub

​

    public sub inputOP

        console.WriteLine("input option selected")

        nSize = nSize - 1

        dim sIn as string

        dim isValid as Boolean

        dim nTemp as integer

        console.WriteLine("enter data")

        for i = 0 to nSize

            sIn = console.ReadLine()

            dim asIn = sIn.Split(",")

            nTemp = asIn(0)

            'validation of the ID number __________________________________________________________________________________________________________validate ID number

            isValid = validate_ID(nTemp)

            do while isValid = false

                console.WriteLine("please re-enter ID number")

                nTemp = console.ReadLine()

                isValid = validate_ID(nTemp)

            loop

​

            nTemp = IDs(i)

            IDs(i) = asIn(0)

            'validation of the english result ________________________________________________________________________________________________________validate ENG result

            nTemp = asIn(1)

            isValid = validate_result(engRes(i))

            do while isValid = false

                console.WriteLine("please re-enter eng result")

                engRes(i) = console.ReadLine()

                isvalid = validate_result(engRes(i))

            loop

​

            nTemp = engRes(i)

            engRes(i) = asIn(1)

            'validation of the maths result __________________________________________________________________________________________________________validate MAT result

            nTemp = asIn(2)

            isValid = validate_result(matRes(i))

            do while isValid = false

                console.WriteLine("please re-enter mat result")

                matRes(i) = console.ReadLine()

                isValid = validate_result(matRes(i))

            loop

​

            nTemp = matRes(i)

            matRes(i) = asIn(2)

            'validation of the science result ___________________________________________________________________________________________________________validate MAT result

            nTemp = asIn(3)

            isValid = validate_result(sciRes(i))

            do while isValid = false

                console.WriteLine("please re-enter sci result")

                sciRes(i) = console.ReadLine()

                isValid = validate_result(sciRes(i))

            loop

​

            nTemp = sciRes(i)

            sciRes(i) = asIn(3)

        next

    End sub

​

    'identity validation function ___________________________________________________________________________________________________ID vaidation fucntion

    public function validate_ID(nID as integer) as boolean

        if nID < 9999 OR nID > 99999 then

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

            return false

        end if

​

        'code is true if it gets here________________________________________________code truth

        return true

    End Function

​

    'result validation funciton___________________________________________________________________________________________________________RES validation function

    public function validate_result(nRES as integer) as boolean

        if nRES > 100 or nRES < 0 then

            console.Write("result value incorrect. Result needs to be between 0 and 100. ")

            return false

        end if

​

        if nRES < 20 and nRES > 0 then

            console.Write("low score has been changed to 20")

            return true

        end if

    'code is true if it gets here________________________________________________code truth

    End Function

​

    public sub displayOP

        console.WriteLine("display option selected")

        dim avENG as integer

        dim avMAT as integer

        dim avSCI as integer

        dim maxENG as integer

        dim maxMAT as integer

        dim maxSCI as integer

        dim minENG as integer

        dim minMAT as integer

        dim minSCI as integer

        dim countENG as integer

        dim totalRESeng as integer

        for i = 0 to nSize

            totalRESeng = totalRESeng + engRes(i)

            countENG = countENG + 1

        next

​

        avENG = totalRESeng / countENG

        dim countMAT as integer

        dim totalRESmat as integer

        for i = 0 to nSize

            totalRESmat = totalRESmat + matRes(i)

            countMAT = countMAT + 1

        next

​

        avMAT = totalRESmat / countMAT

        dim countSCI as integer

        dim totalRESsci as integer

        for i = 0 to nSize

            totalRESsci = totalRESsci + sciRes(i)

            countSCI = countSCI + 1

        next

​

        avSCI = totalRESsci / countSCI

        For i = 0 to nSize

            if engRes(i) > maxENG then

                maxENG = engRes(i)

            end if

​

            if engRes(i) < minENG then

                minENG = engRes(i)

            end if

        Next

​

        For i = 0 to nSize

            if matRes(i) > maxMAT then

                maxMAT = matRes(i)

            end if

​

            if matRes(i) < minMAT then

                minMAT = matRes(i)

            end if

        Next

​

        For i = 0 to nSize

            if sciRes(i) > maxSCI then

                maxSCI = sciRes(i)

            end if

​

            if sciRes(i) < minSCI then

                minSCI = sciRes(i)

            end if

        Next

​

        console.WriteLine("{0, -20} {1, -20} {2, -20} {3, -20}", "student ID", "ENG result", "MAT result", "SCI result")

        for i as integer = 0 to nSize

            console.WriteLine("{0, -20} {1, -20} {2, -20} {3, -20}", IDs(i), engRes(i), matRes(i), sciRes(i))

        next

​

        console.WriteLine("calculating averages, maximums, and minimums")

        console.WriteLine()

        console.WriteLine("{0, -30} {1, -30} {2, -30}", "average ENG result", "average MAT result", "average SCI result")

        console.WriteLine("{0, -30} {1, -30} {2, -30}", avENG, avMAT, avSCI)

        console.WriteLine()

        console.WriteLine("{0, -30} {1, -30} {2, -30}", "maximum ENG result", "maximum MAT result", "maximum SCI result")

        console.WriteLine("{0, -30} {1, -30} {2, -30}", maxENG, maxMAT, maxSCI)

        console.WriteLine()

        console.WriteLine("{0, -30} {1, -30} {2, -30}", "minimum ENG result", "minimum MAT result", "minimum SCI result")

        console.WriteLine("{0, -30} {1, -30} {2, -30}", minENG, minMAT, minSCI)

    End sub

​

    public sub searchOP

        console.WriteLine("search option selected")

    End sub

​

    public sub quitOP

        console.WriteLine("program stopped")

    end sub

End Module

​