Existen ocasiones o programas donde se exige evaluar muchas condiciones a la vez, en estos casos, o se usan una condición compuesta muy grande o se debe intentar convertir el problema a uno que se pueda resolver usando la instrucción SELECT CASE.
Esta instrucción, es una instrucción de decisión múltiple, donde el compilador prueba o busca el valor contenido en una variable contra una lista de constantes, cuando el computador encuentra el valor de igualdad entre variable y constante, entonces ejecuta el grupo de instrucciones asociados a dicha constante, si no encuentra el valor de igualdad entre variable y constante, entonces ejecuta un grupo de instrucciones asociados a un default, aunque este ultimo es opcional.
*El formato de esta instrucción es el siguiente:
capturar o asignar variable de condición;
Select Case variableopcion
case const1 instrucción(es)
case const2 instrucción(es)
case const3 Instrucción(es)
…
Case Else instrucción(es);
End Select
Ejemplo Básico:
Private Sub Command1_Click()
Select
case text1.text
Case “a”
MsgBox
“PUMA”
Case “b”
MsgBox
“ADIDAS”Case Else
MsgBox “No existe”
End Select
End Sub
Es un caso de una rutina que dice que
cuando en el text1 se le aplica el caso A aparecer una caja de text
que diga "PUMA". Y si es el caso B, aparecerá la palabra "ADIDAS".
Video de muestra:
