一元二次方程的程序 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