Информатика. Основы программирования на VISUAL BASIC 6.0. Индришенок В.И - 8 стр.

                              10

       ...
       Dim B(3) As Double
       B(1)=1 : B(2)=3 : B(3)=5
       CALL SUM (B(),3,S) 'Обращение к процедуре SUM
       S=S/3
       ...
       End
       В данной программе использовано обращение в процедуре к
фактическому одномерному массиву B, состоящему из k элемен-
тов. При записи процедуры указывается размерность массива
(z(1)), а при ее вызове – имя массива с пустыми скобками (B()).
       Функция в отличие от процедуры возвращает в программу
значение, полученное путем выполнения оператора присвоения
вида: Имя_функции=значение. Функция, как и любая переменная,
имеет определенный тип. При этом значение может быть указано
внутри функции явно или получено в результате преобразований
(вычислений или вызова другой функции).
       Function Имя_функции(параметры) [As тип]
             …(операторы)
             Имя_функции=значение(выражение)
       End Function
       Функция вызывается указанием ее имени и параметров в
правой части какого-либо оператора или в сложном выражении
(т.е. там, где нужно получить ее значение):
       x = Имя_Функции(параметры)
П р и м е р : функция, определяющая факториал числа.
       'Начало описания функции Fact:
       Function Fact(bytN As Byte) As Integer
       Dim bytI As Byte
       Dim intFact As Integer
       For bytI=1 To bytN
             intFact=intFact*bytI
       Next bytI
       Fact=intFact
       End Function             'Конец описания функции Fact
       ...