Make your own free website on Tripod.com
Ir a Ejercicios 4ta. parte
Volver a estructuras de control - parte I Ir al Índice
ELSEIF
Podemos usar Elseif y simplificar un poco el código, veamos como:
Private Sub Cmd1_Click()
If Txt1.Text = "7:10" Then
Print "El horario es 7:10"
ElseIf Txt1.Text = "7:20" Then
Print "El horario es 7:20"
ElseIf Txt1.Text = "7:30" Then
Print "El horario es 7:30"
Else
Print "No puedo determinar qué hora es"
End If
End Sub
Private Sub Cmd1_Click()
If Txt1.Text = "7:10" Then
Print "El horario es 7:10"
End If
If Txt1.Text = "7:20" Then
Print "El horario es 7:20"
End If
If Txt1.Text = "7:30" Then
Print "El horario es 7:30"
Else
Print "No puedo determinar qué hora es"
End If
End Sub
Estructura Select Case
La estructura Select Case nos permite evitar el uso de varios If, tal cual veremos a continuación:
Esta estructura viene a ampliar la funcionalidad de la estructura IF, evitando la escritura de If anidados.
Para entenderla veamos su sintaxis:
Veamos dos ejemplos escritos mediante IF y como lo escribiríamos mediante Select Case:
Select Case (Variable)
Case (Valor 1)
------------------
------------------
Case (Valor 2)
-----------------
-----------------
Case (Valor 3)
-----------------
-----------------
Case Else
-----------------
-----------------
End Select

Private Sub CmdMostrar_Click()
N = Val(TbN.Text)
If N = "1" Then
MsgBox ("uno")
End If
If N = "2" Then
MsgBox ("dos")
Else
MsgBox ("Nº desconocido")
End If
End Sub

Private Sub CmdMostrar_Click()
N = Val(TbN.Text)
Select Case N
Case 1
MsgBox ("1")
Case 2
MsgBox ("dos")
Case Else
MsgBox ("Nºdesconocido)
End Select
End Sub

Ejemplo:
Private Sub CmdMostrar_Click()
If TbN.Text = 1 Then
TbO.Text = "Uno"
ElseIf TbN.Text = 2 Then
TbO.Text = "Dos"
ElseIf TbN.Text = 3 Then
TbO.Text = "Tres"
Else: TbO.Text = "Nº desconocido"
End If
End Sub
Private Sub CmdMostrar_Click()
N = Val(TbN.Text)
Select Case N
Case 1
TbO.Text = "uno"
Case 2
TbO.Text = "dos"
Case 3
TbO.Text = "tres"
Case Else
TbO.Text = "Nº desconocido"
End Select
End Sub
Vamos a hacer unos ejercicios con lo aprendido
Volver arriba Ir al Índice
Volver a estructuras de control - parte I Ir a Ejercicios 4ta. parte