В visual basic написать программу которая по введенному времени года выводит соответствующие этому времени года месяца и количество дней

Грубовато, но менее ресурсоёмко

Module Module1

Sub Main ()

Dim a As String = Console. ReadLine ()

If (a = "Зима") Then

Console. WriteLine ("Декабрь (31), Январь (31), Февраль (28-29) ")

Console. WriteLine ("90-91 д.")

ElseIf (a = "Весна") Then

Console. WriteLine ("Март (31), Апрель (30), Май (31) ")

Console. WriteLine ("92 д.")

ElseIf (a = "Лето") Then

Console. WriteLine ("Июнь (30), Июль (31), Август (31) ")

Console. WriteLine ("92 д.")

ElseIf (a = "Осень") Then

Console. WriteLine ("Сентябрь (30), Октябрь (31), Ноябрь (30) ")

Console. WriteLine ("91 д.")

End If

Console. ReadKey ()

End Sub

End Module