*主程序的调用中errors总是不为"".这是为什么呢？

[very2773029]

*主程序的调用中errors总是不为"".这是为什么呢？
CLEAR
SET TALK OFF

INPUT "请输入一元二次方程的系数A：" TO A
INPUT "请输入一元二次方程的系数B：" TO B
INPUT "请输入一元二次方程的系数C：" TO C
DO Result WITH A, B, C

IF errors <> ""
?errors
ELSE
?"一元二次方程的根为：x1 = ", ltrim(str(x1)), " x2 = ", ltrim(str(x2))
ENDIF

SET TALK ON
RETURN

PROCEDURE Result
PARAMETER A, B, C
PUBLIC x1
PUBLIC x2
PUBLIC errors
errors = ""
x1 = 0
x2 = 0
b24ac = B^2 - 4 * A * C
IF b24ac >= 0
x1 = (-B + SQRT(B^2 - 4 * A * C))/2 * A
x2 = (-B - SQRT(B^2 - 4 * A * C))/2 * A
ELSE
errors = "B平方减4乘A乘C的值小于零，所以不能开根号！"
ENDIF
RETURN

[Hewiit]

我测试结果
请输入一元二次方程的系数A：2
请输入一元二次方程的系数B：4
请输入一元二次方程的系数C：1
一元二次方程的根为：x1 = -1 x2 = -7

[dfwxj]

代码没问题，是你的测试数据不当

[dfwxj]

还有，声明“PUBLIC errors”应该当在主程序中进行

[LAIYANGPJ]

我以前也常遇到这方面的事,可不知为什么,你的程序不过程序一改就可以了如果你知道原因也告诉我:
IF errors <> ""
?errors
ELSE
?"一元二次方程的根为：x1 = ", ltrim(str(x1)), " x2 = ", ltrim(str(x2))
ENDIF
改为:
IF errors == ""
?"一元二次方程的根为：x1 = ", ltrim(str(x1)), " x2 = ", ltrim(str(x2))
ELSE
?ERRORS
ENDIF
或:IF LEN(ALTLRIM(errors)) <>0
?errors
ELSE
?"一元二次方程的根为：x1 = ", ltrim(str(x1)), " x2 = ", ltrim(str(x2))
ENDIF