下列程序是计算100以内素数之和,素数是大于1且只能被1和自己整除的自然数.要求：1、项目中有一个程序文件Pcode,件T盘中VFP01.TXT中的程序代码复制到其中并进行修改；2、在修改程序时,不允许修改程序的总体框架和算法,不允许增加或
问题描述：
下列程序是计算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
\x05\x05IF MOD(i,j)0
\x05\x05Prime=.F.
\x05\x05EXIT
\x05\x05ENDIF
\x05ENDFOR
\x05IF prime
\x05\x05?i
\x05sum1=sum1+i
\x05ENDIF
ENDFOR
"100以内素数之和为："+sum1
SET TALK ON
RETU
答
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