Controles visual basic 6

Sentencia CASE en VBScript, con ejemplos sobre su funcionamiento.

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 qué ser sí o no, pudiendo hacer cosas para un número indeterminado de valores.

La sintaxis es lasiguiente:
|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 valoresdeseemos. 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.




Distintos usos de IF, con enunciados ELSE y ELSEIF.
La...