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
?'能被整除的个数是:',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
for c=0 to 9
if 100*a+10*b+c=a*a*a+b*b*b+c*c*c
? 100*a+10*b+c
endif
next c
next b
next a
return
set talk on

3.
clear
set talk off
input "请输入年份:"to n
msg="年不是闰年"
if mod(n,4)=0 and mod(n,100)<>0 or mod(n,400)=0
msg="年是闰年"

endif
?n,msg
set talk on