Imports System

Public Module Module1

    dim studentnum, y as integer 'Declaring all global variables needed

    dim id(99) AS STRING', eng(99), math(99), sci(99), maximum(2), minimum(2), sum(2) as string '100 is the maximum number of students for this code to work. To make it work for more, simply increase the maximum number :)

    dim eng(99), math(99), sci(99), maximum(2), minimum(2), sum(2) as integer

    dim average(2) as integer'decimal

​

Public Sub Main()

        DataEntry() 'run subroutine to enter the data

        Calculate() 'run subroutine to calculate the stats

        Display() 'run subroutine to display the data

        Search() 'run subroutine to search for data

end sub 

​

​

Public Sub DataEntry() 'entering each student's results

    dim inputmarks as string

    dim std(3) as string

    dim studentnum_valid, data_invalid as boolean

    dim repeat as integer

​

    do 'asks for number of stduents in class

        studentnum_valid = true

        console.writeline("Enter number of students in class:")

            try 'makes sure user enters a number

            studentnum=console.readline()

        catch ex as exception

                if ex.message = "Thread was being aborted." then

                    console.write("")

                else

                console.writeline("You have entered a letter or symbol. Please try again.")

                studentnum_valid=false

                end if

        end try

            if studentnum_valid = true 'makes sure user enters a positive number 

                if studentnum<1

                    console.writeline("The number you entered was invalid. Please try again.")

                    studentnum_valid = false

                end if

            end if

        loop until studentnum_valid=true

        for repeat = 1 to studentnum 'this is where the user enters the data

    do 

        data_invalid=false

            console.writeline("Input data for student " & repeat & ". Please enter in the order: Student ID, English, Maths, Science.")

        inputmarks=console.readline()

            std=inputmarks.split(",") 'splits up whatever the user inputs and assings it a variable in the string

        try

            std(1)=convert.ToInt32(std(1))

            std(2)=convert.ToInt32(std(2))

            std(3)=convert.toInt32(std(3))

            catch ex as exception  'makes sure the data entered is valid

                if ex.message = "Thread was being aborted." then

                    console.writeline("")

                else

            console.writeline("Data entry incorrect. Please try again.")

                data_invalid = true

                end if

        end try

​

        if std.GetLength(0) <> 4 then 'makes sure there are four values entered

                data_invalid=true

                console.writeline("You've added too many or too few values. Please re-enter.")

        end if

        if std(0).length <> 5 then 'makes sure ID length is 5 digits

                data_invalid=true

                console.writeline("ID length invalid. Please re-enter.")

        end if

        try

                if std(1) > 100 or std(2) > 100 or std(3) > 100 then 'checks data entered isn't greater than 100

                    data_invalid = true

                    console.writeline("Results entered are invalid. Please re-enter.")

                end if

                if std(1) < 0 or std(2) < 0 or std(3) < 0 then 'checks data is a positive number

                    data_invalid = true

                    console.writeline("Results entered are invalid. Please re-enter")

                end if

                if repeat > 1 'makes sure user hasn't entered a duplicate 

                    for y = 0 to repeat - 1

                    if std(0) = id(y)

                        Console.writeline("You've already entered that student's results. Try again")

                        data_invalid = true

                        end if

                    next

                end if

            if std(1) < 20 then 'If data is below 20 it is converted to 20

                std(1) = 20

            end if

            if std(2) < 20 then

                std(2) = 20

            end if

            if std(3) < 20 then

                std(3) = 20

            end if

        catch ex as exception

            data_invalid = true

        end try

    loop until data_invalid=false

    id(repeat - 1) = std(0) 'assigning the data into their correct array

    eng(repeat - 1) = std(1)

    math(repeat - 1) = std(2)

    sci(repeat - 1) = std(3)

    next

end sub

​

'________________________________________________________________________________________________________________________________________________________________________

​

Public sub Calculate()

    dim y as integer

    maximum(0) = 0

    maximum(1) = 0

    maximum(2) = 0

    minimum(0) = 100

    minimum(1) = 100

    minimum(2) = 100

​

​

    for y= 0 to studentnum-1

        sum(0) = eng(y) + sum(0)

        sum(1) = math(y) + sum(1)

        sum(2) = sci(y) + sum(2)

​

        if eng(y) > maximum(0) then

            maximum(0) = eng(y)

        end if

​

        if eng(y) < minimum(0) then

            minimum(0) = eng(y)

        end if

        if math(y) > maximum(1) then

            maximum(1) = math(y)

        end if

​

        if math(y) < minimum(1) then

            minimum(1) = math(y)

        end if

​

        if sci(y) > maximum(2) then

            maximum(2) = sci(y)

        end if

​

        if sci(y) < minimum(2) then

            minimum(2) = sci(y)

        end if

    next

​

    average(0) = sum(0) / studentnum

    average(1) = sum(1) / studentnum

    average(2) = sum(2) / studentnum

end sub

​

'________________________________________________________________________________________________________________________________________________________________________

​

Public Sub Display()

    Dim y as integer

​

    Console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", "ID", "English", "Math", "Science") 'displaying the titles

    Console.writeline("--------------------------------------------")

​

    For i = 0 to studentnum - 1 'displaying all of the data entered

    Console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", id(y), eng(y), math(y), sci(y))

    Next

​

    Console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", "Average", average(0), average(1), average(2)) 'displaying average, maximum and minimum

    Console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", "Max", maximum(0), maximum(1), maximum(2))

    Console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", "Min", minimum(0), minimum(1), minimum(2))

end sub

​

'_________________________________________________________________________________________________________________________________________________________________________

​

Sub Search()

    Dim IDsearch as string

    Dim inputerror as boolean = false

    Dim IDfound as boolean = false

    Dim y, data as integer

    Dim TheEnd as boolean = false

    Dim repeat as string

    Dim finished as boolean

​

    Do 'loops until user decides not to search anymore

        Console.writeline("Please input the ID of the student who's data you would like to see.")

        IDsearch = Console.readline()

        if IDsearch.length <> 5  then 'checks if the user hasn't inputted five digits

            inputerror = true

            Console.writeline("ID invalid. Please input a five digit ID.")

        end if

​

        IDfound = false

​

        if inputerror = false

            For i = 0 to studentnum - 1

                if IDsearch = ID(y)

                    IDfound = true

                    data = y

                end if

            Next

            if IDfound = false

                console.writeline("We're unable to find data under ID: " & IDsearch & "Please retry")

​

            else if IDfound = true

                console.writeline("Here's what we found:")

                console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", "ID", "English", "Math", "Science")

                console.writeline("--------------------------------------------")

                console.writeline("{0,-8}{1,-13}{2,-10}{3,-13}", ID(data), eng(data), math(data), sci(data))

                do

            console.writeline("Would you like to see another student's data? Please input either YES or NO")

                    repeat = console.readline()

                    Select case repeat.toupper

                        case "Yes"

                            finished = true

                            TheEnd = false

                        case "No"

                            finished = true

                            TheEnd = true

                        case else

                            Console.writeline("You didn't input yes or no.")

                            finished = false

                        End Select

                    Loop until finished = true

                End if

            End if

        Loop until TheEnd = true

    End sub

​

End Module