Первая группа операторов - это программа Program1. Вторая группа операторов - описание функции Fact, которая рассчитывает факториал целого положительного числа N, являющегося формальным параметром.
В программе два обращения к функции Fact, С фактическими параметрами 12 и 10.
1. Обращение к функции Fact фигурирует в правой части оператора присваивания L=Fact(12). в результате выполнения этого оператора значение функции Fact при N=12 (Т. е. значение, возвращаемое функцией Fact в программу) присваивается переменной L.
2. Обращение к функции Fact фигурирует в арифметическом выражении 4.2 + Fact(10)/2. Значение этого арифметического выражения присваивается переменной W.
Описание пользовательской подпрограммы имеет следующий синтаксис:
Sub название (формальные_параметры)
Операторы
End Sub
где название - имя подпрограммы; формальные_параметры – имена параметров, перечисленные через запятую; операторы – блок операторов.
Имеется два эквивалентных оператора обращения к подпрограмме:
Call название (фактические_параметры)
|
|
Название фактические_параметры
где фактические_параметры - список фактических параметров, как в обращении к функции. При наличии ключевого слова Call список фактические_параметры заключается в скобки, в отсутствие Call скобки не ставятся.
Пример кода программы и описания подпрограммы, находящихся в одном модуле:
Sub Program2()
Dim аа As Single
Dim ЬЬ As Single
Dim eel As Single
Dim ес2 As Single
Dim сеЗ As Single
аа = З
bb = 4
Call Hypotenuse(aa, bb, сc1) 'l-e обращение к подпрограмме
Call Нуроtепusе(З, 4, сс2) '2-е обращение к подпрограмме
Hypotenuse аа, bb, cc3 'З-е обращение к подцрограмме
End Sub
Sub Hypotenuse (ByVal А, ByVal В, ByRef С)
С = Sqr(A^2+В^2)