End Sub. Dim i As Integer, p As Single

Процедура Sub.

End Function

Next I

Dim i As Integer, p As Single

Private Function fact(n As Integer) As Single

p = 1

For i = 1 To n

p =p * i

fact=p

Синтаксис процедури Sub:

[Private ½Public ½Static] Sub Ім'я([Список аргументів])

Блок операторів

Загаловок Sub аналогічний заголовку Function, тільки в процедурі Sub не вказується тип процедури.

Процедура Sub не повертає значення, присвоює її імені, як це робить процедура Function, однак як і Function, Sub може змінювати значення аргументів, переданих до неї. Тому, якщо процедура Sub призначена для розрахунку якихось величин, то в списку аргументів процедури Sub повинні бути присутнім як вхідні аргументи, так і вихідні.

Процедура Sub, на відміну від Function, не може бути викликана по імені функції усередині виразу. Для її виклику використовується окремий оператор. Застосовуються 2 модифікації виклику:

1) Call Ім'я (Список аргументів )

2) Ім'я Список аргументів

Приклад 3. Знайти напівсуму довжин двох векторів З=(c₁,c₂,c₃,c₄) і D=(d₁,d_2,d₃,d₄,d₅). Обчислення довжини вектора оформити, як процедуру Sub.

Позначення в процедурі обчислення довжини вектора: srv - ім'я процедури, x - вхідний масив з n елементами, s -довжина вектора. Позначення в основній процедурі: s1 - довжина вектора C, s2 - довжина вектора D.

Sub pp3()

Дата добавления: 2014-01-07