**计算1~n的整数和.PRG
CLEAR
S=0
INPUT"请输入要加到的数："TO DJ
dj=val(dj)
N=1
DO WHILE N<=DJ
    S=S+N
    N=N+1
ENDDO
?"1至",DJ"的整数和为：",S
RETURN

** 正确代码如下:

**计算1~n的整数和.PRG
CLEAR
S=0
INPUT"请输入要加到的数："TO DJ
* dj=val(dj)  && 本身可直接数值型,删
N=1
DO WHILE N<=DJ
    S=S+N
    N=N+1
ENDDO
?"1至",DJ,"的整数和为：",S   && 少逗号
RETURN

**计算1~n的整数和.PRG
CLEAR
INPUT"请输入要加到的数："TO DJ
if type('dj')='N' and dj>0 and int(dj)=dj
  S=0
  for n=1 to dj
    S=S+N
  endfor
  ?"1至",DJ,"的整数和为：",S
else
  ?'您输入的N值有误，无法计算'
endif
RETURN