vfp第七章答案.doc

第7章 程序设计二、操作题1、执行结果: 记录号XMZC 3赵竟雄工程师 记录号XMZC 9高雅工程师执行结果: 记录号XMCSRQJL 4李杨阳09/09/85原籍山西 记录号XMCSRQJL 5龙保国09/09/86原籍北京执行结果: 1812执行结果: XMXBZC 赵竟雄女工程师 XMXBZC 高雅女工程师2、(1)SETTALKOFFCLEARINPUT请输入一个数：TOXIFX=1Y=(X-1)/2ELSEIFX0Y=(1-X)/2ENDIFENDIF?X=,X?Y=,YSETTALKONRETURNSETTALKOFFUSEDABCLEARSTORE0TONAN,NVDOWHILE.NOT.EOF()IFXB=男NAN=NAN+1ELSENV=NV+1ENDIFSKIPENDDO?性别是男的有+STR(NAN,2)+人！?性别是女的有+STR(NV,2)+人！USESETTALKONRETURN SETTALKOFFCLEART=1I=1DOWHILEI=10T=T*II=I+1ENDDO?10!等于+STR(T)SETTALKONRETURN求N！SETTALKOFFCLEAR?本程序是求N！INPUT请输入N值：TONT=1I=1DOWHILEI700S=S+1DISPZGH,SFGZENDIFSKIPENDDO?实发工资在700以上的有+STR(S,2)+人！USESETTALKONRETURN(5)SETTALKOFFUSEGZBCLEARSTORE0TOS031,S032DOWHILE.NOT.EOF()IFLEFT(ZGH,3)=031S031=S031+JBGZELSES032=S032+JBGZENDIFSKIPENDDO?031班组基本工资的和是+STR(S031)+元！?032班组基本工资的和是+STR(S032)+元！USESETTALKONRETURN 第五章习题二第1题小题CLEARUSEDABLOCAFOR杨$XMDOWHILE.NOT.EOF()DISPCONTENDDOUSERETU第五章习题二第1题小题CLEARUSEDABLOCAFORYEAR(CSRQ)1980DOWHILE.NOT.EOF()DISPCONTENDDOUSERETU第五章习题二第1题小题,用SEEK查USEDABINDEONYEAR(CSRQ)TAGCSRQ1DESCSEEK1979DOWHILE.NOT.EOF().AND.YEAR(CSRQ)1980DISPSKIPENDDOUSERETU第五章习题二第1题小题CLEARUSEDABLOCAFORYEAR(DATE()-YEAR(CSRQ)26 （2009-04-16修改）DOWHILE.NOT.EOF()DISPCONTENDDOUSERETU第五章习题二第1题小题,用SEEK查CLEARUSEDABINDEONYEAR(DATE()-YEAR(CSRQ)TAGNLDESCSEEK25 （2009-04-16修改）DOWHILE.NOT.EOF().and.YEAR(DATE()-YEAR(CSRQ)=650DOWHILE.NOT.EOF()DISPCONTENDDOUSERETU第五章习题二第1题小题,用SEEK查CLEARUSEDABINDEONXB+STR(ZPCJ,5,1)TAGXBCJSY&如该索引已存在，此处可用SETORDERTOTAGXBCJSYSEEK男650.0DOWHILE.NOT.EOF().AND.XB=男.AND.ZPCJ=650DISPSKIPENDDOUSERETU第五章习题二第1题小题CLEARUSEDABLOCAFORZGH=031DOWHILE.NOT.EOF()DISPCONTENDDOUSERETU第五章习题二第1题小题,用SEEK查CLEARUSEDABINDEONSUBSTR(ZGH,1,3)TAGZGH1&如该索引已存在，此处可用SETORDERTOTAGZGH1SEEK031DOWH