Imports System

​

Public Module Module1

​

    dim num1() as string

​

    dim stu as integer

​

    dim parts as string()

​

    dim x as integer

​

    dim max1 as integer = 0

​

    dim max2 as integer = 0

​

    dim max3 as integer = 0

​

    dim min1 as integer = 101

​

    dim min2 as integer = 101

​

    dim min3 as integer = 101

​

    dim sum1 as integer = 0

​

    dim sum2 as integer = 0

​

    dim sum3 as integer = 0

​

    dim ave1 as integer

​

    dim ave2 as integer

​

    dim ave3 as integer

​

    Public Sub Main()

        console.WriteLine("how many results will be entered?")

        stu = console.readline()

        redim num1(stu)

        for x = 1 to stu

            console.WriteLine("please enter your data")

            num1(stu - x) = console.ReadLine()

            parts = num1(stu - x).split(",")

            dim digits as integer

            digits = parts(0).length

            while parts(1) > 100 or parts(2) > 100 or parts(3) > 100 or digits > 5 or digits < 5

                console.WriteLine("please enter valid data")

                num1(stu - x) = console.ReadLine()

                parts = num1(stu - x).split(",")

                digits = parts(0).length

            end while

​

            if parts(1) < 20 then

                console.WriteLine("value cannot be under 20, your data is being evaluated as 20")

                parts(1) = 20

            end if

​

            if parts(2) < 20 then

                console.WriteLine("value cannot be under 20, your data is being evaluated as 20")

                parts(2) = 20

            end if

​

            if parts(3) < 20 then

                console.WriteLine("value cannot be under 20, your data is being evaluated as 20")

                parts(3) = 20

            end if

​

            sum1 = parts(1) + sum1

            sum2 = parts(2) + sum2

            sum3 = parts(3) + sum3

            ave1 = sum1 / stu

            ave2 = sum2 / stu

            ave3 = sum3 / stu

            if parts(1) > max1 then

                max1 = parts(1)

            end if

​

            if parts(2) > max2 then

                max2 = parts(2)

            end if

​

            if parts(3) > max3 then

                max3 = parts(3)

            end if

​

            if parts(1) < min1 then

                min1 = parts(1)

            end if

​

            if parts(2) < min2 then

                min2 = parts(2)

            end if

​

            if parts(3) < min3 then

                min3 = parts(3)

            end if

​

            display(num1)

        next

    End Sub

​

    public sub display(num() as string)

        Console.WriteLine("{0,-8}{1,-10}{2,-8}{3,-8} ", parts(0), parts(1), parts(2), parts(3))

        Console.WriteLine("{0,-8}{1,-10}{2,-8}{3,-8} ", "ID", "English", "Maths", "Science")

        for x = 1 to stu

            Console.WriteLine("{0,-8}{1,-10}{2,-8}{3,-8} ", parts(0), parts(1), parts(2), parts(3))

        next

​

        Console.WriteLine("{0,-8}{1,-10}{2,-8}{3,-8} ", "max", max1, max2, max3)

        Console.WriteLine("{0,-8}{1,-10}{2,-8}{3,-8} ", "min", min1, min2, min3)

        Console.WriteLine("{0,-8}{1,-10}{2,-8}{3,-8} ", "ave", ave1, ave2, ave3)

    end sub

End Module

​