¢подпрограмма–функция (описание)
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. Завершить работу щелчком ЛКМ на пункте «Завершение сеанса <имя группы>».
