vfp编程1到1000的素数之和

clear
s=0

for x=1 to 1000
y=int(sqrt(x))
for i=2 to y
if mod(x,i)=0
exit
endif
endfor
if i>y
s=s+x
endif
endfor

?s

说明：我用 x=1 to 10 算了一下，和是18是正确的，然后换成了 x=1 to 1000

n=0
s=0
for x=1 to 1000
m=0
for y=1 to x
if x%y=0
m=m+1
endif
endfor
if m=2 &&如果取模为0只有两个,表示只有 他本身和1,为素数
n=n+1 &&求个数
s=s+x &&求和
??x &&显示为素数
endif
endfor
?s,n &&显示素数的和和个数

s=0
s1=0
for i=1 to 1000
for j=1 to i
if i%j=0
s1=s1+1
endif
endfor
if s1=2
s=s+i
endif
endfor
?s

程序如下，希望对你有所帮助：
set talk off
clear
? "欢迎使用本程序！计算1000以内的素数之和"
?
a = 2 + 3
for m = 5 to 999 step 2
for n = 2 to int[m^(1/2)] + 1
i