Ejercicios de Visual Basic 13

REALIZAR UN PROGRAMA QUE ME PERMITA INGRESAR UNA EDAD Y QUE RESPONDA A QUE GRUPO PERTENECE

EN EL PROGRAMA VISUALIZAMOS ASI

2. Colocamos el siguiente codigo 

Option Explicit

Dim edad As Integer

Dim resultado As String

Private Sub cmdConsultar_Click()

edad = Val(Me.txtEdad.Text)

If edad >= 3 And edad <= 5 Then

Me.txtResultado.Text = " Niñez temprana o Preescolar"

Else

If edad >= 6 And edad <= 10 Then

Me.txtResultado.Text = "Niñez intermedia o Escolar"

Else

If edad >= 11 And edad <= 17 Then

Me.txtResultado.Text = "Adolescencia"

Else

If edad >= 18 And edad <= 34 Then

Me.txtResultado.Text = "Juventud"

Else

If edad >= 35 And edad <= 49 Then

Me.txtResultado.Text = "Madurez"

Else

If edad <= 50 Then

Me.txtResultado.Text = "adultez"

End If

End If

End If

End If

End If

End If

End Sub

Private Sub cmdLimpiar_Click()

Me.txtEdad.Text = ""

Me.txtResultado = ""

End Sub

EN EL PROGRAMA VISUALIZAMOS ASI

UNA VEZ TERMINADO PONEMOS EJECUTAR

Y  de este modo hemos terminado con este ejercicio