vfp设计一个程序,一个数除以1 ，3， 5 ，7 显示能被整除的个数有几个

vfp设计一个程序,一个数除以1 ，3， 5 ，7 显示能被整除的个数有几个

你的问题不明确, 是让用户输入一个数,然后检查能被1,3,5,7中的几个整除
还是某个范围(比如100-999)里的数有几个能同时被1,3,5,7整除?

据猜测前者的可能性较大,参考代码如下:
input '请输入一个数:' to n
c=0
if mod(n,1)=0
c=c+1
endif
if mod(n,3)=0
c=c+1
endif
if mod(n,5)=0
c=c+1
endif
if mod(n,7)=0
c=c+1
endif
?孩筏粉禾莠鼓疯态弗卡9;能被整除的个数是:',c

后者的代码也写上吧:
c=0
for i=100 to 999
if mod(n,1)=0 and mod(n,3)=0 and mod(n,5)=0 and mod(n,7)=0
c=c+1
endif
endfor
?'结果是:',c

这里的被1整除有啥用呢, 所有整数都可以被1整除啊

clear 1. set talk off n=0 s=0 for i=1 孩筏粉禾莠鼓疯态弗卡to 1000 if i%3=0 and i%7=0 n=n+1 s=s+i endif endfor ?"1-1000能同时被3和7整除的数有"+allt(str(n))+"个" ?"它们的和是:"+allt(str(s)) set talk on 2. set talk off for a=1 to 9 for b=0 to 9