Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim result(9) as decimal

        dim name(9) as string

        dim avgresult as decimal

        dim highestresult as decimal

        dim x as string

        dim y as string

        dim z as string

        dim q as string

        highestresult = 0

        x = 0

        z=0

        y = "."

        q = "."

        For i as integer = 0 to 9

            Console.WriteLine("Please enter a result of a student (%)")

            result(i) = Console.ReadLine()

            Console.Writeline("Please enter the name of the student")

            name(i) = Console.ReadLine()

            avgresult = avgresult + result(i)

            If result(i) > highestresult then

                highestresult = Result(i)

            End if

​

            If result(i) > x then

                x = result(i)

                y = name(i)

            End if

​

            If result(x) < result(i) then

                z = result(i)

                q = name(i)

            End if

        Next

​

        Console.WriteLine("Average result for the test: " & avgresult / 10 & "%")

        Console.Writeline("Highest result for the test: " & x & " % " & "The student who got the highest result: " & y)

        Console.Writeline("Lowest result for the test: " & z & " % " & "The student who got the lowest result: " & q)

    End Sub

End Module

​