我只会把素数找出来。求100以内的素数的个数和值我不会做。希望懂的大侠帮帮忙。
这是我做的

CLEAR
CREATE CURSOR TABA (NUM N(4),A C(2))
FOR I=1 TO 100
    B=IIF((INT(I/2)>1 AND I%2=0) OR (INT(I/3)>1 AND I%3=0) OR (INT(I/5)>1 AND I%5=0) OR (INT(I/7)>1 AND I%7=0),[√],[])
    INSERT INTO TABA VALUES(I,B)
ENDFOR
CALCULATE CNT(),SUM(NUM) TO X1,X2 FOR EMPTY(A)
? [100以内素数的个数：]+TRANSFORM(X1-1)
? [100以内素数的和数：]+TRANSFORM(X2-1)
BROWSE

[ 本帖最后由 sdta 于 2012-10-16 01:47 编辑 ]

收到的鲜花

• tlliqi 于 2012-10-16 07:32 送鲜花  10朵   附言：热心助人

CLEAR
s=0    &&计算素数的和数
k=0    &&计算素数的个数
FOR i=2 TO 100
mm=0 &&如果不是素数，让mk的值变成1
FOR j=2 TO i - 1
IF i % j=0
mm=1
EXIT
ENDIF  
NEXT
IF mm != 1 &&如果mm的值不是1，说明i是素数
s=s+i
k=k+1
*? i
ENDIF  
NEXT  
?'100以内素数的个数：'+STR(k,3)
?'100以内素数的和数：'+STR(s,4)

求素数的算法，书上滥了去，呵呵，不管用什么语言实现，思想都是一样的。

CLEAR
S=[]   &&显示素数
K=0    &&计算素数的个数
FOR I=2 TO 100
    IF NOT ((INT(I/2)>1 AND I%2=0) OR (INT(I/3)>1 AND I%3=0) OR (INT(I/5)>1 AND I%5=0) OR (INT(I/7)>1 AND I%7=0))
       S=S+[+]+TRANSFORM(I)
       K=K+1
    ENDIF
ENDFOR
?[素数【]+S+[】=]+TRANSFORM(EVALUATE(S))
?[100以内素数的个数：]+TRANSFORM(K) 

[ 本帖最后由 sdta 于 2012-10-16 12:09 编辑 ]

谢谢帮助。

谢谢帮助