Составить программу вычисления значения функции согласно предложенному варианту. Программу вычисления значения функции. Задание.

Sub f()

a = 0.266

x = 0.0831

alp = 42

y = Sin(alp) ^ 2 * (a ^ 2 + WorksheetFunction.Ln(x)) + Sin(alp)

MsgBox y

End Sub