• Lenguaje

    Visual Basic .Net

  • Descripción

    Al ingresar un número entero imprime el día de la semana que le corresponde. Por ejemplo: al ingresar 1 debe imprimir lunes, 2 martes y así sucesivamente. Validar los datos de ingreso.

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
30
31
32
33
34
35
Module DiaDeLaSemana

    Sub Main()
        Dim dia_de_la_semana As Integer
        Console.Write("Ingresa el valor de dia de la semana: ")
        dia_de_la_semana = Integer.Parse(Console.ReadLine())
        If dia_de_la_semana = 1 Then
            Console.WriteLine("Lunes")
        End If
        If dia_de_la_semana = 2 Then
            Console.WriteLine("Martes")
        End If
        If dia_de_la_semana = 3 Then
            Console.WriteLine("Mi" & ChrW(&HE9) & "rcoles")
        End If
        If dia_de_la_semana = 4 Then
            Console.WriteLine("Jueves")
        End If
        If dia_de_la_semana = 5 Then
            Console.WriteLine("Viernes")
        End If
        If dia_de_la_semana = 6 Then
            Console.WriteLine("S" & ChrW(&HE1) & "bado")
        End If
        If dia_de_la_semana = 7 Then
            Console.WriteLine("Domingo")
        End If
        If dia_de_la_semana<1 Or dia_de_la_semana>7 Then
            Console.WriteLine("D" & ChrW(&HED) & "a no v" & ChrW(&HE1) & "lido")
        End If
        Console.WriteLine()
        Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
    End Sub

End Module