Ingreso de datos y condicionales

Asignatura: Tecnología e Informática.
Formación en valor: Sentido de pertenencia.
Núcleo Integrador: Ingreso de datos y condicionales.
Indicador de desempeño: Desarrolla preguntas para tomar decisiones.

E.C.P
¿Sabes como preguntar en Visual Basic?

IF  - ELSE – ENDIF:
Instrucción que permite evaluar una condición y devuelve un valor de verdad (Falso o Verdadero), La condición del IF si es verdadera se ejecutan las siguientes instrucciones, al ser FALSA, pasa de forma inmediata a la instrucción ELSE.

En un bloque de instrucciones IF se pueden realizar varias preguntas utilizando la instrucción ELSEIF.
Ejemplo:

IF EDAD <=2 THEN
  MSGBOX "ES UN BEBE"
ELSE IF EDAD <= 12 THEN 
  MSGBOX "ES UN NIÑO"
ELSEIF  EDAD <= 17 THEN
  MSGBOX "ES UN ADOLESCENTE"
ELSE
  MSGBOX "ES UN ADULTO"
ENDIF

Explicación del ejemplo:
1. Linea, pregunta si la edad es menor o igual a 2.
2. Linea, mensaje que muestra "ES UN BEBE", solo si la linea 1, es verdadera.
3. Línea, pregunta si la edad es menor igual a 12, solo si la instrucción de la línea 1, es falsa.
4. Línea, Mensaje que muestra "ES UN NIÑO", solo si la condición de la linea tres es verdadera.
5. Línea, pregunta si la edad es menor o igual a 7 .
6. Linea, Mensaje que muestra "ES UN ADOLESCENTE", solo si la condición de la linea Cinco es verdadera.

7. Línea, Instrucción que se ejecuta solo si ninguna de las anteriores es verdadera.

8. Línea, Indica el fin del condicional IF.

Desarrolle el siguientes diseño 

Copie y pegue el código siguiente:

Private Sub CommandButton1_Click()

  If Val(TextBox1) <= 2 Then

    MsgBox "Es un Bebe", vbInformation, "Condicionales"

  ElseIf Val(TextBox1) <= 12 Then

    MsgBox "Es un Niño", vbInformation, "Condicionales"

  ElseIf Val(TextBox1) <= 17 Then

    MsgBox "Es un Adolescente", vbInformation, "Condicionales"

  Else

    MsgBox "Es un Adulto", vbInformation, "Condicionales"

  End If

End Sub

Ejecute el programa con F5, introduzca los datos siguientes y de aceptar por cada numero, 1, 5, 14 y 20.

Realice la siguiente actividad:

Después de probar el programa anterior, borre los el código y pegue el siguiente y realice las mismas pruebas.

  Select Case Val(TextBox1)
    Case Is <= 2
      MsgBox "Es un Bebe", vbInformation, "Condicionales"
    Case Is <= 12
      MsgBox "Es un Niño", vbInformation, "Condicionales"
    Case Is <= 17
      MsgBox "Es un Adolescente", vbInformation, "Condicionales"
    Case Else
      MsgBox "Es un Adulto", vbInformation, "Condicionales"
  End Select

Realice comentarios al respecto.

Otra forma de utilizar el Select Case

 Select Case Val(TextBox1)

    Case Is <= 2

      MsgBox "Es un Bebe", vbInformation, "Condicionales"

    Case 3 To 12

      MsgBox "Es un Niño", vbInformation, "Condicionales"

    Case 13 to 17

      MsgBox "Es un Adolescente", vbInformation, "Condicionales"

    Case Else

      MsgBox "Es un Adulto", vbInformation, "Condicionales"

  End Select