二级VFP改错题.xls

Sheet3 Sheet2 Sheet1 求出[750,950]内最多有一位数字是8的所有整数之和（注意AT()函数和STR()函数的功能）。 set talk off clear s=0 for x=750 to 950 if at(8,str(x),2)=0 s=x endif endfor ? s set talk on return 153575 求在[100,999]内所有不含数字0且各位数字之积被96整除的数之和。 set talk off clear s=0 for x=100 to 999 a=int(x/100) b=int((x-a*100)/10) c=mod(x,1) if mod(a*b*c,96)=0 s=s+x endif endfor ? s set talk on return 26640 求在[100,999]内所有不含数字0且各位数字之和被14整除的数之和。 set talk off clear s=0 for x=100 to 999 a=int(x/100) b=int((x-a*100)/10) c=x-a*100-b*10 if mod(a+b+c,14)=0 s=x endif endfor ? s set talk on return 31080 求出[100,600]内被除3余2并且被除5余3的整数的个数。 set talk off clear n=0 for x=100 to 600 if mod(x,3*5)=2*3 n=x+1 endif endfor ? n set talk on return 33 求出50以内最大的自然数n，使得从102开始的连续n个偶数之和小于3000。 set talk off clear s=0 for n=1 to 50 a=100+2*n s=s*a if s=3000 loop endif endfor ? n-1 set talk on return 求出100以内的最大的自然数n，使得算式1+1/(1+2)+…+1/(1+2+…+n)的值小于1.9。 set talk off clear s=0 t=0 for n=1 to 100 s=s+1/n t=t+s if t=1.9 exit endif endfor ? n-1 set talk on return 求出[200,800]内被除3余1并且被除5余3的整数的和。 set talk off clear s=0 for x=200 to 800 if mod(x,3)=1 or mod(x,5)=3 s=s+1 endif endfor ? s set talk on return 20020 求出[1234,6789]内中间两位数字之和等于首尾两位数字之积的数的个数。 set talk off clear n=0 for x=1234 to 6789 a=int(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 b+c=a*d n=n+1 endif endfor ? n set talk on return 175 求出将十进制整数99887766554等值转换为十六进制形式表示后其中字母C的个数。（提示：模拟人工计算的“16除取余”法） set talk off clear a=99887766554 p=16 n=0 do while a=0 r=mod(a,p) if r=11 n=n+r endif a=int(a/p) enddo ? n set talk on return 2 求出[123,789]内至少有两个数字相同的数的个数。 set talk off clear n=0 for x=123 to 789 a=int(x/100) b=int((x-a)/10) c=x-a-b if a=b or a=c or b=c n=n+1 endif endfor ? n set talk on return 180 梅森尼数是指能使2^n-1为素数的数n，求[1，21]范围内所有梅森尼数之和？ set talk off clea sum=0 s=2 for x=2 to 21 s=s*2 flag=1 for i=2 to int(sqrt(s-1)) if mod(s,i)=0