搜搜做题作业网用VF求10000000以内质数
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/07/09 12:25:33
用VF求10000000以内质数
求1到10000000的所有质数,没搞错吧,运行起来电脑都要搞死机,不过还是把程序给你吧.
clear
"1到10000000之内的所有素数："
for i=2 to 10000000
x=0
for j=2 to i-1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
alltrim(str(i))+space(2)
endif
endfo
clear
"1到10000000之内的所有素数："
for i=2 to 10000000
x=0
for j=2 to i-1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
alltrim(str(i))+space(2)
endif
endfo