Грубовато, но менее ресурсоёмко
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
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.