OperatorN. MyFunc =result – обязательный оператор (в теле функции её возвращаемое значение обязательно должно быть присвоено переменной с именем функции)

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