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. Сохранить отредактированный файл и выполнить программу при всех возможных типовых вариантах, включая альтернативный, задавая целые и вещественные (с дробной частью) числа.
