Visual_FoxPro程序设计教程(主编：刘卫国)课后习题答案914VIP免费

第九章 1..写出下列程序的执行结果。 (1).CLEAR SET.TALK.OFF ..x=10 y=-3 FOR.n=29+x.TO.x.STEP.y ENDFOR ?.n RETURN 9 (2).主程序：t1.prg SET.TALK.OFF STORE.′AB′.TO.k1,k2 DO.t2 ?.k1+k2 RETURN 子程序：t2prg 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 prg x2=x2+1 DO.z2 x1=x1+1 RETURN 子程序：z2 prg x3=x3+1 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 "请输入一个三位数" to a 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 "请输入学生成绩" to a if a>80 ?"优良" else if a<60 ?"不及格" else ?"中等" endif endif return 4..在学生表中，分别统计汉族学生和少数民族学生的人数。 set talk off use 学生表 count for 少数民族=.T. to a count for 少数民族=.F. to b ?"少数民族学生人数为",a ?"汉族学生人数为",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/...