Imports System

​

Public Module Module1

​

    'Declare all global variables

    Dim i as integer

    Dim student_number as integer

    Dim ID_all(100) as string

    Dim English(100), Maths(100), Science(100), max(2), min(2), sum(2), avg(2) as integer

    Public Sub Main()

​

        EnteringStudent_Data()

​

        CalculatingStats()

​

        DisplayData()

    End sub

​

    '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    Sub EnteringStudent_Data()

        'Declare the varibles used in EnteringStudentData()

        Dim input_data as string

        Dim repeat as integer

        Dim student_data() as string

        Dim no_studentVALID, data_error as boolean

        Do

            no_studentVALID = true

            Console.writeline("How many students are in the class?")

            'Checks if the user accidentally inputs a void, symbol or letter

            try

                student_number = Console.readline()

            catch ex as exception

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

                    Console.write("")

                else

                    Console.writeline("sorry but you may have inputted a symbol, letter or void. Please re-do.")

                    no_studentVALID = false

                End if

​

            End Try

        loop until no_studentVALID = true

​

        'This for statement makes sure that all students are accounted for

        For repeat = 1 to student_number

        do

                data_error = false

                Console.writeline("Input the student's data. Student #  " & repeat)

                input_data = Console.readline()

                student_data = input_data.split(",") 'Splits the data by finding "," into different indexs in array input_data()

                try

                    student_data(1) = Convert.ToInt32(student_data(1))

                    student_data(2) = Convert.ToInt32(student_data(2))

                    student_data(3) = Convert.ToInt32(student_data(3))

                catch ex as exception

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

                        Console.writeline("")

                    else

                        Console.writeline("Sorry but you may have inputed a symbol, letter or void when inputting the results for maths, english and science. Please try again.")

                        data_error = true

                    end if

​

                end try

                'Checks if user puts in exactly 4 csv values

                If student_data.GetLength(0) <> 4

                    data_error = true

                Console.writeline("Sorry but you have added too much or little csv value. Re-do")

                End if

                If student_data(0).length <> 5 then

                Console.writeline("Sorry but you have inputted an ID that is more or less than 5 characters. Re-do")

                    data_error = true

                End if

            'Checks if results are greater than 100

                try

                    If student_data(1) > 100 or student_data(2) > 100 or student_data(3) > 100 then

                        data_error = true

                        Console.writeline("Sorry but you have inputted a result greater than 100. Please try again")

                    End if

                'Checks for Duplicates

                If repeat > 1

                    For i = 0 to repeat - 1

                        If student_data(0) = ID_all(i)

                            Console.writeline("Sorry but you have inputted a duplicate. Please try again.")

                            data_error = true

                        End if

                    Next

                End if

​

                    'Data is then met to the criteria that nothing is under 20

                    If student_data(1) < 20 then

                        student_data(1) = 20

                    End if

​

                    If student_data(2) < 20 then

                        student_data(2) = 20

                    End if

​

                    If student_data(3) < 20 then

                        student_data(3) = 20

                    End if              

                catch ex as exception

                data_error = true

                end try

            Loop until data_error = false

​

            'Finally designate the data into their corresponding array

            ID_all(repeat - 1) = student_data(0)

            English(repeat - 1) = student_data(1)

            Maths(repeat - 1) = student_data(2)

            Science(repeat - 1) = student_data(3)

        Next

End sub

'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

​

    Sub CalculatingStats()

        Dim i as integer

        max(0) = 0

        max(1) = 0

        max(2) = 0

        min(0) = 100

        min(1) = 100

        min(2) = 100

        'Loops so every student is accounted for

        For i = 0 to student_number - 1

            'Calculates the sum of English, Maths and Science results

            sum(0) = English(i) + sum(0)

            sum(1) = Maths(i) + sum(1)

            sum(2) = Science(i) + sum(2)

            'Calculate the max and min score of the subjects

            If English(i) > max(0)

                max(0) = English(i)

            End if

​

            If English(i) < min(0)

                min(0) = English(i)

            End if

​

            If Maths(i) > max(1)

                max(1) = Maths(i)

            End if

​

            If Maths(i) < min(1)

                min(1) = Maths(i)

            End if

​

            If Science(i) > max(2)

                max(2) = Science(i)

            End if

​

            If Science(i) < min(2)

                min(2) = Science(i)

            End if

        Next

        avg(0) = sum(0) / student_number 

        avg(1) = sum(1) / student_number 

        avg(2) = sum(2) / student_number 

    End Sub

​

'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

​

    Sub DisplayData()

    Dim i as integer

​

​

        Console.writeline("{0,-15}{1,-20}{2,-20}{3,-20}","ID","English","Math","Science")

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

​

        For i = 0 to student_number - 1

        Console.writeline("{0,-15}{1,-20}{2,-20}{3,-20}",ID_all(i),English(i),Maths(i),Science(i))

        Next

        Console.writeline("{0,-15}{1,-20}{2,-20}{3,-20}","Average",avg(0),avg(1),avg(2))

        Console.writeline("{0,-15}{1,-20}{2,-20}{3,-20}","Max",max(0),max(1),max(2))

        Console.writeline("{0,-15}{1,-20}{2,-20}{3,-20}","Min",min(0),min(1),min(2))

        End sub

​

End Module