求助!!!关于VB语言的问题
用VBscript语言编程
求出1-100的所有质数
万分感谢!
参考答案:我会用VB,不过VB和VBscript差不多,你稍微改一下即可
dim i,j,s,is as long
for i = 1 to 100
s=int(sqr(i))
is=1
for j=1 to s
if i mod j =0 then
is=0
next j
end if
if is=0 then
print i
end if
next i
用VBscript语言编程
求出1-100的所有质数
万分感谢!
参考答案:我会用VB,不过VB和VBscript差不多,你稍微改一下即可
dim i,j,s,is as long
for i = 1 to 100
s=int(sqr(i))
is=1
for j=1 to s
if i mod j =0 then
is=0
next j
end if
if is=0 then
print i
end if
next i