visual foxpro程序题练习汇总.doc

最新VF程序题练习一、程序改错1、求10,2000内所有能被7和9中至少一个数整除的整数之个数。set talk offclearn=0for x=10 to 2000*下行有错 if mod(x,7)=0 and mod(x,9)=0 n=n+1 endifendfor? nset talk onreturn答案：4742、求100,2000内所有能被6整除但不能被9整除的整数之和。set talk offclears=0for x=100 to 2000*下行有错 if mod(x,6)=0 and mod(x,9)=0 s=s+x endifendfor? sset talk onreturn答案：2212323、求101,299内所有能被2整除但不能同时被3和5整除的整数之和。set talk offclears=0for x=101 to 299 if mod(x,2)=0 and not (mod(x,3)=0 and mod(x,5)=0)*下行有错 x=s+x endifendfor? sset talk onreturn答案：186304、求出233479的所有真因子（即小于它本身的约数）中最大的两个真因子之和。set talk offcleara=233479s=0t=0for b=a-1 to 1 STEP -1 IF t=2 if mod(b,a)=0 s=s+b t=t+1 ENDIF ELSE loop endifendfor? sset talk onreturn答案：108645、求559399的所有非平凡因子（即除1和它本身以外的约数）中最小的。set talk offcleara=559399for n=2 to a if mod(a,n)=0*下行有错 loop endifendfor? nset talk onreturn答案：736、求179869和196037的最大公约数。set talk offcleara=179869b=196037for d=2 to a*下行有错 if mod(d,a)=0 and mod(d,b)=0 max=d endifendfor? maxset talk onreturn答案：20217、求1,100内能被6或8整除的所有自然数的平方根的和（将第1位小数四舍五入，结果只保留整数）。set talk offclears=0for n=1 to 100*下行有错 if mod(n,6)=0 and mod(n,8)=0*下行有错 s=sqrt(s+n) endifendfor? round(s,0)set talk onreturn答案1628、求出100,999内恰有1位数字是7的所有整数之和。set talk offset talk offclears=0for x=100 to 999 a=int(x/100)*下行有错 b=INT(x-a*100)/10 c=MOD(x,10) if (a=7 AND b!=7 AND c!=7) or (a!=7 AND b=7 AND c!=7) or (a!=7 AND b!=7 AND c=7) s=s+x endifendfor? sset talk onreturn答案1377509、编写程序，计算10000以内有多少个这样的数，其个位数为6且该数能被9整除。set talk offclean=0for i=1 to 10000 if mod(i,10)=6*下行有错 if mod(i,10)=9 n=n+1 endif endifendfor? nreturn答案11110、已知24有8个正整数因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求100,300之间能被其因子数目整除的数的个数。set talk offcleac=0for n=100 to 300 s=0 for i=1 to n*下行有错 if int(i/10)=0 s=s+1 endif endfor if mod(n,s)=0 c=c+1 endifendfor*下行有错? sset talk onreturn答案1911、闰年是指年号能被4整除，但不能被100整除，或者能被400整除的年份。求1000年到2050年之间共有多少闰年。set talk offclearn=0for i=1000 to 2050*下行有错 if mod(i,4)=0 or mod(i,100)#0 and mod(i,400)=0 n=n+1 endifendfor? nset talk onreturn答案25512、求出203267的所有真因子（即小于它本身的约数）中最大的。set talk offcleara=203267for b=1 to a-1 step -1*下行有错 if mod(b,a)=0 exit endifendfor? bset talk onreturn答案655713、将大于1000且能被3和5中至少一个数整除的所有整数按从小到大顺序排列后，求前面20个数之和。set talk offcleark=0s=0x=1000*下行有错do while k=5.6*下行有错 loop endifendfor?nset talk onreturn答案15215、求500以内最小的自然数n，使得从102开始的连续n个偶数之和大于60000。set talk offclears=0for n=0 to 500 a=102+2*n s=s+a if s60000*下行有错 loop endifendfor?nset talk onreturn答案19916、求出100以内使得算式1+(1+2)+(1+2+n)的值小于1000的最大的自然数n。set talk offclears=0t=0for n=1 to 100 s=s+n t=t+s*下行有错 if t1000 exit endifendfor?n-1set talk onreturn答案1717、求出100以内最大的奇数n使得算式(1-1/2)+(1/3-1/4)+(1/n-1/(n+1)的值小于0.68。set talk offclears=0for n=1 to 100 step 2 a=1/n-1/(n+1) s=s+a*下行有错 if s0.68 exit endifendfor? n-1set talk onreturn答案3618、某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。set talk offclears=1for n=2001 to 2100 s=s*1.03 if s=2 loop endifendfor? nset talk onreturn答案202419、已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是1,2,3,4,5,。试求出此数列中小于6000的最大的项。set talk offcleara=1for n=0 to 1000*下行有错 if a+n=10*下行有错 loop endifendfor*下行有错? sset talk onreturn答案1236622、求最小的自然数n，使得从101开始到n中被3除余1的数之和大于8000。set talk offclears=0for n=101 to 100000 if mod(n,3)=1 s=s+n if s8000*下行有错 loop endif endifendfor*下行有错? n-1set talk onreturn答案24123、求使得算式1*3+2*5+n*(2n+1)的值小于10000的最大的自然数n。set talk offclears=0for n=1 to 1000 s=s+n*(2*n+1)*下行有错 if s=10000 exit endifendfor*下行有错? nset talk onreturn答案2324、求最大的自然数n使得算式(1/1-1/2)+(1/3-1/4)+(1/(2n-1)-1/(2n)的值小于0.68。set talk offclears=0for n=1 to 1000 step 2 a=1/n-1/(n+1) s=s+a*下行有错 if s2345678*下行有错 loop endif a=3*aendfor? nset talk onreturn答案1426、一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最小的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程超过589米。set talk offclearh=100s=h*下行有错for n=1 to 100*下行有错 h=h+h*3/4 s=s+2*h if s589 exit endif endfor? nset talk onreturn答案727、设有用26个字母表示的26个表达式：a=1，b=1/(a+1)，c=1/(b+2)，z=1/(y+25)。试求出这26个字母中其值小于0.1的字母个数。set talk offclear*下行有错lett=0n=0for k=1 to 25 lett=1/(lett+k)*下行有错 if lett=0.1 n=n+1 endif endfor? nset talk onreturn答案1628、已知数列f(n):f(1)=1,f(2)=1,当n2时f(n)=3f(n-2)-f(n-1)。试求此数列的前15项中所有正数项之和。set talk offcleardimension f(20)f(1)=1f(2)=1*下行有错s=0for n=3 to 15 f(n)=3*f(n-2)-f(n-1)*下行有错 if f(n)#0 s=s+f(n) endifendfor? sset talk onreturn答案1229329、求方程3x-7y=1在条件|x|100且|y|40下的整数解的个数。set talk offclearn=0for x=-99 to 99 y=int(3*x-1)/7)*下行有错 if 3*x-7*y=1 or abs(y)40 n=n+1 endifendfor? nset talk onreturn答案2630、把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案?set talk offclearn=0for yi=11 to 100 for er=11 to 20 for wu=11 to 20 *下行有错 if yi+er+wu=100 n=n+1 endif endfor endforendfor? nset talk onreturn答案1331、求方程3x-7y=1在条件|x|100且|y|40下的所有整数解的|x|+|y|的最大值。set talk offclearmax=0for x=-99 to 99*下行有错 y=int(3*x)/7)*下行有错 z=abs(x+y) if 3*x-7*y=1 and abs(y)40 max=z endifendfor? maxset talk onreturn答案12732、编写程序，求所有符合算式ij*ji=2668的最大数ij（即i*10+j）。其中i、j是19之间的一位整数。set talk offcleamax=10for i=1 to 9 for j=1 to 9*下行有错 if ij+ji=2668*下行有错 if maxx+y+z max=x+y+z endif endif endfor endforendfor? maxset talk off答案7134、求1001000内的所有素数的平均数。（素数是指只能被1和本身整除的数）set talk offclean=0t=0for i=100 to 1000 f=1*下行有错 for j=2 to i if mod(i,j)=0 f=0*下行有错 loop endif endfor if f=0 n=n+i t=t+1 endifendfor? n/treturn答案524.944135、一个大于6的偶数可以表示为两个素数之和，即C=A+B，其中C为偶数，A与B为素数。求出280的所有素数和表示中A*B的最大值。c=280t=0max=0for a=3 to c/2 STEP 2 f1=1 for j=2 to a-1 if mod(a,j)=0 f1=0 exit endif ENDFOR IF f1=1 b=c-a f2=1 for j=2 to b-1 if mod(b,j)=0 f2=0 exit endif ENDFOR ENDIF*下行有错 IF f1=1 or f2=1 *下行有错 IF maxa*b max=a*b endif ENDIFendfor? maxreturn答案1951936、设某四位数的各位数字的立方和等于100，问满足这种条件的四位数且是素数的数共有多少个？set talk offclean=0for x=1000 to 9999 f=1 for i=2 to int(sqrt(x) if mod(x,i)=0 f=0 exit endif endfor*下行有错 if f=0 a=int(x/1000) b=int(x-a*1000)/100) *下行有错 c=int(x/10) d=MOD(x,10) IF a*a*a+b*b*b+c*c*c+d*d*d=100 n=n+1 ENDIF ENDIF ENDFOR ? n return答案193337、求1001000内的第10个素数。（素数是指只能被1和本身整除的数）set talk offclean=0k=0for i=100 to 1000 f=1*下行有错 for j=2 to i if mod(i,j)=0 f=0 exit endif endfor if f=1 n=i k=k+i if k=10 exit endif endifendfor? nreturn答案14938、梅森尼数是指能使2n-1为素数的数n，求1，21范围内的梅森尼数的个数？set talk offclearn=0for I=2 to 21 flag=1 *下行有错 for j=2 to I if mod(2I-1),j)=0 flag=0 exit endif endfor *下行有错 if flag=0 n=n+1 endif endfor?nset talk onreturn答案739、一个大于6的偶数可以表示为两个素数之和，即C=A+B，其中C为偶数，A与B为素数。求出300的所有素数和表示中A*B的最大值。set talk offcleac=300t=0*下行有错max=10000000for a=3 to c/2 STEP 2 f1=1 for j=2 to a-1 if mod(a,j)=0 f1=0 exit endif ENDFOR IF f1=1 b=c-a f2=1 for j=2 to b-1 if mod(b,j)=0 f2=0 exit endif ENDFOR ENDIF*下行有错 IF f1=1 or f2=1 IF maxa*b max=a*b endif ENDIFendfor? maxreturn答案2249940、回文数指的是正读和反读都一样的数字，如121、1221。试求出1234,9876内奇数回文数的个数。set talk offclearn=0for x=1234 to 9876*下行有错 a=x/1000 b=int(x-a*1000)/100) c=int(x-a*1000-b*100)/10) d=x-a*1000-b*100-c*10*下行有错 if a=d and b=c and mod(x,2)=0 n=n+1 endifendfor? nset talk onreturn答案4541、勾股弦数是满足公式： A2+B2=C2 (假定ABC)的一组正整数（A，B，C），例如，（3，4，5）是勾股弦数，因为：32+42=52。求A，B均小于25且A+B+C=100的勾股弦数的个数。set talk offclean=0for a=1 to 25 for b=1 to 25 for c=1 to 100 if ab and bi max=i endif endifendfor? minset talk onreturn答案902543、若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是四位双平方数。例如： 由于7396=862，且7+3+9+6=25=52，则称7396是四位双平方数。求所有四位双平方数且十位数字是3的数之和。set talk offcleas=0for i=1000 to 9999*下行有错 a=i/1000 b=int(i-a*1000)/100) c=int(i-a*1000-b*100)/10) d=mod(i,10) x=a+b+c+d if sqrt(i)=int(sqrt(i) and sqrt(x)=int(sqrt(x) and c=3 *下行有错 s=s+1 endifendfor? sset talk onreturn答案883644、水仙花数是指这样的数，其各位数字的立方和等于该数本身，如:153=13+53+33。编写程序，计算从100年开始到3000年为止，最大的水仙花数年号为多少？set talk offcleamax=0for i=100 to 2000 a=int(i/1000) b=int(i-a*1000)/100)*下行有错 c=mod(i,100) d=mod(i,10)*下行有错 if a*a+b*b+c*c+d*d=i and maxi max=i endifendfor? maxreturn答案40745、求出750,978内恰好有两位数字是8的所有整数之和.set talk offset talk offclears=0for x=750 to 978 a=int(x/100) b=int(x-a*100)/10) c=mod(x,10) if (a=8 and b=8 and c8 or a=8 and c=8 and b8 or b=8 and c=8 and a8) *下行有错 s=s+1 endifendfor? sset talk onreturn答案1638746、分子分母为正整数，分子小于分母的分数称为真分数。对于分数的分子分母取值范围为 50，90 且分母能被3整除、分子能被5整除的真分数共有多少个.set talk offclean=0for a=50 to 89*下行有错 for b=50 to 90*下行有错 if mod(b,3)=0 n=n+1 endif endforendfor? Nset talk onreturn答案6347、求出700,900内最多有一位数字是6所有整数之和（注意AT()函数和STR()函数的功能）。set talk offclear*下行有错s=700for x=700 to 900*下行有错 if at(6,str(x),1)=0 or at(6,str(x),1)0 s=s+x endifendfor? sset talk onreturn答案15916848、50个小学生按至50序号顺时针围成一圈，做出局游戏，老师站在圈外顺时针从第一个人数起，每数到3时，这人从圈里出来，继续数1,2,3数到第3个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序号是多少号。set talk offcleadime a(50)for i=1 to 50 a(i)=1endfork=0n=0for i=1 to 50 p=1 &每趟报数*下行有错 do while p50 k=1 endif if ak0*下行有错 p=k endif enddo ak=0 n=n+1 IF n=50 ? k endifENDFORreturn答案1149、设某四位数的各位数字的平方和等于100，问共有多少个这种四位数？set talk offclean=0for x=1000 to 9999 a=int(x/1000) b=int(x-a*1000)/100) *下行有错 c=int(x/10) d=mod(x,10) if a*a+b*b+c*c+d*d=100 *下行有错 n=n+x endifendfor? nset talk onreturn答案4950、将字符串fgBR5Y2中对应的第i个字符的ASCII值增加值5i之后生成的新的符号串是什么？。(注意大小写字母）set talk offcleastr1=fgBR5Y2*下行有错le=str1str2=for i=1 to le*下行有错 str2=CHR(ASC(subs(str1,i,1)+5*i)endfor? str2set talk offreturn答案kqQfNwU二、程序填空1、下面的程序是求100到5000中所有能被7和9整除的奇数之和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）SET TALK OFFCLEARI=100S=0DO WHILE I=5000IF _S=S+IENDIF_ENDDO? SRETURN答案1007372、已知S1=1，S2=1+2，S3=1+2+3，Sn=1+2+3+N，求S1，S2，S3，S2000中有多少个能被3或7整除的数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）SET TALK OFFCLEAI=1N=0DO WHILE I=2000s=0J=1DO WHILE _s=S+Jj=J+1ENDDOIF INT(S/3)=S/3.OR.INT(S/7)=S/7_ENDIFI=I+1ENDDO? NSET TALK ONRETURN答案15233、求1000到8000以内能被3和7整除的整数的和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）SET TALK OFFCLEAI=1000S=0DO WHILE I=8000IF _s=s+iENDI_ENDD? SRETU答案14965024、求40000以内不能被13整除的数的个数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）SET TALK OFFCLEARI=1S=0DO WHILE .T. IF _ S=S+1 ENDIF IF _ EXIT ENDIFI=I+1ENDDO? SSET TALK ONRETU答案369245、求在1，2，3，4，1000这1000个数中，任意选两个不同的数，它们的和能被6整除的数的总对数（注意：像1+5和5+1被认为是同一对数）。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）SET TALK OFFCLEARN=0I=1DO WHILE I=1000 J=1 DO WHILE JI IF MOD(I+J,6)=0 _ ENDIF J=J+1 ENDDO _ENDDO? NSET TALK ON RETURN答案831676、已知S1=1，S2=1+2，S3=1+2+3，Sn=1+2+3+N，求S1，S2，S3，S2000中有多少个能被9或11整除的数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）SET TALK OFFCLEAI=1N=0S=0DO WHILE I=2000S=_IF INT(S/9)=S/9.OR.INT(S/11)=S/11N=N+1ENDIFI=_ENDDO? NSET TALK ONRETURN答案7267、计算4000，4500中各个数的因子（因子不包括这个数本身）之和，求出和的最大值。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）set talk offcleamax1=0for i=4000 to 4500 sum2=0 for j=1 to i-1 if MOD(_)=0 SUM2=SUM2+J endif endfor if max1sqrt(x)return(.t.)endif答案2083410、下面程序是求1到40之间所有奇数的平方和。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）SET TALK OFFCLEARS=0X=1DO WHILE X=40IF _S=S+X2ENDIF_ENDDO? SRETURN答案1066011、下列程序的功能是求500到1000之间的所有奇数的平方和并显示结果。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）SET TALK OFFCLEARSum=0x=500DO WHILE x10000EXITENDIFENDDO? SSET TALK ONRETU答案36804713、(A,B)满足条件A是素数，B是素数，A+B的和也是一个素数，又2=ABsqrt(x) return(.t.)endif答案3014、A,B,C是三个小于或等于100的正整数，当满足1/A2+1/B2=1/C2关系,并且ABC时，称为倒勾股数。求这样的倒勾股数中A+B+C的值最大是多少。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）set talk offcleamax1=0for c=1 to 100 for b=c+1 to 100 for a=b+1 to 100 if 1/(a*a)+ 1/(b*b) =1/(c*c) if _ max1=_ endif endif endfor endforendfor? max1retu答案26815、求2，10000中所有的完全数的个数。所谓完全数是指这个数所有的因子之和（不包括这个数本身）等于这个数，例如：6 1+2+3=6 所以6是个完全数。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）set talk offcleacount1=0for i=2 to 10000 sum2=0 for j=1 to i-1 if _ sum2=sum2+j endif endfor if _ count1=count1+1 endifendfor? count1retu答案416、求140,180 之间的弦数的个数（若某正整数的平方等于另两个正整数平方之和，则称该数为弦数.例如:32+42=52, 因此5是弦数）。填空完成程序，