标题: do while求素数的问题 [打印本页] 作者: 唏唏鉿鉿HJP 时间: 2010-1-10 23:57 标题: do while求素数的问题 我是想输入一个数，然后给出1到这个数之间的所有的素数。
问题是，当我运行的时候无论输入几都会提示： 是否停止运行此脚本？此页面上的脚本造成IE运行速度减慢。如果继续运行，您的计算机可能停止相应。
这是怎么回事啊？是代码里哪错了吗？
sub showmessage
dim i,flag,j,result,n
result=""
n=inputbox("请输入一个数字：","输入数字")
i=3
Do While i<=n
flag=1
j=2
Do While j<=i-1
If i mod j=0 then
flag=0
exit Do
End If
j=j+1
loop
If flag=1 then
result=result & i & ","
End If
i=i+1
loop
msgbox "1到"&n&"之间的素数有1,2," & result
end sub
call showmessage作者: 下眩月 时间: 2010-3-18 13:05
偶学习的对像★：魔女在世、希★望