Imports System

​

Public Module Module1

dim re as integer

    dim temp(3) as string

​

    dim english(re) as string

​

    dim math(re) as string

​

    dim science(re) as string

​

    dim id as integer

​

    dim Ids(99999) as integer

​

    dim count(99999) as string

​

    dim input as integer = 1

​

    dim Eaverage as decimal

​

    dim Maverage as decimal

​

    dim Saverage as decimal

​

    Public Sub Main()

    Console.writeline("Enter the number of repeats")

    re = console.readline() - 1

        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

​

            count(i) = temp(0)

            ids(temp(0)) = temp(0)

        english(i) = temp(1)

        math(i) = temp(2)

        science(i) = temp(3)

        next

​

        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

​

        dim ja as integer = 0

​

        dim inputs(input) as integer

        eaverage =(english(ja) + english(ja + 1)) / inputs.Length

        maverage =(Math(ja) + Math(ja + 1)) / inputs.Length

        saverage =(Science(ja) + Science(ja + 1)) / inputs.Length

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

    End Sub

End Module

​