步骤/方法
打开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=""