vfp编程的六个经典例题及答案

《vfp编程的六个经典例题及答案》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、1、求36的因子有哪些？（不包括它本身）CLEARFORi=1to35IF36%i=0?iENDIFENDFORRETURN2、求100到999之间所有的水仙花数。所谓水仙花数是指：这个数各个数位上的数字的立方和等于这个数本身。如：153=1**3+5**3+3**3.CLEARFORi=100to999gw=i%10sw=INT(i/10)%10bw=INT(i/100)IFgw**3+sw**3+bw**3=i?iENDIFENDFORRETURN3、A,B,C是100以内的自然数，A

2、0FORa=1to100FORb=a+1to100FORc=b+1to100IFa**2+b**2=c**2n=n+1ENDIFENDFORENDFORENDFOR?nRETURN4、求100以内所有的素数的个数。CLEARn=0FORi=2to100IFsu(i)n=n+1ENDIFENDFOR?nRETURNFUNCTIONsu(x)flag=.f.FORm=2toINT(SQRT(x))IFx%m=0EXITENDIFENDFORIFm=INT(SQRT(x))+1flag=.t.ELSEflag=.f.ENDIFRETURNflag1、将1块钱换成1分，2分，

3、5分的硬币，要求每种硬币至少一枚，请问有多少种兑换的方法。CLEARn=0FORyf=1to100FORef=1to50FORwf=1to20IFyf*1+ef*2+wf*5=100n=n+1ENDIFENDFORENDFORENDFOR?nRETURN2、有一个数列，这个数列的第一项是1，第二项也是1，从第三项开始，每一项是前两项之和。请问这个数列的第43项是多少，前50项的和是多少。CLEARDIMENSIONfib(50)fib(1)=1fib(2)=1sum=fib(1)+fib(2)FORi=3to50fib(i)=fib(i-1)+fib(i-2)sum=

4、sum+fib(i)ENDFOR?fib(43),sumRETURN