Порядок выполнения работы. 1. Ознакомиться с программной реализацией проекта анализа числа на четность или нечетность с помощью структурированной программы

1. Ознакомиться с программной реализацией проекта анализа числа на четность или нечетность с помощью структурированной программы, состоящей из главной подпрограммы с именем “CmdРешение” и вспомогательной с именем «Анализ».

Программа «Анализ числа на четность».

‘Вспомогательная подпрограмма

Private Sub (ByVal x As Integer)

Select Case x

Case 0

MsgBox “Ноль”

Case 1, 3, 5

MsgBox “Нечет”

Case 2, 4, 6

MsgBox “Чет”

Case Else

MsgBox “В списках констант нет такого числа.” _{└ ┘} _

+ _{└ ┘} Chr(13) & _{└ ┘} _

“Смотри подсказку для ввода”

End Select

End Sub

‘Главная подпрограмма

Private Sub CmdРешение_Click()

Dim Числа As Integer

Числа = CInt(Text1.Text)

Анализ Числа

End Sub

Пояснение.

Внутрь вспомогательной подпрограммы помещен оператор множественного ветвления Select Case (Выбор варианта). В этом операторе (в данном примере) реализован один из трех видов списков условий: выполняется действие в некоторой основной ветви, если совпадают значения входного данного «х» и константы в некотором варианте (после служебного слова Case). В общем случае в отдельном варианте может быть список констант (разделитель элементов списка – запятая).

В структуре оператора множественного ветвления предусмотрено альтернативное действие в случае несовпадения значения входного данного ни с одним из значений в предусмотренных вариантах. При этом выполняется действие в ветви с заголовком Case Else. Она помещается в конце оператора. Рекомендуется вставлять эту ветвь всегда, возможно без инструкции после заголовка. Во вспомогательной подпрограмме приведенного выше примера в альтернативной ветви Select Else организован вывод сообщения в окно Message в две строки.

В данном примере действием в каждой ветви является вывод соответствующего сообщения с помощью стандартной функции MsgBox (Message – сообщение). На экране автоматически создается окно необходимого размера. Имеется возможность сцеплять отдельные символы строки, заключаемые в кавычки, с помощью символа «+»(плюс) или «&» (амперсанд), а также программно управлять выводом текста в отдельные строки поля сообщения. В данном примере после вывода первого предложения сообщения для перевода курсора в следующую строку поля сообщения и вывода второго предложения в цепочку символов вставлена стандартная функция Chr (Character – символ). Ее аргументом (число 13) является код клавиши “Enter”.

Как показала практика использования оператора Select Case, возможна запись после служебного слова Case одним списком в любом порядке условий всех трёх видов, например Case Is < = 0, 1, 2, 3, 5, 10 To 20.

2. Выполнить программу «Анализ числа на четность» при всех возможных типовых вариантах, включая альтернативный.

3. Скопировать текст программы «Анализ числа на четность» по команде Сохранить как, задав для копии имя «Интервальный анализ».

4. Изменить свойством “Caption” заголовок формы на «Анализ принадлежности числа некоторому интервалу».

5. Изменить надпись (подсказку для ввода) в поле формы на «Введите любое число < =0 или из интервала от 1 до 10».

6. Изменить в тексте главной подпрограммы имя «ключевой» переменной “i” на «Числа», задать ей тип Single (вещественной одинарной точности), использовать при считывании с формы значения переменной функцию CSng.

7. Изменить в тексте вспомогательной подпрограммы тип формального параметра на соответствующий фактическому; выполнить редактирование инструкций в структуре оператора множественного ветвления: оставить необходимые служебные слова и записи в двух основных ветвях и альтернативной ветви (две строки третьей основной ветви удалить, поставив курсор в каждую из них и нажав клавиши Ctrl+Y) и записать указанные ниже инструкции (первые две реализуют еще два возможные (кроме списка констант) вида условий).

Case Is < = 0 ‘ “Is” – есть

MsgBox “Число меньше или равно нолю”

Case 1 To 10 ‘ англ. “To” – русск. “До”

MsgBox “Число принадлежит интервалу [1, 10]”

Case Else

MsgBox “Неверный ввод”_ _

+_Chr (13) _& _ _

“Смотри подсказку для ввода”

8. Сохранить отредактированный файл и выполнить программу при всех возможных типовых вариантах, включая альтернативный, задавая целые и вещественные (с дробной частью) числа.

ВНИМАНИЕ.

В операторе множественного ветвления на языке Visual Basic значениями «ключевой» переменной (в данном примере это «Числа») могут быть значения вещественного типа – как целые, так и с дробной частью.

При стандартной настройке среды Excel как в ячейках таблицы, так и в полях ввода на формах в среде программирования разделителем целой и дробной частей вещественного числа служит запятая.

Если же вещественное число фигурирует в тексте программы, то разделителем целой и дробной частей числа служит точка.

9. В конце работы самостоятельно реализовать проект по варианту, заданному преподавателем.

10. Завершить работу щелчком ЛКМ на пункте «Завершение сеанса < имя группы>».

 

Содержание отчета

Отчет должен содержать:

· номер, название и цель работы;

· краткую теоретическую часть, включающую описание формата оператора множественного ветвления в общем виде, а также описание трех видов списка условий;

· результаты выполнения работы согласно заданию, выданному преподавателем, а именно, текст составленных программ с пояснениями к ним, структуру окна формы задачи, описание действий по выполнению программ, результаты выполнения программы;

· заключение по работе.

 

 

Контрольные вопросы

 

1. Синтаксис оператора множественного ветвления.

2. Виды условий оператора множественного ветвления.

3. Ограничено ли количество блоков, использующих ключевое слово Case? Может ли отсутствовать альтернативная ветвь Case Else?