End Function. Function CalculateSquareRoot(NumberArg As Double) As Double

End If

Function CalculateSquareRoot(NumberArg As Double) As Double

...

End If

Exit Function

...

Function BinarySearch(...) As Boolean

' Значение не найдено. Возвращается значение False.

If lower > upper Then

BinarySearch = False

End Function

Переменные, используемые в процедурах Function, разбиваются на две категории: явно описанные внутри процедуры и не описанные внутри процедуры. Переменные, которые явно описаны в процедуре (с помощью ключевого слова Dim или эквивалентного ему), всегда являются локальными для этой процедуры. Переменные, которые используются, но явно не описаны в процедуре, также являются локальными, если они явно не описаны на более высоком уровне.
В процедуре допускается использование переменной, которая явно не описана в этой процедуре, но при этом может возникать конфликт имен, если на уровне модуля был определен элемент с тем же самым именем. Если в процедуре содержится ссылка на неописанную переменную, имя которой совпадает с именем другой процедуры, константы или переменной, то подразумевается, что процедура ссылается на это имя на уровне модуля. Чтобы избежать возникновения конфликтов такого рода, следует пользоваться явным описанием переменных. Для включения обязательного явного описания переменных используется инструкция Option Explicit.
В языке Visual Basic возможна реорганизация арифметических выражений для увеличения скорости их выполнения. Избегайте применения процедуры Function в арифметическом выражении, если эта процедура изменяет значения переменных, используемых в этом же выражении.

Пример
В данном примере инструкция Function используется для объявления имени, аргументов и кода, составляющих основу процедуры Function. В последнем примере используются инициализированные аргументы Optional с заданным типом.

' Следующая функция, определенная пользователем, возвращает

' квадратный корень из переданного ей аргумента.

If NumberArg < 0 Then ' Анализирует аргумент.

Exit Function ' Возврат в вызывающую процедуру . Else

CalculateSquareRoot = Sqr(NumberArg) ' Возвращает квадратный корень.

Ключевое слово ParamArray позволяет функции принимать переменное число аргументов. В следующем описании FirstArg передается по значению.

Function CalcSum(ByVal FirstArg As Integer, ParamArray OtherArgs())

Dim ReturnValue

' Если функция вызывается следующим образом:

ReturnValue = CalcSum(4, 3,2,1)

' Локальные переменные принимают следующие значения: FirstArg = 4,

' OtherArgs(1) = 3, OtherArgs(2) = 2 и т.п., если нижняя граница

' индексов массивов равняется 1.

Аргументы OptionalVariant.

' Если аргументы функции описаны следующим образом:

Function MyFunc(MyStr As String, Optional MyArg1 As _ Integer = 5, Optional MyArg2 = "Мария")

Дата добавления: 2015-06-27