Контрольная по программированию на VBA для Excel Задание 3 Второй вариант.

ЗАДАНИЕ 3 на тему «Оператор варианта SelectCase»

Ввести целое число от 1 до 31. С помощью оператора CASE определить, на какой день недели приходится это число в марте. Вывести результат на экран.

Решение данной задачи:

<br> Sub задание3()<br> Dim a As Integer 'Вводим переменные'<br> a = Val(InputBox("Введите любую цифру от 1 до 31", "Ввод данных")) 'вводим данные в переменную'<br> <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" alt="">

Select Case a
Case 4, 11, 18, 25: MsgBox «В марте на это число приходиться Понидельник» 'Выводим результат'
Case 5, 12, 19, 26: MsgBox «В марте на это число приходиться Вторник» 'Выводим результат'
Case 6, 13, 20, 27: MsgBox «В марте на это число приходиться Среда» 'Выводим результат'
Case 7, 14, 21, 28: MsgBox «В марте на это число приходиться Четверг» 'Выводим результат'
Case 1, 8, 15, 22, 29: MsgBox «В марте на это число приходиться Пятница» 'Выводим результат'
Case 2, 9, 16, 23, 30: MsgBox «В марте на это число приходиться Суббота» 'Выводим результат'
Case 3, 10, 17, 24, 31: MsgBox «В марте на это число приходиться Воскресенье» 'Выводим результат'
Case Else
MsgBox «Число не входит в диапозон значений» 'Выводим результат'
End Select

End Sub

201
RSS
Нет комментариев. Ваш будет первым!
Загрузка...
Этот сайт использует файлы cookies, чтобы облегчить вам пользование нашим веб-сайтом. Продолжая использовать этот веб-сайт, вы даете согласие на использование файлов cookies. Подробнее о том, как мы пользуемся файлами cookies и как ими управлять, вы можете узнать нажав на ссылку ниже.