http://hi.baidu.com/new114/blog/item/b16a86dda3b2c1df8c10292e.html

这这这，太慢了

你可以用“筛法求质数”CLSINPUT n{n用来输入范围，例：10000就是一万以内}DIM a(n)FOR i = 2 TO SQR(n)IF a(i) = 0 THENFOR j = i * 2 TO n STEP ia(j) = 1NEXT jEND IFNEXT iFOR i = 2 TO nIF a(i) = 0 THEN PRINT USING "#####"; i;NEXT iEND