如题，我试了，貌似还不会用for来做

1分太少了

新人，分不多，帮帮忙啊，亲

貌似不难吧

set talk off
for i=3 to 100
   yinzi=0
   for j=1 to i
     if mod(i, j) = 0
         yinzi=yinzi+1
     endif   
   endfor
   if yinzi=2
     ?i
   endif
endfor

程序没有大的问题，有些地方需要改进一下：1)因为质数肯定是奇数，所以“FOR I=3 TO 100”后面可以加一句“STEP 2”，以跳过没必要验证的偶数；2)内循环方面，不需要从1到数字本身。根据质数的定义，一个数除了能被1和本身整除外，不能被其它任何数字整除，该数就是质数。所以内循环的起始点可以设为2。另外，后面的“TO I”可以改成“TO INT(SQRT(I))”就可以了，没必要循环到I。只要该数除以从2到其平方根的取整结果为止，无法整除的，该数即为质数。

CLEAR
LCSTR=[3,5,7,]
NUM=3
FOR I=3 TO 100 STEP 2
    IF MOD(I,3)!=0 AND MOD(I,5)!=0 AND MOD(I,7)!=0
       LCSTR=LCSTR+TRANSFORM(I)+[,]
       NUM=NUM+1
    ENDIF
ENDFOR
?[共有质数：]+TRANSFORM(NUM)+[ 个 ]+'【'+LEFT(LCSTR,LEN(LCSTR)-1)+'】'

[ 本帖最后由 bccn201203 于 2013-3-26 00:14 编辑 ]

我这个只求 简单  
首先思路简单  其次代码简单  第三，因为他只要求100以内的 所以多循环几次  人类是感觉不到有啥差别的