《VFP编程题参考(2).doc》由会员分享，可在线阅读，更多相关《VFP编程题参考(2).doc（14页珍藏版）》请在金锄头文库上搜索。
1、Visual FoxPro编程题参考题解1.编程序求出1-200以内的能被7整除的数的平方和。377986s=0for I=1 to 200 if mod(I,7)0 loop endif s=s+I*Iendfor?”s=”,s2.编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是 09之间的一位整数。6n=0for 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 endforendfor?n3.编程序求199的平方根的和并输出
2、结果。（保留小数点两位）.661.46s=0for I=1 to 99s=s+sqrt(I)ednfor?round(s,2)4.编写程序，求所有符合算式ij*ji=1300的最小数ij（即i*10+j）。其中i、j是19之间的一位整数。25A=0for I=1 to 9 for J=1 to 9 if (I*10+J)*(J*10+I)=1300 A=I*10+J exit EndifEndforIf a0Exitendifendfor?A5.编程序求出1100所有整数的平方和并输出结果。338350s=0for n=1 to 100s=s+n*endfor?n6.编写程序，求在四位数的奇数
3、中，所有各位数字之和是25的倍数的数的和。1298515s=0for n=1001 to 9999 step 2a=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 endifendfor?s33.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。1107.编写程序，求在四位数的偶数中，所有各位数字之和是30的倍数的数的和。288840s=0for n=1000
4、 to 9998 step 2a=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 endifendfor?s8.编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500 时程序退出。550s=0for n=1 to 5000 if mod(n,5)=0 .and.mod(n,2)=0 s=s+n endif if s500 exit endifendfor?s9.已知abc，且a+b+c=100 Exit Endif If 1/(
5、a2)+1/(b2)=1/(c2) N=N+1 Endif Endfor EndforEndfor?Nset talk on10.编程序求在3000以内被17或者23整除的正整数数的个数。299set talk offclearn=0for i=17 to 3000if mod(i,17)=0 .or. mod(i,23)=0n=n+1endifendfor?n11.一个数如果刚好与它所有的因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出200到500之间所有的完数之和。496a=0for i=200 to 500s=0for j=1 to i-1if mod(
6、i,j)=0s=s+jendifendforif s=ia=a+iendifendfor?a86.一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如, 6的真因子为1，2，3，而6=1+2+3，因此，6是“完数”。求1，1000之间的最大完数。49612.已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。334745777a1=0a2=0a3=1n=4do while na+bn=n+1endifendfor?n29.程序，计算在0至99的范围内有多少个数，其每位数的乘积小于等于每位数的和。3714.程序，计算在0至50的范围内有多少个数，
7、其每位数的乘积小于每位数的和.26程序与13题类似127.统计100,10000之间有多少个这样的整数,其各位数字之和能被7整除。140815.用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为50枚，问共有多少种换法？(注：在兑换中一分、两分或五分的硬币数可以为0枚).13n=0for i=0 to 50 for j=0 to 50 for k=0 to 20 if i+2*j+5*k=100 .and.i+j+k=50 n=n+1 endif endfor endfor endfor ?n16.把18元钱分成一元、二元和五元的纸币且纸币数共为10张的分法有多少种？（注：在兑换中一元
8、、二元、五元的纸币数可以为0）。3程序与13题类似17.编写程序，求四位数的奇数中，所有各位数字之积（且不为0）是125的倍数的数的和。161095s=0for n=1001 to 9999 step 2a=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,125)=0 .and.w0 s=s+n endifendfor?s96.设某四位数的各位数字的平方和为100，且该数能被3整除。求共有多少个这样的四位数。.2364.有一个三位数满足下列条件: (1)此三位数的三位数
9、字各不相同; (2)此三位数等于它的各位数字的立方和。试求这种三位数共有多少个？ .418.所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100900之间的所有回文数的个数。80n=0for i=100 to 900 a=int(i/100)b=int(i-a*100)/10)c=mod(i,10) if a=c n=n+1 endifendfor?n25.所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，计算从1981年开始到3000年为止，共有多少个年号是回文数年号。1119.编程序求出100到200之间同时满
10、足除3余2和除5余3条件的数的个数。6n=0for I=100 to 200 if mod(I,3)=2 .and. mod(I,5)=3n=n+1endifendfor?n20.百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至少要买1只)。3n=0for i=1 to 100 for j=1 to 20 for k=1 to 34 if i/3+j*5+k*3=100 .and.i+j+k=100 n=n+1 endif endfor endfor endfor?n=,n38.有30个学生一起买小吃，共花钱50元，其中每个大学
11、生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生数为0的解）？.9101.马克思曾经做过这样一道趣味数学题：有30个人在一家小饭店里用餐，其中有男人、女人和小孩，每个男人花了3先令，每个女人花了2先令，每个小孩花了1先令，共花去50先令。如果要求男人、女人和小孩都有人参与，试求有多少种方案分配男人、女人和小孩的人数。975.把一张一元钞票,换成一分、二分和五分硬币,每种至少8枚,问有多少种方案?.8021编程序求出 2+4+8+16+32+这样的数之和。如果累加数大于500时，则程序终止并输出结果。510clears=0n=1do whi
12、le s=500 s=s+2n n=n+1enddo?s=,s22.今有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求鸡值多少钱？(鸡23.免29.羊177.犬121)clears=0flag=1for y=1 to 300 for q=1 to 400 for t=1 to 200 j=(1496-5*y-4*q-2*t)/3 if (4*y+2*q+6*j+3*t)=1175.and.(3*y+q+7*j+5*t)=958.and.(2*y+3*q+5*j+t)=861 flag=0 exit endif endfor
13、 if flag=0 exit endif endfor if flag=0 exit endifendfor ?j=,j23.编程序求出1100所有整数的立方和并输出结果。2550250024.“水仙花数”是指这样的数，其各位数字的立方和等于该数本身，如: 153=13+53+33。编写程序求100至400的范围内有多少个水仙花数。326.所谓素数是指这样的自然数，除1和它本身外不再有其它因子。编写程序，计算从1981年开始到3000年为止，我们将遇到多少个素数年号。13127.编写程序，求出9到499之间的所有非偶数非素数的数之和。40965s=0n=0for I=9 to 499 step 2 for j=2 to sqrt(i)if mod(I,j)=0s=s+In=n+1exitendif endforendfor?”s=”,s?”n=”,n2
