Imports System

​

Public Module Module1

​

    const tempnum = 2 'temporary number of students used for testing code

​

    Private inpENG(tempnum), inpMAT(tempnum), inpSCI(tempnum) as integer 'use Private when initializing/declaring outside functions/subroutine

​

    Private inpID(tempnum) as integer

​

    Private nMin as integer

​

    Private ntemp as integer

​

    Public Sub Main()

        'Code menu system where: code prompts user for option; create a basic outline of the structure for the 3 options

        'Set up menu loop

        dim inpOption as integer

        Console.WriteLine("Type a number for option to do: 1. Input, 2. Display, 3.Search, 4.Quit")

        inpOption = Console.ReadLine()

        'Menu system where option number go to another subroutine for the specific option

        if inpOption = 1 then

            'Function for input data

            input()

        else if inpOption = 2 then

            'Function for display

            display()

        else if inpOption = 3 then

            'function for search

            search()

        else if inpOption = 4 then

        'Quit program

        end if

    End Sub

​

    Public sub input()

        'Code initialization

        'Declare arrays to hold data from a problem

        Dim TESTINPUT as string

        dim isvalid as boolean

        'dim ntemp as integer

        for i = 0 to tempnum - 1

                    Console.WriteLine("Enter student data in this format: ID, ENG, MAT, SCI; separated with commas in between")

            TESTINPUT = Console.ReadLine()

            Dim inpSPLIT = TESTINPUT.split(",")

            ntemp = inpSPLIT(0)

            'Validating ID is input correctly

                    isvalid = validID(nTemp)   'when function named validID is called, that function routine will run

            do while isvalid = false

                Console.writeline("please input the correct ID")

                ntemp = console.ReadLine()

                isvalid = ValidID(ntemp)

            loop

​

            inpID(i) = nTemp

            'Validating Eng result

            dim validResults as boolean

            ntemp = inpSPLIT(1)

                    validResults = ValidSub(ntemp)  'when function named validSub is called, that function routine will run

            do while validresults = false

                Console.WriteLine("please input the correct result for ENG")

                ntemp = console.ReadLine()

                ValidResults = Validsub(ntemp)

            loop

​

            inpENG(i) = ntemp

            'Validating Mat result

            ntemp = inpSPLIT(2)

            validResults = Validsub(ntemp)

            do while validresults = false

                Console.WriteLine("please input the correct result for MAT")

                ntemp = console.ReadLine()

                ValidResults = Validsub(ntemp)

            loop

​

            inpMAT(i) = inpSPLIT(2)

            'Validating Sci result

            ntemp = inpSPLIT(3)

            validResults = Validsub(ntemp)

            do while validresults = false

                Console.WriteLine("please input the correct result for MAT")

                ntemp = console.ReadLine()

                ValidResults = Validsub(ntemp)

            loop

​

            inpSCI(i) = inpSPLIT(3)

        next

​

        Main()

    end sub

​

    'Function to validate id

    Public function ValidID(id as integer) as boolean

        if ID < 9999 or ID > 99999 then

            return false

        end if

​

        if array.Indexof(inpID, ID) = -1 then

            return true

        else

            console.WriteLine("ID is not unique")

            return false

        end if

​

        return true

    end function

​

    'Function to validate the results

    Public function ValidSub(Subject as integer) as boolean

        'if result entered is over 100 the user has to re-enter the input

        if subject > 100 then

            return false

        else

            return true

        end if

​

        'if the result entered is under 20 the result will be converted to 20

        if subject < 20 then

            ntemp = 20

            return true

        end if

​

        return true

    end function

​

    Public sub Display()

        dim catagory() as string = {"UserID", "English_Result", "Math_Result", "Science_Result"}

        for i as integer = 0 to catagory.length - 1

            Console.Write("{0,-20}", catagory(i))

        next

​

        Console.WriteLine()

        For i as integer = 0 to tempnum - 1

            Console.WriteLine("{0, -20}{1, -20}{2, -20}{3, -20}", inpID(i), inpENG(i), inpMAT(i), inpSCI(i))

        next

​

        console.WriteLine()

        'Set up for average display

        dim AvgENG, AvgMAT, AvgSCI as integer

        AvgEng = findAverage(inpeng)

        AvgMAT = findaverage(inpmat)

        AvgSCI = findaverage(inpsci)

        Console.WriteLine("{0, -20}{1, -20}{2, -20}{3, -20}", "Average (2sf)", AvgEng, AvgMat, AvgSCI)

        'Set up for Maximum display 

        dim maxENG, maxMat, maxSCI as integer

        maxEng = findMax(inpEng)

        maxMat = findMax(inpMat)

        maxSCI = findMax(inpSci)

        Console.WriteLine("{0, -20}{1, -20}{2, -20}{3, -20}", "Maximum", maxEng, maxMat, maxSci)

        'Set up for minimum display

        dim minENG, minMAT, minSCI as integer

        minENG = findMin(inpEng)

        minMAT = findMin(inpMAT)

        minSCI = findMin(inpSCI)

        Console.WriteLine("{0, -20}{1, -20}{2, -20}{3, -20}", "Mininum", minEng, minMat, minSci)

        main()

    end sub

​

    Public function findAverage(num() as integer) 

        dim numTot, Avg as integer

        for i = 0 to num.length - 1

            numTot = numTot + num(i)

        next

​

        Avg = numTot / tempnum

        return Avg

        return true

    end function

​

    'Function to find max in each entered result

    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

​

    'Function to find min in each entered result

    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

​