Imports System

Public Module Module1

    Public Sub Main()

        Dim Sage(64) as integer 

        Dim Shouse(64) as string

        Dim SRtime(64) as integer 

        Dim slow

        For i = 0 to 65

        line1:

        Console.WriteLine("Enter your age in years")

        Sage(i) = console.ReadLine()

        slow = 10000 

        If Sage(i) > 16

            Console.WriteLine("Invalid, please try again.")

            goto line1

        Else if Sage(i) < 12

                Console.WriteLine("Invalid, please try again.")

                goto line1

            End if 

            line2:

            Console.WriteLine("Now enter the house you belong in")

            Shouse(i) = console.ReadLine()

            'Validation statements 

            If Shouse(i) <> "Saturn" 

                console.writeline("Invalid, please try again.")

                goto line2

                End if 

                line3:

                Console.WriteLine("Finally, enter your reaction time in ms")

                SRtime(i) = console.ReadLine()

            'Validation statements 

                If SRtime(i) > 2000 

                console.writeline("Invalid, please try again.")

                goto line2

                Else if SRtime(i) < 100 

                    console.writeline("Invalid, please try again.")

                End if

                    if SRtime(i) > slow

                        slow = SRtime(i)    

                    end if 

                Console.writeline("Next student.")

            next 

                dim TSRtime 

                dim TSage

                TSRtime = 0 

                TSage = 0 

            for i = 0 to 64

                TSRtime += SRtime(i)

                TSage += Sage(i)

            next    

            Console.writeline("The average reaction time of the students is" & TSRtime/65 & "ms. While the slowest reaction time is" & slow & "ms.")

        End sub 

End Module