用Visual FoxPro语言编写求一元二次方程ax2+bx+c=0的解？

核心提示：一元二次方程的标准方程式为：

A*X的平方+B*X+C＝0

任何一个一元二次方程都能改为上面的样子，有无正解就要看 B的平方-4*A*C 是否小于0
小于0则无解，等于0则一个解，大于0则两个解。

以下使用VFP

input '请输入A值:' to a
input '请输入B值:' to b
input '请输入C值:' to c
x0=b*b-4*a*c
if x0<0
messagebox('该方程无解！')
return
endif
x1=(0-b+sqrt(x0))/(2*a)
x2=(0-b-sqrt(x0))/(2*a)
if x1=x2
messagebox('该方程有一个解：'+str(x1))
else
messagebox('该方程有二个解：'+chr(10)+str(x1)+chr(10)+str(x2))
endif

...
if then
elseif then
elseif then
else

basic的，抱歉

if b*b-4*a*c>=0
x1=(-b+sqrt(b*b-4*a*c))/2a
x2=(-b-sqrt(b*b-4*a*c))/2a
else
messagebox("没结果","提示")
exit
endif

不晓得是不是这样