Текст програми – функції

Function Z(x As Single) As Single

Z = (1.4 + 2*x) / (1 + (2.5 + x + x ^ 2) ^ (1/3))

End Function

Текст процедури для виклику функції

Sub main ()

Dim x As Single, y As Single

x = InputBox("Введіть значення Х")

y = Z(x) ‘ Виклик функції

Worksheets("Лист1"). Cells(2, 1). Value = x

Worksheets("Лист1").Cells(2, 2).Value = y

End Sub

Процедури користувача

Синтаксис:

Sub Ім’я_Процедури (список аргументів)

Інструкції