VFP程序题库.docx

VFP程序题库.docx

《VFP程序题库.docx》由会员分享，可在线阅读，更多相关《VFP程序题库.docx（16页珍藏版）》请在冰豆网上搜索。

VFP程序题库

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

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

settalkoff

clear

forx=11to99

a=int（x/10）

b=mod（x,10）

*下行有错

y=a*10+b

ifx*y=3627

exit

endif

endfor

?

y

settalkon

return

下列程序求能被11整除且有一位数字为7的三位数的个数。

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

（答案填程序运行结果，保留整数位）

SETTALkOFF

CLEA

S=0

X=100

DOWHILEX<999

IFMOD（______）=0

A=INT（X/100）

B=INT（X/10）-A*10

C=X-A*100-B*10

IFA=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下的整。

数解的个数

settalkoff

clear

*下行有错

n=1

forx=-99to99

y=int（（3*x-1）/7）

*下行有错

if3*x-7*y=1orabs（y）<40

n=n+1

endif

endfor

?

n

settalkon

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））。

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

（答案填程序运行结果，保留整数位）

settalkoff

clea

dimef（100）

sum1=0

f

（1）=1

f

（2）=1

f（3）=0

forn=4to61

f（n）=_________________

endfor

for_______________

sum1=sum1+f（n）

endfor

?

sum1

Retu

求在[2，1000]之间的所有同构数之和（某正整数的平方，其低位与该数本身相同，则称该数为同构数。

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