第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