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
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
