Visual FoxPro程序设计教程（刘卫国版）课后习题答案

?.k1+k2 RETURN

子程序：t2�眕rg

PRIVATE.k1 k1=k2+″250″ ?.k1

RETURN.

“AB250” “ABAB”

(3).SET.TALK.OFF

CLEAR

STORE.1.TO.x STORE.20.TO.y DO.WHILE.x<=y

IF.INT(x/2)<>x/2

x=1+x^2 y=y+1 LOOP ELSE x=x+1 ENDIF ENDDO ?.x,y

SET.TALK.ON RETURN.

122.00 23

(4).主程序：z.prg

SET.TALK.OFF

STORE.2.TO.x1,x2,x3 x1=x1+1 DO.z1

?.x1+x2+x3 RETURN

子程序：z1�眕rg

x2=x2+1 DO.z2 x1=x1+1 RETURN

子程序：z2�眕rg

x3=x3+1

13

RETURN.TO.MASTER. 9

(5).SET.TALK.OFF

x=15 y=7

DO.sub.WITH.x,(y) ?.x,y RETURN

PROCEDURE.sub PARAMETERS.a,b a=a+b b=a-b RETURN.

(6).SET.TALK.OFF

x=9 y=13

z=fu(x,y) ?.z RETURN

FUNCTION.fu PARAMETERS.a,b a=a*b

RETURN.(a). 117

2..输入一个三位整数，将其反向输出。如输入326，输出623。 set talk off

input \请输入一个三位数\

b=100*mod(a,10)+10*mod(int(a/10),10)+mod(int(a/100),10) ?b return

3..输入学生成绩，若成绩大于80分，则输出“优良”，成绩小于60分，则输出“不及格”，否则输出“中等”。 set talk off

input \请输入学生成绩\if a>80 ?\优良\else if a<60 ?\不及格\ else

14

?\中等\ endif endif return

4..在学生表中，分别统计汉族学生和少数民族学生的人数。 set talk off use 学生表

count for 少数民族=.T. to a count for 少数民族=.F. to b ?\少数民族学生人数为\?\汉族学生人数为\return

5..假定有包含若干个记录的表文件c1.dbf，其结构是：f1(N,3,0),f2(N,3,0)。编写程序，其功能是把各记录中所有大于40的字段值累加起来，最后把累加的结果存入第一个记录的f2字段中。 set talk off use c1 a=0

do while .not. eof() if f1>40 a=a+f1 endif if f2>40 a=a+f2 endif continue enddo go top f2=a use return

6..一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数，例如13就是一个绝对素数。试求所有两位绝对素数。 set talk off for m=11 to 99

n=mod(m,10)*10+mod(int(m/10),10) if check(m) and check(n) ?m endif endfor

function check

15

parameters a flag=.t.

k=int(sqrt(a)) j=2

do while j<=k and flag if mod(a,j)=0 flag=.F. endif j=j+1 enddo

return flag

7..用过程方式求S=A!+B!+C!(其中A,B,C从键盘输入)。 set talk off

input \请输入第一个数到A\input \请输入第一个数到B\input \请输入第一个数到C\?\function ss parameter n m=1

for i=1 to n m=m*i endfor return m return

8..根据题目要求完善程序。

(1).通过字符串操作竖向显示“伟大祖国”，横向显示“祖国伟大”。

SET.TALK.OFF

STORE.″伟大祖国″.TO.var CLEAR n=1

DO.WHILE.n<8 ?.SUBSTR(①) n=n+2 ENDDO ?.(②)

??.SUBSTR(var,1,4) RETURN

① var,n,n+1

② substr(var,5,8)

16