VFP程序设计题（附参考答案）范茂华
1．求1到2000之间，能被3或7整除，并且含有数字5的整数的个数、它们的和、它们的平方根的和（保留2位小数）、以及它们的平方和。clearstore0to
s1s2s3fori1to2000
ifmodi30ori70a
d‘5’stri
1s1s1is2s2sqrtis3s3i2
e
dif
ext“个数：”
”和：”s1”平方根和：”s2”平方和：”s3retur
2．求能被3整除且至少有一位数字为5的三位数的个数。clear
0fori100to999
ifi30a
d5stri
1
e
dif
ext
retur
3．求出只要能被2，7，9之一整除的800以内的正整数的个数。clear
0fori1to800
ifi30ori70ori90
1
e
dif
ext
retur
4．求105，625间能同时被7和11整除的自然数之和。求200，600间奇数之和。clears0fori105to625
ifi70a
di110ssi
fe
dif
extsretur
5．编程序求出1000到2000之间同时满足除3余2和除5余3条件的数的个数。clear
0fori1000to2000
ifi32a
di53
1
e
dif
ext“个数：”
retur
6．输出10100中除以17的余数和除以5的商相等的整数的个数。clear
0fori10to100
ifi17i
ti5
1
e
dif
ext“个数：”
retur
7．统计区间1000，9999内所有能被3整除，且千位数字与个位数字之和为8的整数的个数。clear
0fori1000to9999
gwi10qwi
ti1000ifi30a
dgwqw8

1e
dif
ext“个数：”
retur
8．求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。clears0fori1000to9999gwi10swi
ti1010bwi
ti10010
fqwi
ti1000ifi20a
dgwswbwqw250
ssie
dif
ext“和：”
retur
9．求出所有能被17整除且不含重复数字的三位数的和。clears0fori100to999gwi10swi
ti1010bwi
ti100ifi170a
dgwswa
dswbwa
dbwgw
ssie
dif
ext“和：”
retur
10．求1到500的偶数立方和与奇数立方和之差。clears10s20fori1to500ifi20
s1s1i3else
s2s2i3e
dif
ext“偶数立方和与奇数立方和之差为：”s1s2retur
11．求392781243这样的数之和若累加数大于500时则结束累加clears0
1dowhiletss3
ifs500
exite
dif
f
1e
ddosretur
12．求1357911这样的奇数之和若累加数大于500时则结束累加。13．计算S15913k，直到累乘数k25中止。clears1
1dowhilet
ss
if
25exit
e
dif
4e
ddosretur
14．求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500时程序退出。r