Page 163 - 4192

Програмний код:
Function f(a, c) As Single
f = a ^ 3 + c
End Function
Private Sub
Command1_Click()
Dim x, y, k, z As Single
x = Val(Text1)
y = Val(Text2)
k = Val(Text3)
z = f(x, -2) / f(y, -1) + f(k, 4)
Text4 = z
Рисунок 10.3 – End Sub
Розроблений інтерфейс Private Sub

та результат виконання Command2_Click()
програми End
End Sub
Приклад: Обчислити

Знайдемо спільне, що має цей вираз. Це –

Тому функцією - користувача буде вираз

де n,m,z,a – це
формальні параметри. Алгоритм викликаючої програми
та функції –користувача представлені на рис.10.4 та 10.5

162