用VF求10000000以内质数

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/24 14:13:35
用VF求10000000以内质数用VF求10000000以内质数用VF求10000000以内质数求1到10000000的所有质数,没搞错吧,运行起来电脑都要搞死机,不过还是把程序给你吧.clear"1

用VF求10000000以内质数
用VF求10000000以内质数

用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
endfor