End Function. Область видимости процедур и функций

End Sub

End Sub

Область видимости процедур и функций

У процедур и функций два уровня видимости:

· уровень модуля;

· уровень проекта

По умолчанию все программы доступны на уровне проекта.

Служебные слова Private и Public задают область видимости процедур и функций. Private делает объект доступным только внутри данного модуля. Public делает объект доступным из другого модуля.

Для того чтобы перевести процедуру или функцию на уровень модуля, необходимо объявить ее с ключевым словом Private. Такие программы не могут запускаться сами по себе. Их можно только вызвать из других программ.

Пример:

Sub Proc()

var1 = GetRand

ModuleLevelProcedure var1

Private Sub ModuleLevelProcedure(ByVal var1)

MsgBox var1 * GetRand

Private Function GetRand()

GetRand = Int (100 * Rnd ())

Сначала процедура Proc() вызывает функцию GetRand для генерации случайного целого числа в диапазоне от 0 до 99, а затем передает его в процедуру ModuleLevelProcedure. Там этот аргумент умножается на результат еще одного обращения к функции GetRand. Их произведение выводится в информационном окне.

Дата добавления: 2014-01-07