Clase 3 - Sentencia Select Case

03.09.2012 00:06

 

Sentencia Select Case : Lo usamos cuando tenemos varias opciones y queremos elegir una por ejemplo en los rangos de los meses que son 12 como verán abajo . 

Aquí les dejo el codigo del rango de los signos del zodiaco ..... 

 

 

Imports System.Console
Module Module1
 
    Sub Main()
 
        Dim mes, dia As Integer
        WriteLine("Ingresar mes de nacimiento: ")
        mes = ReadLine()
        WriteLine("Ingresar dia de nacimiento: ")
        dia = ReadLine()
 
        Select Case mes
            Case 1
                If (dia > 1 And dia < =20) Then WriteLine("Eres CAPRICORNIO!!!! :D ")
 
 
                If (dia > 20 And dia < =31) Then WriteLine("Eres ACUARIO!!!! :D ")
 
            Case 2
                If (dia > 1 And dia <= 19) Then WriteLine("Eres ACUARIO!!!! :D ")
                If (dia > 19 And dia <= 29) Then WriteLine("Eres PISCIS!!!! :D ")
            Case 3
                If (dia > 1 And dia <= 20) Then WriteLine("Eres PISCIS!!!! :D ")
                If (dia > 20 And dia <= 31) Then WriteLine("Eres ARIES!!!! :D ")
            Case 4
                If (dia > 1 And dia <= 20) Then WriteLine("Eres ARIES!!!! :D ")
                If (dia > 20 And dia <= 30) Then WriteLine("Eres TAURO!!!! :D ")
            Case 5
                If (dia > 1 And dia <= 21) Then WriteLine("Eres TAURO!!!! :D ")
                If (dia > 21 And dia <= 31) Then WriteLine("Eres GEMINIS!!!! :D ")
            Case 6
                If (dia > 1 And dia <= 21) Then WriteLine("Eres GEMINIS!!!! :D ")
                If (dia > 21 And dia <= 30) Then WriteLine("Eres CANCER!!!! :D ")
            Case 7
                If (dia > 1 And dia <= 22) Then WriteLine("Eres CANCER!!!! :D ")
                If (dia > 22 And dia <= 31) Then WriteLine("Eres LEO!!!! :D ")
            Case 8
                If (dia > 1 And dia <= 23) Then WriteLine("Eres LEO!!!! :D ")
                If (dia > 23 And dia <= 31) Then WriteLine("Eres VIRGO!!!! :D ")
            Case 9
                If (dia > 1 And dia <= 23) Then WriteLine("Eres VIRGO!!!! :D ")
                If (dia > 23 And dia <= 30) Then WriteLine("Eres LIBRA!!!! :D ")
            Case 10
                If (dia > 1 And dia <= 23) Then WriteLine("Eres LIBRA!!!! :D ")
                If (dia > 23 And dia <= 31) Then WriteLine("Eres ESCORPIO!!!! :D ")
            Case 11
                If (dia > 1 And dia <= 22) Then WriteLine("Eres ESCORPION!!!! :D ")
                If (dia > 22 And dia <= 30) Then WriteLine("Eres SAGITARIO!!!! :D ")
            Case 12
                If (dia > 1 And dia <= 21) Then WriteLine("Eres SAGITARIO!!!! :D ")
                If (dia > 21 And dia <= 31) Then WriteLine("Eres CAPRICORNIO!!!! :D ")
        End Select
 
        ReadLine()
 
    End Sub
 
End Module
 
Si quieren entender un poco mas sobre el ejercicio aquí les dejo el link del video en youtube : 
 

 

Etiquetas:

| | | |

Volver