VFP 实验参考答案

1．    使用for循环计算1到1000之间能既能被7整除也能被11整除的所有的数的和。（结果为6006）源程序代码

sum=0

i=1

for i=1 to 1000

if((i%7=0) and(i%11=0))then

sum=sum+i

endif

endfor

?sum

2 将上题（第1题）写改成do while循环来设计程序。

sum=0

i=1

do while i<1000

i=i+1

if((i%7=0) and(i%11=0))then

sum=sum+i

endif

enddo

?sum

3  从键盘任意输入一整数n，计算n的阶乘。

input "输入您需要计算的数值：" to n

i=2

res=1

do while i<=n

res=i*res

i=i+1

enddo

?res

4. 将自由表设置为默认目录，利用当循环(do while--enddo)设计程序，统计工资表中工资>1220员工人数，并输出，程序文件名为sy1.prg，写出源程序代码

set talk off

clear

use 职工表.dbf

n=0

loca for 工资>1220

do while .not.eof()

n=n+1

continue

enddo

?n

5.      将自由表设置为默认目录，利用指针循环(scan--endscan)设计程序统计，统计统计工资表中工资>1220员工人数，并输出，程序文件名为sy2.prg，写出源程序代码

set talk off

clear

use 职工表.dbf

n=0

scan for 工资>1220

n=n+1

endscan

?n

6.      已知数列a_n=a_n-1+a_n-2, a₁=1,a₂=3,设计程序从键盘任意输入一整数x，输出第x项的值，如输入3，表示输出a₃，则输出4，若输入4，则输出7，程序文件名为sy3.prg写出源程序代码

input "请输入数据:" to n

res=0

if n>=1 then

res=fbnj(n)

endif

?res

func fbnj

paran

p=1

docase

casen=1

return1

casen=2

return3

casen>2

returnfbnj(n-1)+fbnj(n-2)

endcase

endif

func f

paran

ifn=1 then

return1

else

ifn=2 then

return3

else

returnf(n-1)+f(n-2)

endif

endif

input "input n" to n

a1=1

a2=3

an=0

for i=3 to n

an=a2+a1

a1=a2

a2=an

endfor

?an