Imports System

Imports Microsoft.VisualBasic

Public Module Module1

 Dim size = 5

    Dim name(size) As String

    Dim house(size) As Integer

    Dim age(size) As Decimal

    Dim reactime(size) As Decimal

​

    Sub Main()

        'write any cooments questions here

​

        Dim student(size) As String

​

        For i = 1 To 5

            Console.WriteLine("Please insert student's house.(Saturn = 1, Mars = 2.")

            house(i) = Console.ReadLine

​

            If house(i) = 1 Then

                Console.WriteLine("Please insert student's name.")

                name(i) = Console.ReadLine

                Console.WriteLine("Please insert student's age.")

                age(i) = Console.ReadLine

                Console.WriteLine("Please insert student's reaction time.")

                reactime(i) = Console.ReadLine

​

                'student(i) = (house(i) name(i) age(i) reactime(i))

            ElseIf house(i) = 2 Then

                Console.WriteLine("Please insert student's name.")

                name(i) = Console.ReadLine

                Console.WriteLine("Please insert student's age.")

                age(i) = Console.ReadLine

                Console.WriteLine("Please insert student's reaction time.")

                reactime(i) = Console.ReadLine

​

                student(i) = house(i) / name(i) / age(i) / reactime(i)

            End If

​

        Next

​

​

        Console.ReadKey()

    End Sub

​

End Module