使用VFP编写程序,要求输出0-100之间所有的素数

按你的题目要求。可参考我早日的另一答案。

修改范围300为100，弃掉求和语句，就符合你的题目了。

----- ----- --------

**素数即是质数。指在一个大于1的自然数中，除了1和此整数自身外，没法被其他自然数整除的数。程序中使用函数int(i/j)是否整除，进行判别。同理也可使用mod(i/j)=0。

clear

set talk off

?" 300以内的素数有： "

s=0

for i=2 to 300

x=0

for j=2 to i-1

if i/j=int(i/j)

x=1

endif

endfor

if x=0

?? i

s=s+i

endif

endfor

?" 300以内的素数的和是：",s

set talk on

cancel

for i=1 to 100

l=.t. &&指示i是否为质数的指针变量, 默认是质数

for j=2 to i-1

if mod(i,j)=0

l=.f. &&如果能被2到i-1整除,就不是质数

endif

endfor

if l and (i/10-int(i/10))*10=3 &&如果是质数, 而且个位数是3

?i

endif

endfor

input "请输入一个数：" to n

?"这些质数有："

s=0

for i=2 to n

x=0

for j=2 to i-1

if i/j=int(i/j)

x=1

endif

endfor

if x=0

?alltrim(str(i))+" "

s=s+i

endif

endfor

?"它们的和：",s