VFP编题参考.docVIP

Visual FoxPro编程题参考题解 1.编程序求出1-200以内的能被7整除的数的平方和。377986 s=0 for I=1 to 200 if mod(I,7)0 loop endif s=s+I*I endfor ?”s=”,s 2.编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是 0~9之间的一位整数。6 n=0 for I=1 to 9 for j=0 to 9 for k=1 to 9 if (I*100+j*10+k)+(k*100+j*10+i)=1333 n=n+1 endif endfor endfor endfor ?n 3.编程序求1~99的平方根的和并输出结果。（保留小数点两位）.661.46 s=0 for I=1 to 99 s=s+sqrt(I) ednfor ?round(s,2) 4.编写程序，求所有符合算式ij*ji=1300的最小数ij（即i*10+j）。其中i、j是1~9之间的一位整数。25 A=0 for I=1 to 9 for J=1 to 9 if (I*10+J)*(J*10+I)=1300 A=I*10+J exit Endif Endfor If a0 Exit endif endfor ?A 5.编程序求出1~100所有整数的平方和并输出结果。338350 s=0 for n=1 to 100 s=s+n** endfor ?n 6.编写程序，求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。1298515 s=0 for n=1001 to 9999 step 2 a=int(n/1000) b=int((n-a*1000)/100) c=int((n-a*1000-b*100)/10) d=mod(n,10) w=a+b+c+d if mod(w,25)=0 s=s+n endif endfor ?s 33.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。110 7.编写程序，求在四位数的偶数中，所有各位数字之和是30的倍数的数的和。288840 s=0 for n=1000 to 9998 step 2 a=int(n/1000) b=int((n-a*1000)/100) c=int((n-a*1000-b*100)/10) d=mod(n,10) w=a+b+c+d if mod(w,30)=0 s=s+n endif endfor ?s 8.编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500 时程序退出。550 s=0 for n=1 to 5000 if mod(n,5)=0 .and.mod(n,2)=0 s=s+n endif if s500 exit endif endfor ?s 9.已知abc，且a+b+c100，求满足条件.1/(a^2)+1/(b^2)=1/(c^2的共有多少组。 N=0 For a=2 to 100 For b=1 to a For c=0 to b If a+b+c=100 Exit Endif If 1/(a^2)+1/(b^2)=1/(c^2) N=N+1 Endif Endfor Endfor Endfor ?N set talk on 10.编程序求在3000以内被17或者23整除的正整数数的个数。299 set talk off clear n=0 for i=17 to 3000 if mod(i,17)=0 .or. mod(i,23)=0 n=n+1 endif endfor ?n 11.一个数如果刚好与它所有的因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出200到500之间所有的完数之和。496 a=0 for i=200 to 500 s=0 for j=1 to i-1 if mod(i,j)=0 s=s+j endif endfor if s=i a=a+i endif endfor ?a 86.一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如, 6的真因子为1，2，3，而6=1+2+3，因此，6是“完数”。求[1，1000]之间的最大完数。496 12.已知一个数列的前3个数为0，0，1，以后每个数为前3个数的