Написать программу в VBA в Access Задача: Написать программу, вычисляющую значение...

Question

Написать программу в VBA в Access
Задача: Написать программу, вычисляющую значение функции y, если
y=2a+x2 при x>0
y=3b+3a при x=0
y=sinx+a при x<0

Answer 1

Sub F()
Dim a As Double, b As Double, x As Double, y As Double
a = InputBox("Введите a")
b = InputBox("Введите b")
x = InputBox("Введите x")
If x > 0 Then y = 2*a + x*x
If x = 0 Then y = 3*b + 3*a
If x < 0 Then y = Sin(x) + a
MsgBox (y)
End Sub