Вопрос где моя ошибка при програмировании vba F(X)=EXP(X/97)-EXP((500-X)/97)-40*SIN(2*X*PI/180)+60*COS(6*X*

[егор2222]

X ОТ 100-500, ПЕРЕСЕЧЕНИЕ С A=167 ПОГРЕШНОСТЬ 0,001, Я НАПИСАЛА
Const PI =3.141592653
Const ni=100
const ki=500
const c=167
sub korni()
Dim x As Double
Dim y as Double
Dim Row As Ingteger
Row=10
Sheets("корни").Select
For x=ni To ki Step10
y=Round(exp(x/97)-exp((500-x)/97)-40*sin(2*x*pi/180)+60*cos(6*x*pi/180).3)
if y=cThen
Row=Row+1
Cells(Row,1).Value=x
x=x+1
End If
Next x
End Sub
где моя ошибка ,

 

[Antonei]

Неправильно размер