Hola lo qe pasa es qe tengo qe aser en programa qe compara edades asi:
0-1 bebe
2-11 niño
12-18 adolecente
18-59 adulto
60-100 adulto mayor
101-inf fosil?

pero no me qe da el codigo como debe miren:


Dim edad%
Private Sub Command1_Click()
edad = Text1.Text
If (edad > 1) Then
Label3.Caption = ("BeBe")
ElseIf (edad > 11) Then
Label3.Caption = ("NiÑo")
ElseIf (edad > 17) Then
Label3.Caption = ("Adulencente")
ElseIf (edad > 59) Then
Label3.Caption = ("Adulto")
ElseIf (edad > 100) Then
Label3.Caption = ("Adulto Mayor")
ElseIf (edad >= 101) Then
Label3.Caption = ("Fosil? ")
Else
MsgBox ("Valor Incorrecto...Verifica Los Digitos")
End If
End Sub


me sige contando derecho y no puedo

ayudaaaa

Prueba estructurando mas claro aunque para ello tengas que poner mas sentencias If

Código:

If edad >= 0 And edad <= 1 Then Label3 = "Bebe"
If edad >= 2 And edad <= 11 Then Label3 = "Niño"
If edad >= 12 And edad <= 17 Then Label3 = "Adolescente"
If edad >= 18 And edad <= 59 Then Label3 = "Adulto"
If edad >= 60 And edad <= 100 Then Label3 = "Adulto mayor"
If edad >= 101  Then Label3 = "Fosil"

Me permito corregirte la edad de 18 años que la tienes para dos clasificaciones segun tu ejemplo. Asi queda que los 17 años se considera adolescente y 18 años adulto. No pueden sera dos cosas al mismo tiempo, aunque sepamos que esa es una edad complicada......

Hola, si lo que pretendes es hacerlo comparando un solo valor, debes hacerlo al revés:

0-1 bebe
2-11 niño
12-18 adolecente
18-59 adulto
60-100 adulto mayor
101-inf fosil?

If Edad > 100 Then 'Solo se dará si es Mayor de 100
ElseIf Edad > 59 Then 'Solo de dará si es si no es > de 100 y es Mayor de 59
ElseIf Edad > 18 Then
ElseIf Edad > 11 Then
ElseIf Edad > 1 Then
Else
End If

Obviamente la respuesta de Eligio es correcta y también funcionara. Comentarte que tienes una incongruencia en 12-18 o 18-59

Saludos