Module Module1

​

    Sub Main()

        Dim studentN As Integer = 10

        Dim tempvalid As Integer

        Dim houses() As String = {"Saturn", "Mars"}

        Dim age(studentN - 1) As Integer

        Dim house(studentN - 1) As String

        Dim rtime(studentN - 1) As Decimal

​

        For i = 1 To studentN

reject:

            Console.WriteLine("Input Student #" & i & "'s age")

            tempvalid = Console.ReadLine()

            If tempvalid >= 12 And tempvalid <= 14 Then

                age(i) = tempvalid

            Else

                Console.WriteLine("INVALID INPUT: Student age must be between 12 and 14 years")

                GoTo reject

            End If

        Next

    End Sub

​

End Module

​