&&方程形式：aX^2+bX+c=0 a=thisform.text1.Value&&二次系数 b=thisform.text2.Value&&一次系数 c=thisform.text3.Value&&零次系数 IFa=0ANDb=0 MESSAGEBOX("无效方程式") RETURN ENDIF IFa=0 MESSAGEBOX("此为一元一次方程，根为："+STR((0-c)/b,15,5)) ELSE DOcase CASEb^2-4*a*c>0 d=(-b+SQRT(b^2-4*a*c))/2*a e=(-b-SQRT(b^2-4