怎样用VFP做一个解一元二次方程的程序

打开VFP，文件——新建——表单——新建立文件，如下图：

然后根据效果图，添加好，各个控件。

如：

lable1在属性中设置它的caption属性为'求一元二次方程的解'，字号为18号，加粗 lable2在属性中设置它的caption属性为'X'

lable3在属性中设置它的caption属性为'2'

lable4在属性中设置它的caption属性为'+'

lable5在属性中设置它的caption属性为'X+'

lable6在属性中设置它的caption属性为'=0'

lable7在属性中设置它的caption属性为'X1='

lable8在属性中设置它的caption属性为'X2='

text1在属性中设置它的value属性为' '

text2在属性中设置它的value属性为' ' text3在属性中设置它的value属性为' '

text4在属性中设置它的value属性为'此处显示结果' text5在属性中设置它的value属性为'此处显示结果'

command1在属性中设置它的caption属性为'开始计算'

command2在属性中设置它的caption属性为'复位'

如图：

对C1的Click过程编程：

a=val(thisform.text1.value)

b=val(thisform.text2.value)

c=val(thisform.text3.value)

k=sqrt(b*b-4*a*c)

m=str(round((-b+k)/2*a),8)

n=str(round((-b-k)/2*a),8)

thisform.text4.value=m

thisform.text4.value=n

对C2的Click过程编程：

thisform.text1.value=''

thisform.text2.value=''

thisform.text3.value=''

thisform.text4.value=''

thisform.text5.value=''END