Imports System

Public Module Module1

​

    Public Sub Main() 

        Dim NoOfStudents As Decimal = 10

        Dim StudentAges(NoOfStudents) as Decimal

        Dim StudentHouses(NoOfStudents) as String

        Dim ReactionTimes(NoOfStudents) as Decimal

        Dim Count(2) As Decimal

        Dim ReactionCount(2) As Decimal

        Dim Temp(2) As String

                StudentAges(1) = 15

        StudentAges(2) = 15

        StudentAges(3) = 15

        StudentAges(4) = 15

        StudentAges(5) = 15

        StudentAges(6) = 15

        StudentAges(7) = 15

        StudentAges(8) = 15

        StudentAges(9) = 15

        StudentAges(10) = 15

​

        StudentHouses(1) = "Mars"

        StudentHouses(2) = "Saturn"

        StudentHouses(3) ="Saturn"

        StudentHouses(4) = "Saturn"

        StudentHouses(5) ="Saturn"

        StudentHouses(6) ="Mars"

        StudentHouses(7) ="Mars"

        StudentHouses(8) = "Mars"

        StudentHouses(9) ="Mars"

        StudentHouses(10) ="Mars"

​

        ReactionTimes(1) =1.1

        ReactionTimes(2) =1.5

        ReactionTimes(3) =1.3

        ReactionTimes(4) = 1.4

        ReactionTimes(5) =1.6

        ReactionTimes(6) =1.8

        ReactionTimes(7) =1.6

        ReactionTimes(8) = 2.5

        ReactionTimes(9) =2.1

        ReactionTimes(10) =0.95

        For i = 1 To NoOfStudents

            Dim j As Integer

            Do While j = 0

                Console.WriteLine("Input Student Age:")

                'Temp(1) = Console.ReadLine()

                If StudentAges(i) <= 16 and StudentAges(i) >= 12 Then

                    'StudentAges(i) = Temp(1)

                    j = j + 1

                Else

                    Console.WriteLine("input error")

                End If

            Loop

        j = 0

            Do While j = 0

                Console.WriteLine("Input Student House:")

                'Temp(1) = Console.ReadLine()

            if StudentHouses(i) = "Saturn" or StudentHouses(i) = "Mars" then

                'StudentHouses(i) = Temp(1)

                    if StudentHouses(i) = "Saturn"

                    Count(1) = Count(1) + 1

                    else

                    Count(2) = Count(2) + 1

                    end if

                    j = j + 1

                else

                Console.WriteLine("input error")

                    end if

            Loop

        j=0

        Do While j = 0

            Console.WriteLine("Input Student Reaction Time:")

                'Temp(1) = Console.ReadLine()

            if ReactionTimes(i)>0.0001 then

                'ReactionTimes(i) = Temp(1)

                if StudentHouses(i) = "Saturn"

                    ReactionCount(1) = ReactionCount(1) + ReactionTimes(i)

                else

                    ReactionCount(2) = ReactionCount(2) + ReactionTimes(i)

                end if

                j=j+1

                Else

                    Console.WriteLine("input error")

            End If

        Loop    

        Next

​

        Console.WriteLine("Average Reaction Time Mars: " & ReactionCount(1) / Count(1))

        Console.WriteLine("Average Reaction Time Saturn: " & ReactionCount(2) / Count(2))

        Console.WriteLine("INPUT SEARCH CRITERIA: House")

        'Temp(1) = Console.ReadLine()

    Temp(1) = "Saturn"

        Console.WriteLine("INPUT SEARCH CRITERIA: Student Age")

        'Temp(2) = Console.ReadLine()

    Temp(2) = "15"

        dim TempArr(650) As Decimal

        dim LowestReac As Decimal

        dim AvgCount As Decimal

        dim AvgTotal As Decimal

        For i = 1 To NoOfStudents

            if StudentHouses(i) = Temp(1) and StudentAges(i) = Temp(2) then

                TempArr(i) = ReactionTimes(i)

                AvgTotal = AvgTotal + ReactionTimes(i)

                AvgCount = AvgCount + 1

        'Console.WriteLine(TempArr(i)) 'REMOVE THIS, THIS IS TEST CODE'

                If TempArr(i) > LowestReac Then

                    LowestReac = ReactionTimes(i)

                End If

            end if

        Next

​

'AvgTotal=1

Temp(1) = AvgTotal/AvgCount

​

Console.WriteLine("Average reaction time derived from input critera: " & Temp(1))

Console.WriteLine("Slowest reaction time derived from input critera: " & LowestReac)

    End Sub

End Module

​