Hola!!!
Este programa muestra el signo zodiacal de una
persona. Para ello el usuario debe introducir únicamente el día y el mes de
nacimiento y el programa determinará inmediatamente su signo zodiacal
Adjunto el codigo
Sub
Main()
Dim
dia, mes As Integer
Dim
zodiaco As String
Console.WriteLine("Ingrese su
dia de nacimiento", dia)
dia =
Console.ReadLine()
Console.WriteLine("Ingrese
su mes de nacimiento")
mes
= Console.ReadLine()
If dia
>= 21 And mes = 3 Or
dia <= 20 And mes = 4 Then
zodiaco = "Aries"
Console.WriteLine("---------------------------------")
Console.WriteLine("Su
signo Zodiacal es: " & zodiaco)
Console.WriteLine("---------------------------------")
Console.WriteLine("Presione
enter para salir")
Console.ReadLine()
Else
If
dia >= 21 And mes = 3 Or dia <= 21 And
mes = 5 Then
zodiaco = "Tauro"
Console.WriteLine("---------------------------------")
Console.WriteLine("Su signo Zodiacal es: " & zodiaco)
Console.WriteLine("---------------------------------")
Console.WriteLine("Presione enter para salir")
Console.ReadLine()
Else
If
dia >= 22 And mes = 5 Or dia <= 21 And
mes = 6 Then
zodiaco = "Geminis"
Console.WriteLine("---------------------------------")
Console.WriteLine("Su signo Zodiacal es: " & zodiaco)
Console.WriteLine("---------------------------------")
Console.WriteLine("Presione enter para salir")
Console.ReadLine()
Else
If
dia >= 22 And mes = 6 Or dia <= 22 And
mes = 7 Then
zodiaco = "Cancer"
Console.WriteLine("---------------------------------")
Console.WriteLine("Su signo
Zodiacal es: " & zodiaco)
Console.WriteLine("---------------------------------")
Console.WriteLine("Presione
enter para salir")
Console.ReadLine()
Else
If dia >= 23 And mes = 7 Or dia <= 22 And
mes = 8 Then
zodiaco = "Leo"
Console.WriteLine("---------------------------------")
Console.WriteLine("Su
signo Zodiacal es: " & zodiaco)
Console.WriteLine("---------------------------------")
Console.WriteLine("Presione
enter para salir")
Console.ReadLine()
Else
If dia >= 23 And
mes = 8 Or dia <= 22 And mes = 9 Then
zodiaco = "Virgo"
Console.WriteLine("---------------------------------")
Console.WriteLine("Su
signo Zodiacal es: " & zodiaco)
Console.WriteLine("---------------------------------")
Console.WriteLine("Presione enter para salir")
Console.ReadLine()
Else
If dia >= 23 And
mes = 9 Or dia <= 22 And mes = 10 Then
zodiaco = "Libra"
Console.WriteLine("---------------------------------")
Console.WriteLine("Su
signo Zodiacal es: " & zodiaco)
Console.WriteLine("---------------------------------")
Console.WriteLine("Presione
enter para salir")
Console.ReadLine()
Else
If dia >= 23 And
mes = 10 Or dia <= 22 And mes = 11 Then
zodiaco = "Escorpio"
Console.WriteLine("---------------------------------")
Console.WriteLine("Su
signo Zodiacal es: " & zodiaco)
Console.WriteLine("---------------------------------")
Console.WriteLine("Presione
enter para salir")
Console.ReadLine()
Else
If dia >= 23 And
mes = 11 Or dia <= 21 And mes = 12 Then
zodiaco = "Sagitario"
Console.WriteLine("---------------------------------")
Console.WriteLine("Su
signo Zodiacal es: " & zodiaco)
Console.WriteLine("---------------------------------")
Console.WriteLine("Presione
enter para salir")
Console.ReadLine()
Else
If dia >= 22 And
mes = 12 Or dia <= 20 And mes = 1 Then
zodiaco = "Capricornio"
Console.WriteLine("---------------------------------")
Console.WriteLine("Su signo Zodiacal es: " & zodiaco)
Console.WriteLine("---------------------------------")
Console.WriteLine("Presione enter para salir")
Console.ReadLine()
Else
If dia >=
21 And mes = 1 Or
dia <= 19 And mes = 2 Then
zodiaco = "Acuario"
Console.WriteLine("---------------------------------")
Console.WriteLine("Su
signo Zodiacal es: " & zodiaco)
Console.WriteLine("---------------------------------")
Console.WriteLine("Presione enter para salir")
Console.ReadLine()
Else
If dia >= 20 And
mes = 2 Or dia <= 20 And mes = 3 Then
zodiaco = "Picis"
Console.WriteLine("---------------------------------")
Console.WriteLine("Su signo Zodiacal es: " & zodiaco)
Console.WriteLine("---------------------------------")
Console.WriteLine("Presione enter para salir")
Console.ReadLine()
End If
End If
End If
End If
End If
End If
End If
End If
End
If
End
If
End
If
End If
End Sub
Les adjunto una pantalla de como queda el programa
No hay comentarios.:
Publicar un comentario
Añade tus comentarios