Imports System

Public Module Module1

    Public Sub Main()

        Call T1() 

    End Sub

    Public Sub T1()

        Dim Mean as decimal = 0

        Dim TestResult as string = ""

        Dim HighestScore as Decimal = 0

        Dim LowerestScore as Decimal = 0

        Dim HighestResult as string = ""

        Dim LowerestResult as string = ""

        Dim S1 as string = ""

        Dim Score(10) as decimal

        Dim Name(10) as string

        Dim N1 as integer = 0

        For i = 1 to 10

            Do until Score(i) >= 25 And Score(i) <= 100

                Console.Writeline("Please enter a test result and the student's name e.g.(Bobby Boba:25.5)")

                TestResult = Console.Readline()

                for a = 0 to TestResult.length - 1

                    S1 = TestResult.SubString(a,1)

                    if S1 = ":" then

                        N1 = a

                    end if

                next

                S1 = TestResult.SubString(0,N1)

                'To locate the name in the string'

                Name(i) = S1

                console.writeline(Name(i))

                S1 = TestResult.Substring(N1 + 1)

                'To locate the score in the string'

                Score(i) = S1

                console.writeline(Score(i))

            loop

            If i = 1 then

                HighestScore = Score(i)

                HighestResult = Name(i)

                LowerestScore = Score(i)

                LowerestResult = Name(i)

            end if

            If Score(i) > HighestScore then

                HighestScore = Score(i)

                HighestResult = Name(i)

            end if

            If Score(i) < LowerestScore then

                LowerestScore = Score(i)

                LowerestResult = Name(i)

            end if

            Mean = Mean + Score(i)

            'Add mean with the current score'

        next

        Mean = Mean / 10

        'To find the average'

        Console.writeline("The student mean is " & Mean)

        Console.Writeline("The student with the highest mark is " & HighestResult & ":" & HighestScore)

        Console.Writeline("The student with the lowerest mark is " & LowerestResult & ":" & LowerestScore) 

        N1 = LowerestScore

        for a = 1 to 10

            for i = 1 to 10

                if Score(i) >= N1 then

                    HighestScore = Score(i)

                    N1 = Score(i)

                    Score(i) = 0

                end if

            next

            console.writeline(HighestScore)

        next

    end sub

End Module