En estos casos, donde queremos hacer lo mismo para un grupo de valores comprendidos en un rango determinado, también podemos utilizar la cláusula “To”. El siguiente código hace exactamente lo mismo que el visto recién:

Select Case color
            Case 1 To 3
                variable1 = "Correcto"
            Case Else
                variable1 = "Error"
 End Select

Resulta evidente que su la lista de valores es larga, “To” simplifica mucho el código.
 

También podemos utilizar la cláusula “To”.

En todos los ejemplos vistos, hemos efectuado alguna acción cuando el valor de <expresión a evaluar>  es igual a un valor determinado. Pero puede darse el caso de que necesitemos hacer algo cuando la <expresión a evaluar> sea mayor, menor o diferente a un valor determinado. Para ello, debemos utilizar el operador “Is”. Literalmente, el significado, en español, de este operador es “Es”. Su uso brinda una gran flexibilidad a la <expresión a evaluar>. Veamos un ejemplo:

Select Case numero
            Case Is < 11
                variable1 = "Primera decena"
            Case Else
                variable1 = "mayor de 10"
End Select

El código anterior guardará en “Variable1” el texto "Primera decena" solo cuando el valor de “numero” sea menor a 11 (es decir, este comprendido entre 0 y 10).

El significado, en español, de este operador es “Es”.

Para terminar con “Select Case”, vamos a resolver un problema utilizando todo lo visto hasta aquí.

Supongamos por un momento que en un variable tenemos la edad de una persona, y que debemos, en función de su valor, determinar que en que tipo de establecimiento educativo se encuentra cursando sus estudios (por supuesto, los valores y tipos de establecimientos son completamente ficticios). Mira el código fuente siguiente e intenta  comprender que hace cada línea:

Dim variable1 As String
Dim edad As Integer
edad = 20

 Select Case edad
            Case 0, 1, 2
                variable1 = "No escolarizado"
            Case 3, 4, 5
                variable1 = "Preescolar"
            Case 6 To 12
                variable1 = "Escuela"
            Case 13 To 18
                variable1 = "Colegio"
            Case 19 To 25
                variable1 = "Universidad"
            Case Is > 25
                variable1 = "No escolarizado"
            Case Else
                variable1 = "¡No puede tener menos de CERO años!"
End Select

Seguramente podrás descubrir, leyendo el programa, cual es el valor de “Variable1” una vez ejecutado el código anterior, verdad?

Intenta comprender que hace cada línea.

Con esto terminamos este capitulo de nuestro pequeño curso de programación. La semana próxima comenzaremos con las sentencias capaces de hacer que una porción de nuestro código se repita la cantidad de veces que necesitemos. Mientras tanto, intenta aplicar lo aprendido para fijar los conceptos. ¡Hasta la próxima!