ПОМОГИТЕ ПОЖАЛУЙСТА решить в VBA и вывести в excel

Question

ПОМОГИТЕ ПОЖАЛУЙСТА решить в VBA и вывести в excel

---

Answer 1

Sub p1()
    Dim x As Double, y As Double
    x = InputBox("Введите x")
    y = InputBox("Введите y")
    Cells(3, 1) = x * y / (x + y) * Atn((1 - x ^ 2 * y ^ 2) ^ -0.5) 'Вывод в A3
End Sub