OperatorN

End Function

Функции

Функция - это процедура, возвращающая результат некоторого типа. Поэтому, её надо применять, когда вызывающая программа должна вернуть только один результат. Оформляется аналогично процедуре. Отличительные особенности функции: она имеет только один результат выполнения. Результат обозначается именем функции и возвращается (передается) в основную программу. Функция объявляется следующим образом:

Function MyFunc (Param1, Param2, Param3 … ParamN)

[Operator1: Operator2]

[Operator3]

…

MyFunc =result

[OperatorN]

Function и End Function - это служебные слова, означающие начало и конец объявления процедуры.

MyFunc - это имя создаваемой функции

Param1, Param2, Param3 … ParamN - формальные параметры

Operator1: Operator2

Operator3 - раздел операторов, используемых в процедуре.

…

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

Дата добавления: 2014-12-29