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

作者:追风筝的人 | 创建时间: 2023-07-12
在VFP中也可以做个自动计算一元二次方程的解的程序,只要你输入A,B,C三个系数,然后按一下开始计算按纽,则两个根就可以分别帮你算出来了。 效果图如下:...
怎样用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=""

温馨提示

(1)掌握本教程之前必须先掌握一点VFP表单控件的基本知识 (2)注意图片中所标的T1表示text1,C1是指command1
点击展开全文

更多推荐