vf程序题.doc

（一）程序改错题。 一、各数位数的取法 1、设某四位数的各位数字的平方和等于198，问满足这种条件的最大数和最小数之和是多少？(正确答案12749) CLEAR min=9999 max=1000 FOR x=1000 to 9999 a=INT(x/1000) b=INT(MOD(x,1000)/100) c=INT(MOD(x,100)/10) d=MOD(x,10) IF a*a+b*b+c*C+d*d=198 IF xmax max=x ENDIF IF xmin min=x ENDIF ENDIF ENDFOR ?min+max 2、编写程序计算100---10000以内个位上的数小于百位上的数的所有数之和。 (正确答案306450) CLEAR n=0 FOR i=100 to 1000 bw=INT(MOD(i,1000)/100) gw=MOD(i,10) IF gwbw n=n+i ENDIF endf ?n 3、求出将十进制数99887766554等值转换为十六进制形式表示后其中字母c的个数。(提示：模拟人工计算的“16除取余”法)(正确答案2 ) CLEAR a=99887766554 p=16n=0 do while a0 r=MOD(a,p) IF r=12 n=n+1 ENDIF a=int(a/p) ENDd ?n 4、求出[1234，6789]内中间两位数字之和等于首尾两位数字之积的数的个数。 (正确答案175) 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 endf ?n 5、求所有符合算式ab*ba=3627的最大的两位数ab(即a*10+b)。(其中a、b是1-9之间的整数)(正确答案93) CLEAR FOR x=11 to 99 a=INT(x/10) b=MOD(x,10) y=b*10+a IF x*y=3627 exit ENDIF endf ?y 6、求前[1，100]以内能被6或8整除的所有自然数的平方根的和(将第一位小数四舍五入，结果只保留整数)。(正确答案162) CLEAR s=0 FOR n=1 to 100 IF MOD(n,6)=0 or MOD(n,8)=0 s=s+SQRT(n) ENDIF endf ?ROUND(s,0) 7、回文指的是正读和反读都一样的字符串，如121、1221。试求出[1234，9876]内回文数的个数。(正确答案85) CLEAR n=0 FOR x=1234 to 9876 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 a=d and b=c n=n+1 ENDIF ENDFOR ?n 8、若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如：由于7396=86^2,且7+3+9+6=25=5^2,则称7396是“四位双平方数”。求所有四位双平方数的个数。(正确答案17) CLEAR n=0 FOR i=1000 to 9999 a=INT(i/1000) b=INT(MOD(i,1000)/100) c=INT(MOD(i,100)/10) d=MOD(i,10) x=a+b+c+d IF INT(SQRT(i))=SQRT(i) and INT(SQRT(x))=SQRT(x) n=n+1 ENDIF ENDFOR ?n 二、整除与余数，数字包含 1、求出【100，600】内被3除余2并且被5除余3的整数的个数。（正确答案33） Clear N=0 For x=100 to 600 If mod(x,3)=2 and mod(x,5)=3 N=n+1 Endif Endfor ?n 2、求出将十进制整值转换为二进制形式表示后其中数字1的个数。（