do while求素数的问题

[复制链接]

唏唏鉿鉿HJP

电梯直达

1^#

发表于 2010-1-10 23:57:08 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我是想输入一个数，然后给出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

收藏0