Algoritmo
Dim m, mc As String
Console.WriteLine ("ingrese el mes en numeros")
mes_num = Console.ReadLine
Select Case mes_numCase 1
m = "Enero"
Case 2
m = "Febrero"
Case 3
m = "Marzo"
Case 4
m = "Abril"Case 5
m = "mayo"
Case 6
m = "Junio"
Case 7
m = "julio"
Case 8
m = "Agosto"
Case 9m = "Setiembre"
Case 10
m = "Octubre"
Case 11
m = "Noviembre"
Case 12
m = "Diciembre"Case Else
Console.WriteLine ("el numero es erroneo.1-12")
Console.ReadKey ()
End
End Select
Console.WriteLine ("ingrese mes ysaldrá la cantidad de días")
mc = Console.ReadLine
Select Case mc
Case "Enero"
cant = 31
Case "Febrero"
cant = 29Case "Marzo"
cant = 31
Case "Abril"
cant = 30
Case "Mayo"
cant = 31
Case "Junio"
cant =30
Case "julio"
cant = 31
Case "Agosto"
cant = 31
Case "septiembre"
cant = 30
Case "octubre"cant = 31
Case "Nobiembre"
cant = 30
Case "diciembre"
cant = 31
Case Else
Console.WriteLine("elmes indicado es incorrecto")
Console.ReadKey()
End
End Select
Console.WriteLine("el mes tiene =" & cant)
Console.WriteLine("el mes...
Regístrate para leer el documento completo.