题目

下列程序是计算100以内素数之和,素数是大于1且只能被1和自己整除的自然数.要求：1、项目中有一个程序文件Pcode,件T盘中VFP01.TXT中的程序代码复制到其中并进行修改；2、在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目
SET TALK OFF
CLEAR
sum1=0
FOR i=2 TO 100
prime=.T.
FOR j=2 TO i-1
x05x05IF MOD(i,j)0
x05x05Prime=.F.
x05x05EXIT
x05x05ENDIF
x05ENDFOR
x05IF prime
x05x05?i
x05sum1=sum1+i
x05ENDIF
ENDFOR
"100以内素数之和为："+sum1
SET TALK ON
RETU

提问时间：2022-03-12

答案

SET TALK OFF
CLEAR
sum1=0
FOR i=2 TO 100
prime=.T.
FOR j=2 TO i-1
IF MOD(i,j)=0 && 修改1
Prime=.F.
EXIT
ENDIF
ENDFOR
IF prime
?i
sum1=sum1+i
ENDIF
ENDFOR
?"100以内素数之和为：",sum1 && 修改2
SET TALK ON
RETU