还是一道编程题!~~~

来源:百度知道 编辑:UC知道 时间:2024/06/17 10:04:58
求100以内的素数。判断素数的算法:对于m,从i=1,2,3.。。。。。m-1判别m能否被i 整除。只要有一个能整除那么m就不是素数。否则就是

还是access的题。。。。快啊!!!!!!!!!!!!!!!!!!!
还是不行啊。~~~~~~~天啊 救命啊!!!!!!!!!!!!!!!!!!

dim i,j,k
for i=1 to 100
for j=1 to i
if i mod j=0 then
k=k+1
end if
next
if k < 3 then
response.Write(i&"<br>")
end if
k=0
next

dim m as integer,i as integer,m as integer,y as boolen
provate sub form_load()
form1.autoredraw=true
print "1--100的素数是:"
Print 2;
m=1
for m=3 to 100
for i=2 to i-1
if m mod i = 0 then
y=false
exit for
else
y=true
end if
next
if y=true then
print m;
m=m+1
if m mod 10=0 then print
next
print
print "共有:";m;"个素数"
end sub

main()
{
int i,j;
for(i=1,i<101,i++)
{
for(j=1,j<i,j++)
if(i%j!=0)
{printf(%d,i);
break;}
}
}

好久没有编程标点也不知道对不。