level 2
Mod
2016年05月04日 13点05分
level 12
dim strprime as strin="1,2,3,"
for i as int16=4 to 100
dim isend as boolean =true
for j as int16=2 to cint(Math.Sqrt(x))
if i mod j=0 then
isend=false
exit for
end
next
if isend then
strprime &=i &","
end if
next
msgbox "1-100质数如下：" & strprime
2016年05月05日 01点05分
3
for i as int16=4 to 100
dim isend as boolean =true
for j as int16=2 to cint(Math.Sqrt(x))
if i mod j=0 then
isend=false
exit for
end
next
if isend then
strprime &=i &","
end if
next
msgbox "1-100质数如下：" & strprime
level 2
