Табулирование функции

[Elonu]

Здраствуйте,уважаемые программисты!вот 3 день не могу решить задачу по табулированию функции задача очень простая.проблемы с макросом.

На интервале 0,011<a<0,874 с шагом дельта А=0,312 для каждого b из интервала 0,014 <b<0,021 с шагом дельта В = 0,001 протабулировать функцию с = аrcos A+B/x
x = InputBox("Введите значение x")
A = 0.011
b = 0.014
For A = 0.011 To 0.874 Step 0.312
c = Acos((A + b) / x)
For b = 0.014 To 0.021 Step 0.01
c = Acos((A + b) / x)
Cells(i, 1).Value = c
i = i + 1
Next b
Next A

[reynevan]

не совсем понял, что хотели, но в коде явно надо
For A = 0.011 To 0.874 Step 0.312
c = Acos((A + b) / x)
For b = 0.014 To 0.021 Step 0.01
c = Acos((A + b) / x)

изменить на
For A = 0.011 To 0.874 Step 0.312
For b = 0.014 To 0.021 Step 0.01
c = Acos((A + b) / x)

[Elonu]

Спасибо большое,я изменила.теперь у меня почему то расчет макроса не идет.выделяется асоs.хотя вроде бы все ввожу правильно..

[reynevan]

c=WorksheetFunction.Acos((A + b) / x)
сам не знал, нашел в гугле

[Elonu]

ясненько..спасибо Вам!