UC知道VFP程序改错
来源：百度知道 编辑：UC知道 时间：2024/05/15 10:41:58
找出1000之内所有的完数 并统计他们的个数 完数：数的各因子之和正好等于该数本身 如6的因子是1.2.3 1＋2＋3＝6
CLEAR
nCount=0
FOR n=1 to 1000
M=0
FOR n2=1 TO n1-1
IF n1/n2 = MOD(n1.n2)
m=m+n2
ENDIF
ENDIF
IF n1=m
?n1
nCount=nCount+1
ENDIF
ENDFOR
WAIT WINDOWS"完整的个数为"+STR(nCount)
CLEAR
nCount=0
FOR n=1 to 1000
M=0
FOR n2=1 TO n1-1
IF n1/n2 = MOD(n1.n2)
m=m+n2
ENDIF
ENDIF
IF n1=m
?n1
nCount=nCount+1
ENDIF
ENDFOR
WAIT WINDOWS"完整的个数为"+STR(nCount)
有三处错误，已做出标记，修改后的程序为：
CLEAR
nCount=0
FOR n1=1 to 1000 N1原为N
M=0
FOR n2=1 TO n1-1
IF n1/n2 = int(n1/n2) 原为MOD(n1.n2)
m=m+n2
ENDIF
ENDfor 原为ENDIF
IF n1=m
?n1
nCount=nCount+1
ENDIF
ENDFOR
WAIT WINDOWS"完整的个数为"+STR(nCount)