Локальные и глобальные параметры (переменные)

 

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

 

Формальные и фактические параметры

 

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

 

Параметры, передающиеся по значению

 

Параметры, передающиеся по значению, – это параметры, значения которых передаются в подпрограмму и не передаются из нее обратно. Перед такими параметрами ставится оператор ByVal.

 

 

Подпрограмма-функция

 

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

 

Синтаксис:

[ Public[Private ] [ Static ] Function Имя [(Списокаргументов)] As Тип

Тело подпрограммы

Имя = Выражение

EndFunction

Подпрограмма-функция вызывается в выражении по своему имени, за которым следует список аргументов в скобках:

 

Переменная = Имя подпрограммы-функции(Список аргументов)

 

Пример 1

Даны действительные числа s, t. Получить значение выражения

 

,

 

где

 

Программныйкод

 

Option Explicit

Sub PR31()

Dim s As Double

Dim t As Double

Dim f As Double

s = Val(InputBox("Введи s"))

t = Val(InputBox("Введи t"))

f = Q(1.2, s) + Q(t, s) – Q(2 * s – 1, s * t)

MsgBox("f=" & f)

End Sub

Private Function Q(ByVal a As Double, ByVal b As Double) As Double

Q = (a^2 + b^2) / (a^2 + 2 * a * b + 3 * b^2 + 4)

End Function