填空题 下列程序(由17行语句组成)的功能是找出101~100000之间所有符合下列条件的数:该数等于其各位数字的阶乘之和。但程序运行时提示程序的第4行有错,第4行语句应修改为 1
FOR i=101 TO 100000
p=0
c=ALLT(STR(i))
FOR j=1 TO i
p=p+jc(VAL(SUBSTR(c, j, 1)))
ENDFOR
IF i=p
?i
ENDIF
ENDFOR
FUNCTl0N jc &&该函数的功能是求x的阶乘
PARAMETER x
s=1
FOR n=1 to x
s=s*n
ENDFOR
RETURN s
【正确答案】
【答案解析】FOR j=1 TO LEN(c)或FOR j=1 TO LEN(ALLT(STR(i)))