vfp编程题参考(2)

《vfp编程题参考(2)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VisualFoxPro编程题参考题解1.编程序求出1-200以内的能被7整除的数的平方和。377986s=0forI=1to200ifmod(I,7)<>0loopendifs=s+I*Iendfor?”s=”,s2.编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是0~9之间的一位整数。6n=0forI=1to9forj=0to9fork=1to9if(I*100+j*10+k)+(k*100+j*10+i)=1333n=n+1endifendforendforendfor?n3.编程序求1~99

2、的平方根的和并输出结果。（保留小数点两位）.661.46s=0forI=1to99s=s+sqrt(I)ednfor?round(s,2)4.编写程序，求所有符合算式ij*ji=1300的最小数ij（即i*10+j）。其中i、j是1~9之间的一位整数。25A=0forI=1to9forJ=1to9if(I*10+J)*(J*10+I)=1300A=I*10+JexitEndifEndforIfa<>0Exitendifendfor?A5.编程序求出1~100所有整数的平方和并输出结果。338350s=0forn=1to100s=s

3、+n**endfor?n6.编写程序，求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。1298515s=0forn=1001to9999step2a=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+difmod(w,25)=0s=s+nendifendfor?s33.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。1107.编写

4、程序，求在四位数的偶数中，所有各位数字之和是30的倍数的数的和。288840s=0forn=1000to9998step2a=int(n/1000)b=int((n-a*1000)/100)c=int((n-a*1000-b*100)/10)d=mod(n,10)good,noloosening.6.5.2DCSsidewiringtocompletetheenclosureandtheothersideafterthewiringiscompleted,DCSwithintheenclosurewhenthepowermodul

5、eshouldbeloosenedorthepowergoesout.6.6lowvoltagecableterminalmaking6.6.1firstw=a+b+c+difmod(w,30)=0s=s+nendifendfor?s8.编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500时程序退出。550s=0forn=1to5000ifmod(n,5)=0.and.mod(n,2)=0s=s+nendififs>500exitendifendfor?s9.已知a>b>c，且a+b+c<100，求满足条件.1

6、/(a^2)+1/(b^2)=1/(c^2的共有多少组。N=0Fora=2to100Forb=1toaForc=0tobIfa+b+c>=100ExitEndifIf1/(a^2)+1/(b^2)=1/(c^2)N=N+1EndifEndforEndforEndfor?Nsettalkon10.编程序求在3000以内被17或者23整除的正整数数的个数。299settalkoffclearn=0fori=17to3000ifmod(i,17)=0.or.mod(i,23)=0n=n+1endifendfor?n11.一个数如果刚好与

7、它所有的因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出200到500之间所有的完数之和。496a=0fori=200to500s=0forj=1toi-1ifmod(i,j)=0s=s+jendifendforifs=ia=a+iendifendfor?a86.一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如,6的真因子为1，2，3，而6=1+2+3，因此，6是“完数”。求[1，1000]之间的最大完数。49612.已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程

8、序求此数列的第36个数。334745777a1=0a2=0a3=1n=4dowhilen<=36an=a1+a2+a3t=a2a2=a3a1=ta3=ann=n+1enddo?an13.编写程序，计算在0至50的范围内有多少个数，其每位数的乘积大于