no me funciona el programa
Publicado por lunita (1 intervención) el 06/10/2014 23:02:16
alguien me puede colaborar con este problema ... cuando lo ejecuto me sale sin importar la edad que es un bebe... gracias por su colaboración
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Butcronologia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butcronologia.Click
Dim Edad As Integer
If Edad <= 5 Then
MsgBox("Es un Bebe")
Else
If Edad >= 6 And Edad <= 10 Then
MsgBox("Es un niño")
Else
If Edad >= 11 And Edad <= 18 Then
MsgBox("Es un adolescente")
Else
If Edad >= 19 And Edad <= 30 Then
MsgBox("Es un Joven")
Else
If Edad >= 31 And Edad <= 49 Then
MsgBox("Es un adulto")
Else
If Edad <= 50 Then
MsgBox("Es un adulto Mayor")
End If
End If
End If
End If
End If
End If
End Sub
Valora esta pregunta
0
