Imports System

Public Module Module1

​

    Public Sub Main()

        Dim age As integer

        Console.Write("Please enter age: ")

        age = Console.ReadLine

        Select Case age

        Case "0" To "4"

                Console.WriteLine("below school age")

        Case "5" To "9"

                Console.WriteLine("primary school")

        Case "10" To "13"

                Console.WriteLine("middle school")

        Case "14" To "16"

                Console.WriteLine("high school")

        Case "17" To "64"

                Console.WriteLine("working age")

        Case else

                Console.WriteLine("retired")

        End select

    End Sub

End Module