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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.