vfp程序改错与程序填空题库(共题).doc

题目有错误的（改错）或者不完整的（填空）程序修改后运行的正确答案 求出[750,978]内不包含数字8的所有整数之和。set talk offclears=0for x=750 to 978 a=int(x/100) b=int(x-a*100)/10 c=mod(x,10) if a=8 or b=8 or c=8 s=s+x endifendfor? sset talk onreturn94415 求出100以内使得算式1+1/(1*2)+…+1/(1*2*…*n)的值大于1.71828的最小的自然数n。 set talk off clear a=1 s=0 for n=1 to 100 a=a/n s=s+a if s=1.71828 loop endif endfor ? n set talk on return 9  求出233479的所有真因子（即小于它本身的约数）中最大的。 set talk off clear a=233479 for b=2 to a if mod(a,b)=0 max=a endif endfor ? max set talk on return  8051求[10,1000]内所有能同时被7和9整除的整数之和。 set talk off clear s=0 for x=10 to 1000 if mod(x,7)=0 and mod(x,9)=0 s=x endif endfor ? x set talk on return  7560求出[100,1000]内所有能同时被7和9整除的整数之和。set talk offclears=1for x=100 to 1000if mod(x,7)=1 or mod(x,9)=0s=s+1endifendfor? sset talk onreturn7479求559399的所有非平凡因子（即除1和它本身以外的约数）中最小的。 set talk off clear a=559399 for n=2 to a if mod(a,n)=0 loop endif endfor ? a set talk on return  73 求出20677和42067的最大公约数。 set talk off clear a=20677 b=42067 for d=1 to a if mod(a,d)=0 and mod(b,d)=0 max=b endif endfor ? d set talk on return 713 求出45678的所有非平凡因子（即除1和它本身以外的约数）中是奇数的因子个数。 set talk off clear a=45678 n=0 for b=3 to a step 2 if mod(b,a)=0 n=n+1 endif endfor ? b set talk on return 7梅森尼数是指能使2^n-1为素数的数n，求[1，21]范围内所有梅森尼数之和？set talk offcleasum=0s=2for x=2 to 21 s=s*2flag=1for i=2 to int(sqrt(s-1))if mod(s,i)=0flag=0exitendifendforif flag=1sum=sum+sendifendfor?