Лекция: OperatorN
MyFunc =result – обязательный оператор (в теле функции её возвращаемое значение обязательно должно быть присвоено переменной с именем функции)
Для вызова функции достаточно указать ее имя (с фактическими параметрами) в любом выражении. Отметим, что имя функции можно использовать в арифметических выражениях и других командах.
Вызов функции производится следующим образом:
1. без присваивания: MyFunc Param1, Param2, Param3 … ParamN
2. с присваиванием:x=MyFunc (Param1, Param2, Param3 … ParamN)
MyFunc — имя функции
Param1, Param2, Param3 … ParamN — фактические параметры.
Замечание: внутри тела процедуры или функции можно объявлять новые переменные при помощи ключевого слова Dim.
Пример использования функции в программе (без параметров):
Задача: вывести на экран значение выражения: (7+8)*100/5, используя функцию summa
Текст программы:
Function summa
MsgBox ((7+8)*100/5)
End Function
summa
Для функций, также как и для процедур, существует передача параметра по ссылке и по значению.
Пример: передача параметра по значению.
Задача: вывести на экран зарплату сотрудника с вычетом налога (13%) и без вычета.
Текст программы:
option explicit
dim a
Function nalog( ByVal a) ‘параметр подлежит передаче по значению
a=a-(13*a)/100 ‘вычисление зарплаты с вычетом налога
MsgBox «Зарплата с вычетом налога:»&a
nalog=a
End Function
a=InputBox («Введите вашу зарплату без вычета налога: »,«Окно ввода: „)
nalog a ‘вызов функции nalog
MsgBox “Зарплата без вычета налога: „&a