End Sub. Область действия переменной

End Sub

End Sub

End Sub

Область действия переменной

End Function

End If

Else

End Sub

End Function

End If

Else

fPower = num * fPower(num, pwr - 1) 'рекурсия

Sub Test_Rekurs()

MsgBox fPower(2, 3)

Пример 7. Чему равно F(23)&

Function F(x As Integer) As Integer

If x <= 1 Then

F = x

ElseIf x MOD 2 <> 0 Then

F= F(5 * x + 1) + 1

F = F(x \ 6) + 1

Х = 23 F(23) = F(5 * 23 + 1) + 1 = F(116) + 1 = 5 + 1 = 6

X = 116 F(116) = F(116 \ 6) + 1 = F(19) + 1 = 4 + 1 = 5

X = 19 F(19) = F(5 * 19 + 1) + 1 = F(96) + 1 = 3 + 1 = 4

X = 96 F(96) = F(96 \ 6) + 1 = F(16) + 1 = 2 + 1 = 3

X = 16 F(16) = F(16 \ 6) + 1 = F(2) + 1 = 1 + 1 = 2

X = 2 F(2) = F(2 \ 6) + 1 = F(0) + 1 = 0 + 1 = 1

X = 0 F(0) = X = 0

Ответ: 6.

Область действия переменной задает область, в которой может быть использована переменная. В VB имеется три соответствующих уровня переменных:

1. Процедурный уровень. Переменная, объявленная в процедуре, является доступной только в этой процедуре. Они описываются внутри процедуры при помощи инструкции Dim. Поскольку область действия процедурного уровня ограничивает доступ к переменной процедурой, в которой объявляется эта переменная, можно использовать то же имя переменной в разных процедурах. Но внутри своей области определения имя должно быть уникальным.

Пример 8. Область действия процедурного уровня

Sub HelloWorld()

Dim HelloMsg 'сохраняет текст для MsgBox

HelloMsg = "HelloWorld!"

MsgBox HelloMsg,,"Окно приветствия"

Sub HelloDave()

Dim HelloMsg ‘сохраняет текст для MsgBox

HelloMsg = "Hello, Dave!"

MsgBox HelloMsg,, "Другое окно сообщения"

2. Модульный уровень. Переменные уровня модуля используются только в модуле, в котором они описаны при помощи инструкции Dim, размещенной в области описания модуля, т. е. перед описанием процедур. Это необходимо когда несколько процедур должны иметь доступ к одной и той же переменной. Обычно эффективнее вычислить один раз какое-либо значение, сохранить его в переменной, а затем использовать эту переменную в не­скольких процедурах, чем вычислять одно и то же значение снова и снова.

Пример 9. Область действия переменной модульного уровня

Dim HelloMsg ' переменная модульного уровня

Sub HelloWorld()

HelloMsg = "Hello, World!"

MsgBox HelloMsg,, "Окно приветствия"

Sub HelloDave()

HelloMsg = "Hello, Dave!"

MsgBox HelloMsg,, "Другое окно сообщения"

Имя переменной должно быть уникальным в ее области действия – нельзя объявлять две переменные модульного уровня с одним именем в одном и том же модуле.

3. Общие переменные, используемые во всех модулях данного проекта. Описываются при помощи инструкции Public, размещенной в области описания модуля.

Хотя имя переменной должно быть уникальным в области ее действия, можно иметь переменные с одним и тем же именем на разных уровнях области действия. Когда переменные имеют одно имя, но разные области действия, VBA использует переменную с наиболее локальной областью действия. В примере 10 приведен модуль, содержащий три процедуры, каждая из которых используют переменные с одним и тем же именем.

Пример 10. Комбинированная модульная и процедурная область действия

Dim HelloMsg 'переменная уровня модуля

Sub HelloWorld()

HelloMsg = "Hello, World!"

MsgBox HelloMsg,, "Greeting Box"

Дата добавления: 2015-05-10