Page 28 - 6735

Public Sub Sum4(A, b As Integer, Optional c As Integer =
1)
'якщо не вказано C і A=0, вийти з процедури
If IsMissing(c) And A = 0 Then Exit Sub
Debug.Print A + b + c 'вивести суму
End Sub

'Процедура Sum5
Public Sub Sum5(A As Integer, ParamArray z()) 'необмежена
кількість параметрів
For i = LBound(z) To UBound(z)
z(i) = z(i) + A 'додати до кожного параметра A
Next i
End Sub
5
3 1
10 10 10
6
4 2

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

Підпрограма-функція (або просто функція) подібна на
процедуру Sub, але описується за допомогою слова Function і
може повертати значення. Для прикладу щоб функція f(x)
2
повертала значення x в її тілі повинна бути команда f=x*x. Якщо
таку функцію викликати командою y=f(2), то змінній y буде
присвоєно 4.

Dim y As Integer

'Головна підпрограма-процедура main
Public Sub main()
y = Sum(2, 3) 'присвоїти 'y' значення функції Sum із
параметрами 2, 3
Debug.Print y 'вивести 'y'
Debug.Print Sum2() 'результат: 1
28