INGRESO DE DATOS PREDICTIVO

DISEÑO FINALIZADO

VISTA DEL DISEÑO

PROGRAMACION..

Option Explicit
Dim a  As Integer



Private Sub cmdConsultar_Click()
a = Val(Me.txtEdad.Text)

If a <= 5 And a >= 3 Then
Me.txtRespuesta.Text = "periodo de la niñez temprana o preescolar"
Else
If a <= 10 And a >= 6 Then
Me.txtRespuesta.Text = "periodo de la niñez intermedia o escolar"
Else
If a <= 17 And a >= 11 Then
Me.txtRespuesta.Text = "periodo de la adolescencia"
Else
If a <= 34 And a >= 18 Then
Me.txtRespuesta.Text = "periodo de la juventud"
Else
If a <= 35 And a >= 49 Then
Me.txtRespuesta.Text = "periodo de la madurez"
Else
If a >= 50 Then
Me.txtRespuesta.Text = "periodo de la adultez"
End If
End If
End If
End If
End If
End If
End Sub