Permite obtener condicionalmente valores específicos de varias comparaciones. Hay dos tipos de instrucciones CASE:
- Una instrucción CASE simple que compara una expresión con un conjunto de expresiones simples para devolver valores específicos.
- Una instrucción CASE buscada que evalúa un conjunto de expresiones booleanas para devolver valores específicos.
Sintaxis
Simple Case Statement CASE [input_expression] WHEN when_expression THEN when_true_result_expression [...n] [ELSE else_result_expression] END Search Case Statement CASE WHEN Boolean_expression THEN when_true_result_expression [...n] [ELSE else_result_expression] END
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
No hay comentarios.:
Publicar un comentario