VFP 程序设计题（附参考答案） 范茂华 1．求1 到2000 之间，能被3 或7 整除，并且含有数字5 的整数的个数、它们的和、它们的平方根的和（保留 2 位小数）、以及它们的平方和。 clear store 0 to n,s1,s2,s3 for i=1 to 2000 if (mod(i,3)=0 or i%7=0) and „5‟$str(i) n=n+1 s1=s1+i s2=s2+sqrt(i) s3=s3+i^2 endif next ? “ 个数：” ,n,” 和：” ,s1,” 平方根和：” ,s2,” 平方和：” ,s3 return 2．求能被3 整除且至少有一位数字为 5 的三位数的个数。 clear n=0 for i=100 to 999 if i%3=0 and '5'$str(i) n=n+1 endif next ?n return 3．求出只要能被2，7，9 之一整除的800 以内的正整数的个数。 clear n=0 for i=1 to 800 if i%3=0 or i%7=0 or i%9=0 n=n+1 endif next ?n return 4．求[105，625]间能同时被7 和 11 整除的自然数之和。求[200，600]间奇数之和。 clear s=0 for i=105 to 625 if i%7=0 and i%11=0 s=s+i endif next ?s return 5．编程序求出 1000 到2000 之间同时满足除3 余 2 和除5 余 3 条件的数的个数。 clear n=0 for i=1000 to 2000 if i%3=2 and i%5=3 n=n+1 endif next ? “个数：”, n return 6．输出[10,100]中除以17 的余数和除以5 的商相等的整数的个数。 clear n=0 for i=10 to 100 if i%17=int(i/5) n=n+1 endif next ? “个数：”, n return 7．统计区间[1000，9999]内所有能被 3 整除，且千位数字与个位数字之和为 8 的整数的个数。 clear n=0 for i=1000 to 9999 gw=i%10 qw=int(i/1000) if i%3=0 and gw+qw=8 n=n+1 endif next ? “个数：”, n return 8．求在四位数的奇数中，所有各位数字之和是 25 的倍数的数的和。 clear s=0 for i=1000 to 9999 gw=i%10 sw=int(i/10)%10 bw=int(i/100)%10 qw=int(i/1000) if i%2<>0 and (gw+sw+bw+qw)%25=0 s=s+i endif next ? “和：”, n return 9．求出所有能被 17 整除且不含重复数字的三位数的和。 clear s=0 for i=100 to 999 gw=i%10 sw=int(i/10)%10 bw=int(i/100) if i%17=0 and gw<>sw and sw<>bw and bw<>gw s=s+i endif next ? “和：”, n return ——————————————————————————————...
