Imports System

​

Public Module Module1

    'variables are dimmed as global'

    dim id as integer

​

    dim english(99999) as string

​

    dim math(99999) as string

​

    dim science(99999) as string

​

    dim temp(3) as string

​

    dim count(99999) as string

​

    dim English2(99999) as integer

​

    dim Math2(99999) as integer

​

    dim Science2(99999) as integer

​

    dim Eaverage as integer

​

    dim Maverage as integer

​

    dim Saverage as integer

​

    dim re as integer = console.readline() - 1

    dim inputs(re) as integer

​

​

    Public Sub Main()

        validation()

        display

        search

    end sub

​

    public sub validation()

        'Starts the sequence of validation by going through each array location base on the repeat'

        for i = 0 to re

            console.writeline("Enter student id, English, Math, Science")

            dim sln as string = console.readline()

            temp = sln.split(" ")

            if temp(0) > 99999 or temp(0) < 10000

                console.writeline("Re-enter Student ID")

                temp(0) = console.readline()

            end if

​

            while temp(1) > 100

                console.writeline("Re-enter English")

                temp(1) = console.readline()

            end while

​

            while temp(2) > 100

                console.writeline("Re-enter Math")

                temp(2) = console.readline()

            end while

​

            while temp(3) > 100

                console.writeline("Re-enter Science")

                temp(3) = console.readline()

            end while

​

            if temp(1) < 20 then

                temp(1) = 20

            end if

​

            if temp(2) < 20

                temp(2) = 20

            end if

​

            if temp(3) < 20 then

                temp(3) = 20

            end if

        'Transfers the data in the variable based on the student's id'

            count(i) = temp(0)

            english(temp(0)) = temp(1)

            math(temp(0)) = temp(2)

            science(temp(0)) = temp(3)

        next

    end sub

​

    public sub display()

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

        for j = 0 to re

            Console.WriteLine("{0, -20}{1,-10}{2,8}{3,17}", count(j), english(count(j)), math(count(j)), science(count(j)))

        next

'Convertion from string to integer'

        for i = 0 to re

            English2(i) =(english(count(i)))

            Math2(i) =(math(count(i)))

            Science2(i) =(science(count(i)))

        next

'After converted, the average is calculated'

        console.writeline()

        eaverage =(english2(re) + english2(re - 1)) / inputs.Length

        maverage =(Math2(re) + Math2(re - 1)) / inputs.Length

        saverage =(Science2(re) + Science2(re - 1))/inputs.Length

        console.writeline("{0, -20}{1,-10}{2,8}{3,17}", "Average", Eaverage, Maverage, Saverage)

        console.writeline()

    end sub

​

    public sub search()

        console.writeline("Enter the student's id")

        id = console.readline()

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

        Console.WriteLine("{0, -20}{1,-10}{2,8}{3,17}", id, english(id), math(id), science(id))

    End Sub

End Module

​