AYUDA con Algoritmo VB 2005...

[sickvampire]

ME pueden ayudar con este codigo no se cual es el problema es un algoritmo que te da el signo zodiacal ingresando tu dia y mes de nacimiento pero no c porque no m sirve lo hice en VISUAL B. 2005 aplicacion de consola aki mi codigo:


'1. Zodiaco, El usuario debe de ingresar el día y mes de su nacimiento, y este me
'debe de decir, a que signo zodiacal pertenece.


Dim DIA, MES As Integer
Dim SIGNO As String



Console.Write("Ingresa el Dia de tu nacimiento: ")
DIA = CInt(Console.ReadLine)
Console.Write("Ingresa el mes de tu nacimiento(Ejem: 1,2,3,4...12): ")
MES = CInt(Console.ReadLine)

While DIA <= 31 AndAlso MES <= 12


If DIA >= 21 AndAlso MES = 3 Then
SIGNO = CStr("ARIES")
ElseIf DIA <= 20 AndAlso MES = 4 Then
SIGNO = CStr("ARIES")


ElseIf DIA >= 21 AndAlso MES = 4 Then
SIGNO = CStr("TAURO")
ElseIf DIA <= 20 AndAlso MES = 5 Then
SIGNO = CStr("TAURO")


ElseIf DIA >= 21 AndAlso MES = 5 Then
SIGNO = CStr("GEMINIS")
ElseIf DIA <= 20 AndAlso MES = 6 Then
SIGNO = CStr("GEMINIS")


ElseIf DIA >= 21 AndAlso MES = 6 Then
SIGNO = CStr("CANCER")
ElseIf DIA <= 20 AndAlso MES = 7 Then
SIGNO = CStr("CANCER")


ElseIf DIA >= 21 AndAlso MES = 7 Then
SIGNO = CStr("LEO")
ElseIf DIA <= 20 AndAlso MES = 8 Then
SIGNO = CStr("LEO")


ElseIf DIA >= 21 AndAlso MES = 8 Then
SIGNO = CStr("VIRGO")
ElseIf DIA <= 20 AndAlso MES = 9 Then
SIGNO = CStr("VIRGO")


ElseIf DIA >= 21 AndAlso MES = 9 Then
SIGNO = CStr("LIBRA")
ElseIf DIA <= 20 AndAlso MES = 10 Then
SIGNO = CStr("LIBRA")


ElseIf DIA >= 21 AndAlso MES = 10 Then
SIGNO = CStr("ESCORPION")
ElseIf DIA <= 20 AndAlso MES = 11 Then
SIGNO = CStr("ESCORPION")


ElseIf DIA >= 21 AndAlso MES = 11 Then
SIGNO = CStr("SAGITARIO")
ElseIf DIA <= 20 AndAlso MES = 12 Then
SIGNO = CStr("SAGITARIO")

ElseIf DIA >= 21 AndAlso MES = 12 Then
SIGNO = CStr("CAPRICORNIO")
ElseIf DIA <= 20 AndAlso MES = 1 Then
SIGNO = CStr("CAPRICORNIO")


ElseIf DIA >= 21 AndAlso MES = 1 Then
SIGNO = CStr("ACUARIO")
ElseIf DIA <= 20 AndAlso MES = 2 Then
SIGNO = CStr("ACUARIO")


ElseIf DIA >= 21 AndAlso MES = 2 Then
SIGNO = CStr("PISCIS")
ElseIf DIA <= 20 AndAlso MES = 3 Then
SIGNO = CStr("PISCIS")



End If


End While

Console.WriteLine("Tu signo es {0}", SIGNO)
Console.ReadLine()






salu2 al foro