资源描述：
《VFP程序设计复习.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、湖南省计算机等级考试一级VFP程序设计复习资料一求某范围内满足某种条件的问题（整除）例：求出[10,1000]以内同时满足除以7余5,除以5余3,除以3余1的所有整数的个数。源程序如下：SettalkoffS=0*为求个数设立一个变量ForI=10to1000IfI%7=5andI%5=3andI%3=1S=s+IEndif?s*在屏幕上显示出结果练习：1.编程序求1~60所有整数的平方和并输出结果。2.编程序求1~85的平方根和并输出结果。（保留小数点两位）3.编程序求出100到200之间同时
2、满足除3余2和除5余3条件的数的个数。4.编程序求出1到4000之间的能被5整除的前若干个偶数之和，当和大于400时退出并输出结果。5.求[3333，6666]之间所有能被5整除同时能被7整除的数,问共有多少个这样的数？二数字分离例1：编写程序，求四位数的奇数中，每位数字之和是15的倍数的数的和。源程序如下：Sum=0ClearForI=1001to9999step2a4=int(i/1000)*取第四位上的数字a3=int(i/100)%10a2=int(i/10)%10a1=i%10If(a
3、1+a2+a3+a4)%15=0Sum=sum+IEndifEndfor?sumreturn例2：求[100,10000]中其各位数字之和能被7整除的数的个数源程序如下：SettalkoffS=0*用来记数的变量，定义在循环体外Fori=1000to9999A4=int(i/1000)*取第四位上的数字A3=int(i/100%10)A2=int(i/10%10)A1=i%10If(a1+a2+a3+a4)%7=0*满足的条件表达式S=s+1*求个数累加1EndifEndfor?s*在循环结束后
4、在显示要求的个数例3：回文数是指正读和反读都一样的正整数。例如3773等都是回文数。所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在1000—9000的范围内所有回文数个数。源程序如下：clears=0stor0toa,b,c,d,ifori=1000to9999a=int(i/1000)b=int(i/100%10)c=int(i/10%10)d=i%10ifa=dandb=cs=s+1endifendfor?sreturn例4：一个数出现在该数的平方
5、数的右边，称这个数为“同构数”。例如，5出现在平方数25的右边，25出现在平方数625的右边，则5、25都是“同构数”。找出[1，1000]之间的所有“同构数”的个数。源程序如下：ClearS=0ForI=1to1000B=I**2Ifb%10=Iorb%100=Iorb%1000=IS=s+1EndifEndfor?sreturn例5：若某整数N的所有因子之和等于N的倍数，则N称为多因子完备数,如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求[1,200]
6、之间有多少个多因子完备数。求在[10，1000]之间的所有完备数之和。各真因子之和（不包括自身）等于其本身的正整数称为完数。例如：6=1+2+3，6是完数。源程序如下：ClearK=0Sum=0*用来保存结果即完数的和Fork=10to1000S=kForI=1tok-1If(k%i)=0&&满足条件的表示I是k的一个因子S=s-I&&将数k减去它的所有因子EndifEndforIfs=0&&s等于零表示s减去所有因子后为零，满足完数的条件Sum=-sum+kEndifEndfor？sumret
7、urn例6：求五位数各数字的平方和为100的最大的五位数。源程序如下：ClearForI=99999to10000step–1A5=int(i/10000)A4=int(i/1000%10)A3=int(i/100%10)A2=int(i/10%10)A1=I%10Ifa5**2+a4**2+a3**2+a2**2+a1**2=100?Ibreak&&因为循环是从大到小，找到第一个即可跳出endifendfor练习：1、已知24有8个因子（即：1,2,3,4,6,8,12,24），而24正好被8
8、整除。求[100,300]之间所有能被其因子数目整除的数之和。2、编写程序，求在四位数的偶数中，所有各位数字之积（且不为0）是18的倍数的数的和3、一个数如果刚好与它所有的因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出1000以内的所有的完数之和。4、设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位数：9512，9+1=5*2，试问所有这样的四位数之和是多少？5、设某四位数的千位数字的平方与十位数字的平方之和等于百位数字的立方与个位数
