Что за проблема с программой в VB

[Женька Good]

Вот кусок программы:

an = Cells(2, 1)
ak = Cells(2, 2)
ah = Cells(2, 3)
bn = Cells(2, 5)
bk = Cells(2, 6)
bh = Cells(2, 7)
c = Cells(2, 9)
Cells(4, 2) = "a="
Cells(4, 3) = "b="
Cells(4, 4) = "x1="
Cells(4, 5) = "x2="
i = 5
For a = an To ak Step ah
For b = bn To bk Step bh
x1 = (-b + Sqr(b ^ 2 - 4 * c * a)) / (2 * a)
x2 = a - b
Cells(i, 2) = a
Cells(i, 3) = b
Cells(i, 4) = x1
Cells(i, 5) = x2
i = i + 1
Next b
Next a

an,ak,ah,bn,bk,bh,c у меня в таблице excel задано.
Не работает вот что:
нижеуказанная формула для вычисления корней квадратного у-я или что-то типа того...
когда я добавляю в формуле a именно вот это а пишет 5 ошибку Invalid procedure call or argument. не пойму что ему надо
x1 = (-b + Sqr(b ^ 2 - 4 * c * a)) / (2 * a)
помогите плз

[DiemonStar]

c = Cells(2, 9)

скорее всего, у вас с типа variant, т.е. результат

4 * c * a

может быть не обязательно числом

[ViktorR]

Функция Sqr(x) - корень квадратный.
Эта функция определена только для x>=0. Т.о. надо строить алгоритм по другому:

D=b ^ 2 - 4 * c * a ' Дискриминант
If D<0 then ' выводим сообщение
  'Корней не существует'
else ' вычисляем
 ...
end if

Конечно же, можно сообщить и о комплексных корнях, когда D<0.
Но это отдельная тема.


Как то так ...