Estructura CASE

Con la estructura de control CASE podemos evaluar una variable y realizar acciones dependiendo del valor de esta. La diferencia con el IF consiste en que el número de posibilidades de la evaluación de esta variable no tiene por que ser si o no, pudiendo hacer cosas para un número indeterminado de valores.

La sintaxis es la siguiente:

SELECT CASE (variable)     CASE (valor1):                    (acción para caso valor1)     CASE (valor3):                    (acción para caso valor2)     CASE (valor3):                    (acción para caso valor3)     CASE ELSE:                    (accion en caso de que no se cumpla ningun anterior caso) END SELECT

Funciona asi, primero se evalua la variable, si esa variable tiene como valor el valor1 realizamos las acciones asociadas al valor1. Si tiene el valor2, ejecutamos las acciones relacionadas con este valor3. Así con cuantos valores deseemos. Por último tenemos un ELSE para realizar acciones en caso de que no hubiesen sido ninguno de los valores anteriores. Este ELSE es opcional.

Veamos con un ejemplo esta sentencia muy sencillito. Lo primero que hace es solicitar un número y luego informa del día de la semana con el que corresponde. Si el número no es del uno al siete informa de ello también.

dim dia dia = inputbox ("dime un dia de la semana") SELECT CASE dia CASE 1:    msgbox("El dia es LUNES") CASE 2:    msgbox("El dia es MARTES") CASE 3:    msgbox("El dia es MIERCOLES") CASE 4:    msgbox("El dia es JUEVES") CASE 5:    msgbox("El dia es VIERNES") CASE 6:    msgbox("El dia es SABADO") CASE 7:    msgbox("El dia es DOMINGO") CASE ELSE:    msgbox("Tiene que ser un dia de la semana en número, del 1 al 7") END SELECT

Este script se puede ver en funcionamiento.