visual_foxpro程序设计教程(主编：刘卫国)课后习题答案 9-1

《visual_foxpro程序设计教程(主编：刘卫国)课后习题答案 9-1》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第九章1..写出下列程序的执行结果。(1).CLEARSET.TALK.OFF　..x=10　　y=-3　　FOR.n=29+x.TO.x.STEP.y　　ENDFOR　　?.nRETURN9(2).主程序：t1.prgSET.TALK.OFF　　STORE.′AB′.TO.k1,k2　　DO.t2　　?.k1+k2　　RETURN子程序：t2prgPRIVATE.k1　　k1=k2+″250″　　?.k1RETURN.“AB250”“ABAB”(3).SET.TALK.OFFCLEAR　　STORE.1.TO.x　　

2、STORE.20.TO.y　　DO.WHILE.x<=yIF.INT(x/2)<>x/2x=1+x^2y=y+1LOOPELSEx=x+1ENDIFENDDO?.x,ySET.TALK.ONRETURN.122.0023(4).主程序：z.prgSET.TALK.OFF　　STORE.2.TO.x1,x2,x3　　x1=x1+1　　DO.z1　　?.x1+x2+x3　　RETURN子程序：z1prgx2=x2+1　　DO.z2　　x1=x1+1　　RETURN子程序：z2prgx3=x3+1RETURN.TO.MAS

3、TER.9(5).SET.TALK.OFFx=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.OFFx=9　　y=13　　z=fu(x,y)　　?.z　　RETURN　　FUNCTION.fu　　PARAMETERS.a,b　　a=a*bRETURN.(a).1172..输入一个三位整数，将其反向输出。如输入326，输出623。settalkoffinpu

4、t"请输入一个三位数"toab=100*mod(a,10)+10*mod(int(a/10),10)+mod(int(a/100),10)?breturn3..输入学生成绩，若成绩大于80分，则输出“优良”，成绩小于60分，则输出“不及格”，否则输出“中等”。settalkoffinput"请输入学生成绩"toaifa>80?"优良"elseifa<60?"不及格"else?"中等"endifendifreturn4..在学生表中，分别统计汉族学生和少数民族学生的人数。settalkoffuse学生表countfor少数

5、民族=.T.toacountfor少数民族=.F.tob?"少数民族学生人数为",a?"汉族学生人数为",breturn5..假定有包含若干个记录的表文件c1.dbf，其结构是：f1(N,3,0),f2(N,3,0)。编写程序，其功能是把各记录中所有大于40的字段值累加起来，最后把累加的结果存入第一个记录的f2字段中。settalkoffusec1a=0dowhile.not.eof()iff1>40a=a+f1endififf2>40a=a+f2endifcontinueenddogotopf2=ausereturn6

6、..一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数，例如13就是一个绝对素数。试求所有两位绝对素数。settalkoffform=11to99n=mod(m,10)*10+mod(int(m/10),10)ifcheck(m)andcheck(n)?mendifendforfunctioncheckparametersaflag=.t.k=int(sqrt(a))j=2dowhilej<=kandflagifmod(a,j)=0flag=.F.endifj=j+1enddoreturnflag7.

7、.用过程方式求S=A!+B!+C!(其中A,B,C从键盘输入)。settalkoffinput"请输入第一个数到A"toainput"请输入第一个数到B"tobinput"请输入第一个数到C"toc?"S=A!+B!+C!=",ss(a)+ss(b)+ss(c)functionssparameternm=1fori=1tonm=m*iendforreturnmreturn8..根据题目要求完善程序。(1).通过字符串操作竖向显示“伟大祖国”，横向显示“祖国伟大”。SET.TALK.OFFSTORE.″伟大祖国″.TO.v

8、arCLEARn=1DO.WHILE.n<8?.SUBSTR(①)n=n+2ENDDO?.(②)??.SUBSTR(var,1,4)RETURN①var,n,n+1②substr(var,5,8)(2).对学生表，按入学成绩降序显示前10名和按升序显示后10名学生的入学成绩。SET.TALK.OFFUSE.学生IND