La programación VB ingresa el mes, genera la temporada correcta y utiliza una instrucción de bucle. (Diciembre, enero y febrero son invierno, marzo, abril y mayo son primavera)
'¿Por qué deberíamos usar un bucle para resolver este tipo de preguntas? Es en sí mismo una pregunta de sentencia select?case?xx?El bucle se usa de la siguiente manera:
¿Privado? Sub?Command1_Click()
p>Dim?n?As?Integer,?a(1?To?12)?As?String,?i?As?Integer
a (1)?=?"Invierno"
a(2)?=?"Invierno"
a(3)?=?"Primavera"
a(4)?=?"Primavera "
a(5)?=?"Primavera"
a(6)?=?"Verano"
a(7)?=?" Verano"
a(8)?=?"Verano"
a(9)?=?"Otoño"
a(10)?=? "Otoño"
a(11)?=?"Otoño"
a(12)?=?"Invierno"
n?=?Val( InputBox("",?"input?a?number",?3))
Para?i?=?1?To?12 Si?i?= ?n?Entonces MsgBox?a(n ) ¿Salir?Para finalizar?Si
Siguiente
Fin?Sub