VF 编写程序 求600到900之间素数的和

VF 编写程序 求600到900之间素数的和

SET TALK OFF
s=0
for i=600 to 900
m=sqrt(i)
for j=2 to m
if i % j=0 then
exit
endif
endfor
if j>m
s=s+i
endif
endfor
?"600到900之间素数的和是：",s
SET TALK ON
RETURN

dime a(200) &&建立一个存放素数的数组
m=2 &&素数的个数
a(1)=1
a(2)=2
for i=600 to 900
m=m+1
a(m)=i &&先假设这个数是素数
for n=2 to i-1 &&在小于这个数中找因数
if mod(i,n)=0 &&如果不是素数
m=m-1 &&把这个数覆盖掉
exit
endif
endfor
endfor
sum_h=0
for p=1 to m &&显示这些素数
sum_h=a(p)+sum_h &&素数和
endfor

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息