Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim nAge(10) as integer

        dim nReactionStn(4) as decimal

        dim nReactionMrs(4) as decimal

        dim nhouse as string

        dim avStn as decimal

        dim avMrs as decimal

        dim smallest as decimal

        dim largest as decimal

        for i = 0 to 4

        console.writeline("Enter what house you in")

            do

                nhouse = console.readline()

            loop until(nhouse = "saturn") or (nhouse = "mars")

​

            if(nhouse = "saturn")

                console.writeline("enter your reaction time")

                nReactionStn(i) = console.readline()

            else if(nhouse = "mars")

                console.writeline("enter your reaction time")

                nReactionMrs(i) = console.readline()

            end if

​

            do

                console.writeline("Enter your age (in whole years) ")

                nAge(i) = console.readline()

            loop until(nAge(i) > 11) and (nAge(i) < 17)

        next

​

        for i = 0 to 4

            avStn = avStn + nReactionStn(i)

        next

​

        for i = 0 to 4

            avMrs = avMrs + nReactionMrs(i)

        next

​

        console.writeline("Average reaction time for saturn:" & (avStn / 4) & " seconds")

        console.writeline("Average reaction time for Mars:" & (avMrs / 4) & " seconds")

        for i = 0 to 4

            if i = 0

                smallest = nReactionMrs(i)

            elseif nReactionMrs(i) < smallest

                smallest = nReactionMrs(i)

            end if

        next

​

        for i = 0 to 4

            if i = 0

                largest = nReactionMrs(i)

            elseif nReactionMrs(i) < largest

                largest = nReactionMrs(i)

            end if

        next

​

        console.writeline("Shortest reaction time =" & smallest)

        console.writeline("Longest reaction time =" & largest)

    End Sub

End Module

​