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
Читайте також: - Private Function F1(a As Single, ParamArray x) As Single
- Private Sub spravka_Click(Index As Integer)
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|