VBA_КОНТРОЛЬНАЯ ОБЬЯСНЕНИЕ. Контрольная работа по дисциплине Информатика, раздел Программирование на vba
 Скачать 301 Kb.
|
|
Содержание задания. Дано число в диапазоне 1 – 365, обозначающее номер дня в году. Определить день недели (пн, вт, ср, чт, пт, сб, вс), если 1 января было суббота. Пояснения к заданию. Блок-схема процедуры представлена на рисунке 3.1.      + -    =1 =2 =3    =4  =5 =0 =6     Рис. 3.1. Блок-схема процедуры Zadanie3 3.2. Программный код процедуры Zadanie3 Option Explicit ' Процедура определения дня недели по № дня в году Public Sub Zadanie3() ' Объявление переменных Dim d As Integer, x As Integer 'd - № дня в году, х - промежуточный расчет Dim sd As String 'sd - № дня в году в текстовом формате Dim dd As String 'расчетный день недели sd = InputBox("Введи № дня в году") ' Ввод № дня в Windows диалоге d = CInt(sd) 'Перевод текстовой переменной в целоцисленную x = d Mod 7 'Рассчет дня недели, если бы 1 января было понедельником x = x - 2 'Рассчет дня недели, с учетом, что 1 января было субботой If x < 0 Then 'Учет особенностей первой недели года x = x + 7 End If Select Case x 'по номеру дня недели даем его словесное название Case 1: dd = "понедельник" Case 2: dd = "вторник" Case 3: dd = "среда" Case 4: dd = "четверг" Case 5: dd = "пятница" Case 6: dd = "суббота" Case 0: dd = "воскресенье" End Select ' Вывод результата с использованием Windows диалога MsgBox "№ дня года = " & d & Chr(10) & "Это день недели - " & dd End Sub 3.3. Решение контрольного варианта Номер дня года принят равным 7, день недели – пятница (из условия, что 1 января была суббота). Окна ввода и вывода результата представлены на рисунке 3.2.(а,б)   а б Рис. 3.2. Окна ввода и вывода результата процедуры Zadanie3 4. ЦИКЛИЧЕСКАЯ ПРОГРАММА 4.1. Сведения о задании |