Imports System

Public Module Module1

    Public Sub Main()

        'Add a const so if more students join...

        Dim students as Integer = 5

        Dim studentCount as Integer = 0

        Dim ageStudent(students), houseStudent(students), rtStudent(students) as Integer

        Dim marsStudents, saturnStudents as Integer

        Dim saturnAvg, marsAvg as Integer

        Dim saturnSlowestTime, marsSlowestTime, slowestTime as Integer

        While not studentCount = students - 3

            Do

                Console.WriteLine("How old are you (12-16)")

                ageStudent(studentCount) = Console.ReadLine()

            Loop Until(ageStudent(studentCount) >= 12 and ageStudent(studentCount) <= 16)

​

            Do

                Console.WriteLine("What house are you in? 1: Saturn, 2: Mars")

                houseStudent(studentCount) = Console.ReadLine()

                If houseStudent(studentCount) = 1           

                    Do

                        Console.WriteLine("What is your reaction time? For saturn students")

                        rtStudent(studentCount) = Console.ReadLine()

                        saturnAvg += rtStudent(studentCount)

                    Loop Until(rtStudent(studentCount) >= 0 and rtStudent(studentCount) <= 999)

                    saturnStudents += 1     

                Else If houseStudent(StudentCount) = 2

                    Do

                        Console.WriteLine("What is your reaction time? For mars students")

                        rtStudent(studentCount) = Console.ReadLine()

                        marsAvg += rtStudent(studentCount)

                    Loop Until(rtStudent(studentCount) >= 0 and rtStudent(studentCount) <= 999)

                    marsStudents += 1

                End If

            Loop Until(houseStudent(studentCount) >= 1 and houseStudent(studentCount) <= 2)

            studentCount = studentCount + 1

​

        End While

        saturnAvg = saturnAvg / saturnStudents

        marsAvg = marsAvg / marsStudents

        If saturnSlowestTime < marsSlowestTime

            slowestTime = saturnSlowestTime

        Else If marsSlowestTime < saturnSlowestTime

            slowesttime = marsSlowestTime   

        End If

        Console.WriteLine("Average reaction time for saturn students: " & saturnAvg)

        Console.WriteLine("Average reaction time for mars students: " & marsAvg)

    End Sub

End Module

​

​