vfp编程实例1.pdf

1 1 2000 3 7 5 1 1 2000 3 7 5 11．求11间，能被33或77整除，并且含有数字55的整数的个数、它们的和、它们 2 2 的平方根的和（保留22位小数）、以及它们的平方和。 clear store0 ton,s1,s2,s3 fori=1 to 2000 if (mod(i,3)=0 ori%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 2 3 5 22．求能被33整除且至少有一位数字为 55的三位数的个数。 clear n=0 fori=100 to999 if i%3=0 and5$str(i) n=n+1 endif next ?n return 3 2 7 9 800 3 2 7 9 800 33．求出只要能被22，77，99之一整除的880000 以内的正整数的个数。 clear n=0 fori=1 to 800 if i%3=0 ori%7=0 ori%9=0 n=n+1 endif next ?n return 4 [105 625] 7 11 [200 600] 4 [105 625] 7 11 [200 600] 44．求[[110055，662255]]间能同时被77和1111整除的自然数之和。求[[220000，660000]]间奇数之和。 clear s=0 fori=105 to625 if i%7=0 andi%11=0 s=s+i endif next ?s return 5 1000 2000 3 2 5 3 5 1000 2000 3 2 5 3 55 33 22 55 33 ．编程序求出 到 之间同时满足除 余 和除 余 条件的数的个数。 clear n=0 fori=1000 to2000 if i%3=2 andi%5=3 n=n+1 endif next ? “个数：”, n return 6 [10,100] 17 5 6 [10,100] 17 5 66．输出[[1100,,110000]]中除以1177的余数和除以55的商相等的整数的个数。 临河三中计算机 百度贴吧 clear n=0 fori=10 to 100 if i%17=int(i/5) n=n+1 endif next ? “个数：”, n return 7 [1000 9999] 3 8 7 [1000 9999] 3 8 77．统计区间[99999999]]内所有能被33整