资源描述：
《vfp程序改错与程序填空题库(共题)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、题目有错误的（改错）或者不完整的（填空）程序修改后运行的正确答案求出[750,978]内不包含数字8的所有整数之和。settalkoffclears=0forx=750to978a=int(x/100)b=int(x-a*100)/10c=mod(x,10)ifa=8orb=8orc=8s=s+xendifendfor?ssettalkonreturn94415求出100以内使得算式1+1/(1*2)+…+1/(1*2*…*n)的值大于1.71828的最小的自然数n。settalkoffcleara=1.00000000s=0.00000000for
2、n=1to100a=a/ns=s+aifs<=1.71828loopendifendfor?nsettalkonreturn9求出233479的所有真因子（即小于它本身的约数）中最大的。settalkoffcleara=233479forb=2toaifmod(a,b)=0max=aendifendfor?maxsettalkonreturn8051求[10,1000]内所有能同时被7和9整除的整数之和。settalkoffclears=0forx=10to1000ifmod(x,7)=0andmod(x,9)=0s=xendifendfor?xse
3、ttalkonreturn7560求出[100,1000]内所有能同时被7和9整除的整数之和。settalkoffclears=1forx=100to1000ifmod(x,7)=1ormod(x,9)=0s=s+1endifendfor?ssettalkonreturn7479求559399的所有非平凡因子（即除1和它本身以外的约数）中最小的。settalkoffcleara=559399forn=2toaifmod(a,n)=0loopendifendfor?asettalkonreturn73求出20677和42067的最大公约数。settal
4、koffcleara=20677b=42067ford=1toaifmod(a,d)=0andmod(b,d)=0max=bendifendfor?dsettalkonreturn713求出45678的所有非平凡因子（即除1和它本身以外的约数）中是奇数的因子个数。settalkoffcleara=45678n=0forb=3toastep2ifmod(b,a)=0n=n+1endifendfor?bsettalkonreturn7梅森尼数是指能使2^n-1为素数的数n，求[1，21]范围内所有梅森尼数之和？settalkoffcleasum=0s=2
5、forx=2to21s=s*2flag=1fori=2toint(sqrt(s-1))ifmod(s,i)=0flag=0exitendifendforifflag=1sum=sum+sendifendfor?sumreturn66求出203267的所有真因子（即小于它本身的约数）中最大的因子数。settalkoffcleara=203267n=0forb=1toaifmod(b,a)=0max=aendifendfor?asettalkonreturn6557分子分母为正整数，分子小于分母的分数称为真分数。对于分数的分子分母取值范围为[50，90]
6、且分母能被3整除、分子能被5整除的真分数共有多少个.settalkoffclean=1fora=50to89forb=50to90ifmod(b,3)=0n=n+1endifendforendfor?nsettalkonreturn6363已知数列：1,2,4,7,11,16,…，其规律是相邻两项之差依次是1,2,3,4,5,…。试求出此数列中小于6000的最大的项。settalkoffcleara=0forn=0to1000ifa+n<6000exitendifa=a+nendfor?asettalkonreturn5996求[10,1000]内所
7、有能被6整除但不能被9整除的整数之和。settalkoffclears=0forx=10to1000ifmod(x,6)=0ormod(x,9)=0x=s+xendifendfor?ssettalkonreturn55440已知数列：1,2,4,7,11,16,…，其规律是相邻两项之差依次是1,2,3,4,5,…。试求出此数列中大于5000的最小的项。settalkoffcleara=1forn=0to1000a=a+nifa>5000loopendifendfor?nsettalkonreturn5051找满足以下条件:X^2+Y^2=41^2且X
8、+Y之值最大的二个正整数X,Y,求X+Y之值.settalkoffcleamax=1000forx=0to4
