LOCAL △,a,b,c,x1,x2
a=2
b=-8
c=-10

△=b*b-4*a*c
IF a=0 &&方程条件 a≠0，不是2次方程，但能解
   IF b=0
      MESSAGEBOX("你输入a=0,b=0,太多零",0,"太多领")
   ELSE   
      x1=-c/b
      x2=x1
   ENDIF
ELSE
  IF △>0
     x1=(-b+SQRT(△))/(2*a)
     x2=(-b-SQRT(△))/(2*a)
  ELSE  
     x1="∽"
     x2="∽"
  ENDIF
ENDIF

?x1,x2

学的会计的接本课程，别的还好，这个是真的不会呀，只看老师的讲解视频不明白呀

哎，好难感觉

参考上面代码，动手建一个程序运行验证一下。

SET TALK OFF
CLEAR
M=1
Q=1
FOR i=2 TO 5
    FOR j=1 TO i
        Q=Q*j
    ENDFOR
    M=M+Q
    ?"i=",i
    ?"M!=",M
    Q=1
ENDFOR
?
?"1！+2！+….+5！=",ALLTRIM(STR(M,10))