Question

Помогиле пожалуйста записать эту формулу в вба

Answer 1

Function ArcSin(x As Double) As Double
    Dim Pi As Double
    Pi2 = 2 * Atn(1)
    Select Case x
    Case -1
        ArcSin = -Pi2
    Case 1
        ArcSin = Pi2
    Case x > -1 And x < 1
        ArcSin = Atn(x / Sqr(1 - x ^ 2))
    Case Else
        MsgBox "Недопустимое значение арксинуса " & CStr(x)
        ArcSin = 1
    End Select
End Function

Sub aaa()
    Dim a As Double, x As Double, z As Double, y As Double
    a = CDbl(InputBox("Задайте значение a"))
    x = a ^ 2 + 3
    z = Sin(a) + 5
    y = Exp(Sin(x) ^ 2) * Log(Abs(ArcSin(x))) / (z - 1)
    MsgBox "y=" & CStr(y)
End Sub

Значение y не будет вычислено никогда!
x ≥ 3, а у арксинуса аргумент не может быть больше 1.