Вот пример программы на Visual Basic, которая выводит соответствующие времени года месяцы и количество дней:
Module Module1 Sub Main() Dim season As String Console.WriteLine("Введите время года: ") season = Console.ReadLine() Select Case season Case "зима" Console.WriteLine("Зимние месяцы: декабрь, январь, февраль") Console.WriteLine("Количество дней в зимних месяцах: 31 + 31 + 28(29 в високосный год) = 90(91 в високосный год)") Case "весна" Console.WriteLine("Весенние месяцы: март, апрель, май") Console.WriteLine("Количество дней в весенних месяцах: 31 + 30 + 31 = 92") Case "лето" Console.WriteLine("Летние месяцы: июнь, июль, август") Console.WriteLine("Количество дней в летних месяцах: 30 + 31 + 31 = 92") Case "осень" Console.WriteLine("Осенние месяцы: сентябрь, октябрь, ноябрь") Console.WriteLine("Количество дней в осенних месяцах: 30 + 31 + 30 = 91") Case Else Console.WriteLine("Ошибка: неверное время года") End Select Console.ReadLine() End Sub End Module
Программа запрашивает у пользователя ввод времени года, а затем выводит соответствующие времени года месяцы и количество дней в них.
Вот пример программы на Visual Basic, которая выводит соответствующие времени года месяцы и количество дней:
Module Module1Sub Main()
Dim season As String
Console.WriteLine("Введите время года: ")
season = Console.ReadLine()
Select Case season
Case "зима"
Console.WriteLine("Зимние месяцы: декабрь, январь, февраль")
Console.WriteLine("Количество дней в зимних месяцах: 31 + 31 + 28(29 в високосный год) = 90(91 в високосный год)")
Case "весна"
Console.WriteLine("Весенние месяцы: март, апрель, май")
Console.WriteLine("Количество дней в весенних месяцах: 31 + 30 + 31 = 92")
Case "лето"
Console.WriteLine("Летние месяцы: июнь, июль, август")
Console.WriteLine("Количество дней в летних месяцах: 30 + 31 + 31 = 92")
Case "осень"
Console.WriteLine("Осенние месяцы: сентябрь, октябрь, ноябрь")
Console.WriteLine("Количество дней в осенних месяцах: 30 + 31 + 30 = 91")
Case Else
Console.WriteLine("Ошибка: неверное время года")
End Select
Console.ReadLine()
End Sub
End Module
Программа запрашивает у пользователя ввод времени года, а затем выводит соответствующие времени года месяцы и количество дней в них.