vfp第七章答案.doc

第7章 程序設(shè)計(jì)二、操作題1、執(zhí)行結(jié)果: 記錄號(hào)XMZC 3趙竟雄工程師 記錄號(hào)XMZC 9高雅工程師執(zhí)行結(jié)果: 記錄號(hào)XMCSRQJL 4李楊陽09/09/85原籍山西 記錄號(hào)XMCSRQJL 5龍保國09/09/86原籍北京執(zhí)行結(jié)果: 1812執(zhí)行結(jié)果: XMXBZC 趙竟雄女工程師 XMXBZC 高雅女工程師2、(1)SETTALKOFFCLEARINPUT請(qǐng)輸入一個(gè)數(shù)：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請(qǐng)輸入N值：TONT=1I=1DOWHILEI700S=S+1DISPZGH,SFGZENDIFSKIPENDDO?實(shí)發(fā)工資在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 第五章習(xí)題二第1題小題CLEARUSEDABLOCAFOR楊$XMDOWHILE.NOT.EOF()DISPCONTENDDOUSERETU第五章習(xí)題二第1題小題CLEARUSEDABLOCAFORYEAR(CSRQ)1980DOWHILE.NOT.EOF()DISPCONTENDDOUSERETU第五章習(xí)題二第1題小題,用SEEK查USEDABINDEONYEAR(CSRQ)TAGCSRQ1DESCSEEK1979DOWHILE.NOT.EOF().AND.YEAR(CSRQ)1980DISPSKIPENDDOUSERETU第五章習(xí)題二第1題小題CLEARUSEDABLOCAFORYEAR(DATE()-YEAR(CSRQ)26 （2009-04-16修改）DOWHILE.NOT.EOF()DISPCONTENDDOUSERETU第五章習(xí)題二第1題小題,用SEEK查CLEARUSEDABINDEONYEAR(DATE()-YEAR(CSRQ)TAGNLDESCSEEK25 （2009-04-16修改）DOWHILE.NOT.EOF().and.YEAR(DATE()-YEAR(CSRQ)=650DOWHILE.NOT.EOF()DISPCONTENDDOUSERETU第五章習(xí)題二第1題小題,用SEEK查CLEARUSEDABINDEONXB+STR(ZPCJ,5,1)TAGXBCJSY&如該索引已存在，此處可用SETORDERTOTAGXBCJSYSEEK男650.0DOWHILE.NOT.EOF().AND.XB=男.AND.ZPCJ=650DISPSKIPENDDOUSERETU第五章習(xí)題二第1題小題CLEARUSEDABLOCAFORZGH=031DOWHILE.NOT.EOF()DISPCONTENDDOUSERETU第五章習(xí)題二第1題小題,用SEEK查CLEARUSEDABINDEONSUBSTR(ZGH,1,3)TAGZGH1&如該索引已存在，此處可用SETORDERTOTAGZGH1SEEK031DOWH