Помогите решить задачки по VBA (за спасибо или wmr)

[hellp123]

Составить программу вычисления значений функции при заданных значениях аргументов.
Ввод данных осуществлять с рабочего листа Excel , вывод на рабочий лист Excel . суму кубов трёх чисел.

http://i077.radikal.ru/0905/0a/a5a913d78d71.jpg

Составить программу вычисления суммы (производных) с передачей резкльтата на лист

http://s60.radikal.ru/i168/0905/b8/3b78a79cd057.gif

Составить программу вычисления значения функции при заданных значениях аргументов. Ввод данных осуществлять с рабочего листа excel , вывод на рабочий лист excel.

http://s45.radikal.ru/i107/0905/35/51b5c224c595.jpg

Составить программу вычисления суммы (произведения) с передачей результатов на лист excel

http://s40.radikal.ru/i089/0905/0e/e302069b8afe.gif

за получением блогодарности в виде wmr стукайте в 426495592
п.с. за все 4 задачи готов дать 500р

[doober]

не могу достучаться

[hellp123]

Сообщение от doober

не могу достучаться

стучи я в сити

[EducatedFool]

Вот весь код для первой задачи:

Function A(x) As Double
    A = 9.8 * (Atn(Abs(Exp(2 * x ^ 3) - 0.25))) ^ 2
End Function
Function B(x) As Double
    B = (WorksheetFunction.Log10(5.3 * x)) ^ 3
End Function
Function C(x, y) As Double
    C = ((Cos(9 * Abs(x - y))) ^ 3) / (5 * x * y)
End Function

Sub main()
    x = CDbl([c7]): y = CDbl([c9])
    [f7] = A(x): [f8] = B(x): [f9] = C(x, y): [f11] = [f7] ^ 3 + [f8] ^ 3 + [f9] ^ 3
End Sub

Пример во вложении: