SELECT CASE

INSTRUCCIÓN SELECT CASE

---

También 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

Private Sub Command1_Click()
Dim a As Integer
Dim b As String
Select Case List1.ListIndex
   Case 0
      a = 100
   Case 1
      a = 200
   Case 2
      a = 300
   Case 3
      a = 400
   Case 4
     a=500
End Select
 
  If Option1.Value = True Then
      a = a * 1.21
  End If
  Label1 = a
 
End Sub

Private Sub Form_Load()
List1.AddItem "Radio"
List1.AddItem "TV"
List1.AddItem "Cocina"
List1.AddItem "DVD"
List1.AddItem "PC"

End Sub