atribuição de salas (select case), Visual Basic

atribuição de salas (select case)

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions

Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)
            'Your code goes here
              dim idade as integer=17
            'processo
              select case idade
              case 0 to 2
                  Console.writeline("Sala Berçário")
              case 3
                  console.writeline("Sala Bebés Azul")
              case 4,5
                  console.writeline("Sala Pré-Escola")
              case 6 to 10 
                  console.writeline("Sala 1º Ciclo")
              case 11,12,13,15
                  console.writeline("Sala 2º Ciclo")
              case >15,<18
                  console.writeline("Sala 3º Ciclo")
              case>18
                  console.writeline("Sala Universidade")
              end select
        End Sub
    End Module
End Namespace


run \| edit \| history \| help	0