vfp编程计算1~1000中能同时被3和7整除时的个数及和并输出结果

Answer 1

CLEAR
S=0
C=0
FOR I=1 TO 1000
    IF MOD(I,3)=0 AND MOD(I,7)=0
        C=C+1
        S=S+I 
    ENDIF
ENDFOR
?"能同时被 3 和 7 整除的数个数为："+STR(C,4)+" 和为："+STR(S,6)