-
Lenguaje
Visual Basic .Net
-
Descripción
Lea un número de mes y decir cuántos días tiene.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Module DiasDelMes
Sub Main()
Dim dias, mes As Integer
Console.Write("Ingresa el valor de mes: ")
mes = Integer.Parse(Console.ReadLine())
dias=0
If mes = 2 Then
dias=28
End If
If mes = 1 Or mes = 3 Or mes = 5 Or mes = 7 Or mes = 8 Or mes = 10 Or mes = 12 Then
dias=31
End If
If mes = 4 Or mes = 6 Or mes = 9 Or mes = 11 Then
dias=30
End If
Console.WriteLine("Valor de dias: " & dias)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim dias, mes As Integer
Console.Write("Ingresa el valor de mes: ")
mes = Integer.Parse(Console.ReadLine())
dias=0
If mes = 2 Then
dias=28
End If
If mes = 1 Or mes = 3 Or mes = 5 Or mes = 7 Or mes = 8 Or mes = 10 Or mes = 12 Then
dias=31
End If
If mes = 4 Or mes = 6 Or mes = 9 Or mes = 11 Then
dias=30
End If
Console.WriteLine("Valor de dias: " & dias)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module