VisualFoxpro实用教程课本及辅导教材参考答案第三版

VisualFoxpro12P101.B2.A3.C4.D5.C6.B7.AP11.1A2B3B4D5C6D7D8C9B10B11D12B2.12345678910P421.B2.D3.B4.D5.B6.D7.D8.C9.B10.B11.A12.C13.B14.A.1(1).T.(2).F.(3).T.2(1)age15.and.height=1.8(2)zhch=.and.age40.or.age35.and.zhch=3.(1).T.(2).F.(3)353.00(4).F.(5).F.(6)223.22324.(1)2000.01.18(2)D(3)3(4)C(5)8(6)8(7)71(8)525.(1).F.(2).T.(3).F.(4)7(5)__87P31.1B2C3D4A5A6C7A8D9B10D11C12A13C14A15D2.1322Enter345;6.pjx78910N11.T.12337.20113151415-1P88.1.B2.3.C4.B5.D6.C7.C8.D9.C10.C11.BP211.1C2A3A4B5C6B7B8B9A10D11D12C13B14B15A16D17C18C19C20D21D22B23B24D25B26C27A28C29C30D2.1LISTDISPLAY2345EOF().T.5DELETEPACK6789Memo1061112DELETEFORSUBSTR(,1,1)=I13GO8DELETENEXT8PACK141516LISTFOR=.T.1718CONTINUE1920.dbfP129.1.D2.A3.C4.A1union2.NULL.3AVGSUM5INTOCURSORP361.1B2B3B4C5B6D7D8A9C10B11D12B13C14B15C16C17B18B19D20B21A22B23D24A25C26A27C28B29D30C31B32B33C34B35B36A37C38D39C40D41A42B43B44C45A46D47C48D49A50B51D52D53B2.1234INSERTSELECTUPDATEALTERTABLE56UPDATEGZBSET=+800WHERE=7SELECT*FROMRSGLINNERJOINRSGZONRSGL.=RSGZ.8AVG()GROUPBY9UNION10NULL1112AVGSUM13INTOARRAY14.ORDERBY15.1617.18SELECT*FROMSTUD1WHERE5AND=SET=5INTOSTUD2VALUES991201VFPSELECT,,FROMstud1WHERE=(SELECTMAX()FROMstud1)SELECT,,FROMstud1WHEREIN(SELECTFROMstud2WHERE=)SELECT*TOP3FROMSTUD1ORDERBYDESC19OrderBy20ISNULL21WHEREBETWEEN800AND1000WHERE=800AND=100022%23GROUPBY24DISTINCT25P171171DOa.prgDOmain.prg.1.A2.A3.A4.D5.A.1.1101C2.0,ssubstr(s,1,n-1)+substr(s,n+1)IFSETTALKOFFCLEAALLCLEAINPUTINPUTANUMBERTOX:TOXINPUTINPUTANUMBERTOY:TOYINPUTINPUTANUMBERTOZ:TOZIFXYIFYZ?X,Y,ZELSEIFXZ?X,Z,YELSE?Z,X,YENDIFENDIFELSE&&XYIFYZ?Z,Y,XELSEIFXZ?Y,X,ZELSE?Y,Z,XENDIFENDIFENDIFSETTALKONRETUCASE()SETTALKOFFCLEAALL&&CLEA&&INPUTINPUTANUMBERTOX:TOXINPUTINPUTANUMBERTOY:TOYINPUTINPUTANUMBERTOZ:TOZDOCASECASEXYDOCASECASEYZ?X,Y,ZCASEXZ?X,Z,YOTHER?Z,X,YENDCASEOTHER&&XYDOCASECASEXZ?Y,X,ZCASEYZ?Y,Z,XOTHER?Z,Y,XENDCASEENDCASESETTALKONRETU0-999SETTALKOFFCLEACLEAALLFORI=0TO999A=VAL(LEFT(STR(I,3),1))B=VAL(SUBSTR(STR(I,3),2,1))C=VAL(RIGHT(STR(I,3),1))IFA^3+B^3+C^3=I?IENDIFENDFORSETTALKONRETUCASESETTALKOFFCLEACLEAALLDOWHILE.T.INPUTINPUTANUMBERTOX:TOXIFX=0EXITENDIFDOCASECASEX=1?''CASEX=2?''CASEX=3?''CASEX=4?''CASEX=5?''CASEX=6?''CASEX=7?''CASEX=8?''CASEX=9?''ENDCASEENDDOSETTALKONRETUASCSETTALKOFFCLEACLEAALLACCE'INPUTASERIALOFCHARACTERSTOS'TOSNZM=0&&NSZ=0&&NKG=0&&FORI=1TOLEN(S)C=UPPER(SUBSTR(S,I,1))IFASC(C)91ANDASC(C)64NZM=NZM+1ENDIFIFASC(C)58ANDASC(C)47NSZ=NSZ+1ENDIFIFASC(C)=32NKG=NKG+1ENDIFENDFOR?'',NZM?'',NSZ?'',NKG?'',LEN(S)-NZM-NSZ-NKGSETTALKONRETUSETTALKOFFCLEACLEAALLINPUT'INPUTANUMBERTOTOR:'TOXINPUT'INPUTANUMBERTOTOr:'TOy?AREA(X)-AREA(Y)SETTALKONRETUFUNCTIONAREAPARARRETUPI()*R*RENDFUNC*MAIN.PRGSETTALKOFFCLEACLEAALLINPUT'INPUTANUMBERTOTOR:'TOXINPUT'INPUTANUMBERTOTOr:'TOy?AREA(X)-AREA(Y)SETTALKONRETU*AREA.PRGPARARRETUPI()*R*RRETU6SETTALKOFFCLEACLEAALL?SPACE(7)FORI=1TO12??*ENDFORFORI=1TO6?SPACE(7-I)+*+SPACE(10)+*ENDFOR?FORI=1TO11??*ENDFORSETTALKONRETU7.SETTALKOFFCLEACLEAALLUSEN_LISTFORI=1TO20INPUT'ANUMBERTOX:'TOXAPPEBLANREPLDATAWITHXENDFORINDEXONDATATAGDATADESCGOTOP?'TheMAXNUMBERIS:',DATAGOBOTT?'TheMINNUMBERIS:',DATAUSESETTALKONRETU114040SETTALKOFFCLEACLEAALLDIMEA(40)A(1)=1A(2)=1FORI=3TO40A(I)=A(I-1)+A(I-2)ENDFOR?A(40)SETTALKONRETUSETTALKOFFCLEACLEAALLS1=1S2=1FORI=3TO40S3=S1+S2S1=S2S2=S3ENDFOR?S3SETTALKONRETU1+2+3++10SETTALKOFFCLEACLEAALLS=0FORI=1TO10JC=1FORJ=1TOIJC=JC*JENDFORS=S+JCENDFOR?SSETTALKONRETUSETTALKOFFCLEACLEAALLS=0JC=1FORI=1TO10JC=JC*IS=S+JCENDFOR?SSETTALKONRETU0SETTALKOFFCLEACLEAALLNZS=0NFS=0L_SUM=0DOWHILE.T.INPUT'INPUTANUMBERTOX:'TOXIFX=0EXITENDIFL_SUM=L_SUM+XIFX0NZS=NZS+1ELSENFS=NFS+1ENDIFENDDO?L_SUM,NZS,NFSSETTALKONRETUSETTALKOFFCLEACLEAALLDOWHIL.T.&&INPUT'INPUTANUMBERTOX:'TOXIFX=0EXITENDIFL_SUM=0FORI=1TOXSTEP2L_SUM=L_SUM+IENDF?L_SUMENDDOSETTALKONRETU10SETTALKOFFCLEACLEAALLINPUT'INPUTANUMBERTOX:'TOXMAXNUM=XMINNUM=XFORI=1TO9INPUT'INPUTANUMBERTOX:'TOXIFXMAXNUMMAXNUM=XENDIFIFXMINNUMMINNUM=XENDIFENDF?MAXNUM,MINNUMSETTALKONRETU20KSETTALKOFFCLEACLEAALLDIMENUM(20)INPUT'ANUMBERTOX:'TONUM(1)K=1&&FORI=2TO20INPUT'INPUTANUMBER:'TONUM(I)IFNUM(I)NUM(1)K=IENDIFENDF?K,NUM(K)SETTALKONRETU33SETTALKOFFCLEACLEAALLDIMEA(3,3)FORI=1TO9INPUT'INPUTANUMBERTOARRAY:'TOA(I)ENDFORFORI=1TO9??STR(A(I))IFI%3=0?ENDIFENDFORFORI=1TO3K=1&&FORJ=2TO3&&IFA(I,J)A(I,K)K=JENDIFENDFOR&&A(I,K)IB=.T.FORR=1TO3IF(A(R,K)A(I,K))ANDRIB=.F.EXITENDIFENDFORIFB?''+STR(I)+''+STR(K)+''+STR(A(I,K))+''ENDIFENDFORSETTALKONRETU3SETCONSOLEOFF/ONSETTALKOFFCLEACLEAALLZQKL='1234'&&THERIGHTPASSWORDFORI=1TO3?''SETCONSOLEOFFACCETOPASSWORDSETCONSOLEONIFPASSWORD==ZQKL?''EXITELSEIFI3?''+STR(3-I)+''ELSE?''EXITENDIFENDIFENDFORSETTALKONRETU6060707080809090CASESETTALKOFFCLEACLEAALLUSECOMPUTERDOWHILENOTEOF()DOCASECASE60REPLACEWITHCASE70REPLACEWITHCASE80REPLACEWITHCASE90REPLACEWITHCASE=100REPLACEWITHENDCASESKIPENDDOCLSOEALLSETTALKONRETU12STUDENT.DBF,(C)NN12CLASS1.DBF,CLASS2.DBF,,,,CLASS12.DBF12,,,,121213121411,,,,,.SETTALKOFFCLEACLEAALLUSESTUDENTSINDEXONTAGINDEXONTAGDESCGOTOPDOWHILENOTEOF()FORI=1TO12REPLWITHISKIPIFEOF()EXITENDIFENDFORFORI=1TO12STEP1REPLWI