怎样用VFP做一个解一元二次方程的程序
在VFP中也可以做个自动计算一元二次方程的解的程序，只要你输入A，B，C三个系数，然后按一下开始计算按纽，则两个根就可以分别帮你算出来了。
效果图如下：
步骤/方法
- 01
打开VFP，文件——新建——表单——新建立文件，如下图：
- 02
然后根据效果图，添加好，各个控件。
- 03
如：
- 04
lable1在属性中设置它的caption属性为"求一元二次方程的解"，字号为18号，加粗 lable2在属性中设置它的caption属性为"X"
- 05
lable3在属性中设置它的caption属性为"2"
- 06
lable4在属性中设置它的caption属性为"+"
- 07
lable5在属性中设置它的caption属性为"X+"
- 08
lable6在属性中设置它的caption属性为"=0"
- 09
lable7在属性中设置它的caption属性为"X1="
- 10
lable8在属性中设置它的caption属性为"X2="
- 11
text1在属性中设置它的value属性为" "
- 12
text2在属性中设置它的value属性为" " text3在属性中设置它的value属性为" "
- 13
text4在属性中设置它的value属性为"此处显示结果" text5在属性中设置它的value属性为"此处显示结果"
- 14
command1在属性中设置它的caption属性为"开始计算"
- 15
command2在属性中设置它的caption属性为"复位"
- 16
如图：
- 17
对C1的Click过程编程：
- 18
a=val(thisform.text1.value)
- 19
b=val(thisform.text2.value)
- 20
c=val(thisform.text3.value)
- 21
k=sqrt(b*b-4*a*c)
- 22
m=str(round((-b+k)/2*a),8)
- 23
n=str(round((-b-k)/2*a),8)
- 24
thisform.text4.value=m
- 25
thisform.text4.value=n
- 26
对C2的Click过程编程：
- 27
thisform.text1.value=""
- 28
thisform.text2.value=""
- 29
thisform.text3.value=""
- 30
thisform.text4.value=""
- 31
thisform.text5.value=""