По номеру месяца выдать все приходящиеся на этот месяц праздничные дни - VB
Формулировка задачи:
Написать программу, которая по данному натуральному числу от 1 до 12 (номеру месяца) выдает все приходящиеся на этот месяц праздничные дни (например, если введено число 1, то: 1 января – Новый год, 7 января – Рождество) или сообщение, что праздников нет.
Выложите пожалуйста код
Решение задачи: «По номеру месяца выдать все приходящиеся на этот месяц праздничные дни»
textual
Листинг программы
Private Function Holidays(ByVal NumberOfMonth As Integer) As String Select Case NumberOfMonth Case 1: Holidays = " 1, 2, 3, 4, 5 января – Новогодние каникулы, " + _ " 7 января – Рождество Христово" Case 2: Holidays = " 23 февраля – День защитника Отечества" Case 3: Holidays = " 8 марта – Международный женский день" Case 5: Holidays = " 1 мая – Праздник Весны и Труда" + _ " 9 мая – День Победы" Case 6: Holidays = " 12 июня – День России" Case 11: Holidays = " 4 ноября – День народного единства" Case 12: Holidays = " 31 декабря – выходной" Case 4, 7, 8, 9, 10 Holidays = " Праздников нет." Case Else Holidays = " Номер месяца введён неправильно." End Select End Function Private Sub Command1_Click() 'Проверка Dim n As Integer n = InputBox("Введите номер месяца", "Ввод данных", 1) If n >= 1 And n <= 12 Then MsgBox Holidays(n), vbInformation, "Месяц - " & MonthName(n) End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д