Выбор максимального из трёх чисел с использованием подпрограммы–функции выбора максимума из двух чисел.

¢подпрограмма–функция (описание)

Function max2(ByValx As Integer, _└┘–

ByVal y As Integer) As Integer

If x>y Then max2= x Else max2= y

End Function

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

Private Sub CmdРешение_ Click ()

Dim a As Integer, b As Integer, _└┘–

c As Integer, maximum As Integer

a = CInt(Text1.Text)

b = CInt(Text2.Text)

c = CInt(Text3.Text)

maximum=max2(max2(a, b), c)

Text4.Text= maximum

End Sub

Пояснения.

В главной подпрограмме в конце действий выполняется вывод в поле с именем “Text4” максимального значения из 3-х чисел. Это значение определено с использованием и последовательным вызовом подпрограммы – функции выбора максимума из 2-х чисел.

Из описания этой функции следует, что результат ее выполнения, как и любой функции, связан с ее именем. Тип функции задан в конце заголовка описания функции.

После первого обращения к функции с именем “max2” она имеет значение максимума из значений переменных “a” и “b”. Это значение передается в качестве фактического параметра при втором обращении к функции наряду со значением переменной «с». В итоге получается окончательный результат.

12. Выполнить программу из файла max3_func.xls. Далее закрыть этот файл.

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

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

 

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

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

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

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

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

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

 

 

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

 

1. Определение разветвляющегося алгоритма. Пример.

2. Что такое логические операции, их назначение? Приведите примеры.

3. Синтаксис условного оператора «если…то». Формы записи условного оператора.

4. Сколько строк кода может следовать за операторами ThenилиElse?

ЛАБОРАТОРНАЯ РАБОТА № 16

 

Редактор VBA. Оператор множественного ветвления

Цель работы:

· познакомиться с алгоритмом типа «выбор» и оператором множественного ветвления Select Case;

· получить навыки создания программного модуля с использованием оператора множественного ветвления Select Case.

 

Теоретическая часть

Оператор Select Case еще называют переключателем.

Общий формат оператора

 

Рис. 57. Общий формат оператора множественного ветвления Select Case.

 

В переводе с английского Select Case означает «выбор случая (варианта)».

Выражение – может быть в частности константа (число) или переменная любого типа.

Список условий – может быть трех видов:

1) Case константа1, константа2, константа3,…;

2) Case Is знак отношения константа;

(есть)

3) Case константа1 To константа2.

(до)

Действия при выполнении инструкции Select Case:

– сначала в общем случае вычисляется значение выражения в заголовке;

– затем производится проверка на совпадение значения выражения (или переменной) и одного из Case–условий: в случае совпадения выполняются инструкции (операторы), помещённые за этим Case–условием; в случае несовпадения во всех Case–условиях выполняются инструкции после служебных слов Case Else.

В первом виде списка условий необходимо равенство значения выражения одной из списка констант.

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

В третьем виде списка условий должно выполняться условие отношение:

константа 1<= выражение<= константа 2, т.е. «ключом» к соответствующей ветви может быть любое значение из заданного интервала, включая его границы.