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