vfp程序设计题(附参考答案)-新.doc

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%20 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 gwsw and swbw and bwgw s=s+i endif next ? “和：”, n return ———————————————————————————————————— 10．求1到500的偶数立方和与奇数立方和之差。 clear s1=0 s2=0 for i=1 to 500 if i%2=0 s1=s1+i^3 else s2=s2+i^3 endif next ? “偶数立方和与奇数立方和之差为：”, s1-s2 return ———————————————————————————————————— 11．求3+9+27+81+243+...这样的数之和. 若累加数大于500时,则结束累加. clear s=0 n=1 do while .t. s=s+3^n if s500 exit endif n=n+1 enddo ? s return 12．求1+3+5+7+9+11+...这样的奇数之和.若累加数大于500时, 则结束累加。 13．计算S=1*5*9*13*...*k，直到累乘数k=25中止。 clear s=1 n=1 do while .t. s=s*n if n=25 exit endif n=n+4 enddo ? s return 14．求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500时程序退出。 ——————————————————