VFP程序题库

求所有符合算式ab*ba=3627的最大的两位数ab（即a*10+b）。

其中a、b是1~9之间的一位整数。

set talk off
clear
for x=11 to 99
a=int(x/10)
b=mod(x,10)
*下行有错
y=a*10+b
if x*y=3627
exit
endif
endfor
? y
set talk on
return
下列程序求能被11整除且有一位数字为7的三位数的个数。

填空完成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
SET TALk OFF
CLEA
S=0
X=100
DO WHILE X<999
IF MOD(______)=0
A=INT(X/100)
B=INT(X/10)-A*10
C=X-A*100-B*10
IF A=7.OR.B=7.OR.C=7
________
ENDIF
ENDIF
X=X+1
ENDDO
? S
RETU
某一正整数，进行递减，每次将该数减半后再减一，当对该数进行第10次减半时发现该数只剩下1不能再减了，求该数。

求方程3x-7y=1在条件|x|<100且|y|<40下的整。

数解的个数
求方程3x-7y=1在条件|x|<100且|y|<40下的整。

数解的个数
set talk off
clear
*下行有错
n=1
for x=-99 to 99
y=int((3*x-1)/7)
*下行有错
if 3*x-7*y=1 or abs(y)<40
n=n+1
endif
endfor
? n
set talk on
return
已知存在数列：f(1)=1，f(2)=1，f(3)=0，f(n)=f(n-1)-2*f(n-2)+f(n-3)(n>=4)。

求f(10)到f(60)的和是多少（包括f(10)和f(60)）。

填空完成程序，然后运行程序得出正确结果。

（答案填程序运行结果，保留整数位）
set talk off
clea
dime f(100)
sum1=0
f(1)=1
f(2)=1
f(3)=0
for n=4 to 61
f(n)=_________________
endfor
for _______________
sum1=sum1+f(n)
endfor
? sum1
Retu
求在[2，1000]之间的所有同构数之和（某正整数的平方，其低位与该数本身相同，则称该数为同构数。

例如25^2=625，625的低位25与原数相同，则称25为同构数）。