怎样用VFP在表单中做一个解一元二次方程的程序 aX^2+bX+C=0 求详细过程！！！

一元二次方程的程序 aX^2+bX+C=0的求根公式：x=(-b±√b^2-4ac)/2a
解方程条件：b^2-4ac>=0

VFP简单程序，在命令按钮（command）属性“Click”事件中加入以下语句：

input "请输入a：" to a
input "请输入b：" to b
input "请输入c：" to c
pd=b*b-4*a*c &&先计算b^2-4ac

IF pd>=0 &&判断方程是否有解（b^2-4ac>=0有解）
x1=(-b+sqrt(pd))/2*a &&计算方程的第一个解" -b+√b^2-4ac)/2a "
x2=(-b-sqrt(pd))/2*a &&计算方程的第二个解" -b-√b^2-4ac)/2a "
?"x1=：",x1 &&显示方程的第一个解
?"x2=：",x2 &&显示方程的第二个解
ELSE
messagebox("b^2-4ac<0，方程无解",0,"提 示")
ENDIF

可以把 input 输入 改为文本框(Text)输入，？显示改为文本框显示更好些。
在表单中建立5个文本框(Text1－5)和一个命令按钮（command）
在命令按钮（command）属性“Click”事件中加入以下语句
a=thisform.Text1.value
b=thisform.Text2.value
c=thisform.Text3.value
pd=b*b-4*a*c &&先计算b^2-4ac

IF pd>=0 &&判断方程是否有解（b^2-4ac>=0有解）
x1=(-b+sqrt(pd))/2*a &&计算方程的第一个解" -b+√b^2-4ac)/2a "
x2=(-b-sqrt(pd))/2*a &&计算方程的第二个解" -b-√b^2-4ac)/2a "
thisform.Text4.value=x1 &&显示方程的第一个解
thisform.Text5.value=x2 &&显示方程的第二个解
ELSE
messagebox("b^2-4ac<0，方程无解",0,"提 示")
ENDIF

当文本框(Text1－3)都输入数字后，按命令按钮（command）就在文本框(Text4－5)中显示方程的解了。