End Sub. 'Функция вычисления суммы n элементов массива m

'Функция вычисления суммы n элементов массива m.

'Формальные параметры: n – количество элементов массива,m - массив

Private Function Sum(n As Integer, m) As Integer

Dim i As Integer

Sum = 0

For i = 0 To n - 1

Sum = Sum + m(i)

Next i

End Function

Private Sub Command1_Click()

Dim i As Integer

n = Val(Text1.Text) 'Количество элементов массивов

ReDim a(n) 'Задание количества элементов массива a

ReDim b(n) ' Задание количества элементов массива b

'Обращение к процедуре. Фактические параметры: промежуток [-10,10], n – количество 'элементов массива, x - массив

Vd -10, 10, n, x

Vd -5, 5, n, y

'Вычисление значения результата. Sum(n, a) – обращение к функции. Фактические 'параметры: n – количество 'элементов массива, a - массив

Text3.Text = Str(Sum(n, x)* Sum(n, y) / (Sum(n, x)+

Sum(n, y)))

End Sub

Здесь дважды вызывается процедура

Vd(a As Integer,b As Integer,n As Integer, x)

заполнения массива случайными числами. Первый раз в нее передаются фактические значения для формальных параметров a, b и n соответственно равные –10, 10, n, при этом результат сохраняется как значение переменной массива x. Во второй раз передаются значения параметров –5, 5, n, а результат сохраняется как значение переменной массива y. Функция Sum(n As Integer, x) As Integer вызывается в операторе присваивания при вычислении искомого значения S.