Лекция: Private Sub pp1()

Dim y As Single, a As Single, x As Single

a = Val(InputBox(«Введіть а»))

x = Val(InputBox(«Введіть x»))

y = (max(3.5, x + a) + max(x, a)) / max(x ^ 2, 120)

MsgBox «y=» & y

End Sub

Private Function max(b As Single, c As Single) As Single

If b > c Then max = b Else max = c

End Function

Приклад 2. Обчислити C =, деn>m. Визначення факторіала виконати в процедурі Function.

Private Sub pp2()

Dim n As Integer, m As Integer, c As Single

n = Val(InputBox(«Введіть n»))

m = Val(InputBox(«Введіть m»))

c = fact(n) / (fact(m) * fact(n — m))

MsgBox «c=» & c