说明: &&方程形式:aX^2+bX+c=0 a=thisform.text1.Value &&二次系数 b=thisform.text2.Value &&一次系数 c=thisform.text3.Value &&零次系数 IF a=0 AND b=0 MESSAGEBOX("无效方程式") RETURN ENDIF IF a=0 MESSAGEBOX("此为一元一次方程,根为:"+STR((0-c)/b,15,5)) ELSE DO case CASE b^2-4*a*c>0 d=(-b+S
<skywlper> 上传 | 大小:90kb