vfp历年试题分析

《vfp历年试题分析》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

2008᧡ḕ᪥ὃᔁFoxpro1ᖆᡠᨵ⚪Ḅᫀᑏᙠᔁ"•ᐸ%⚪1ᑮ⚪6'ᙠᔁ"Ḅᔜ)⚪⌱⚗Ḅ,-."“J212Ḅ3ὃ45Ḅ67-ᑏᙠᔁ89:Ḅᢣ<-.ᑁ஺3?@AB90ᑖD஺4
Eᔁ%FGᑮḄHᐵ⊤ᦻLMᐸN᪀PQR᝞9ᡠT1ஹ.DBFN᪀5_`ឋWaᨴcᔊᝄf᯿ᱏ•C,6C,8L,1D,8M,4N,6,2G,4QRQR5#5_`ឋWaᨴcᔊᝄf᯿ᱏ1951001jk.F.05/06/70memo50.00gen2951003lm.F.01/23/71memo25.00gen3954006n)o.T.07/21/70memo0.00gen4953008pq.T.11/05/72memo75.00gen5954011rs.T.09/27/70memo0.00gen6953013tu.T.09/09/71memo50.00genUឋW=.F.B᝕MឋW=.T.BᵱM5Z[-B\5]2ஹvw.DBFN᪀vw5vw`@ᦪC,4C,20N,3QRQR5#vw5vw`@ᦪ10001ᦪ10820002yz9030003{Ạ6840004ᦪ}~ᵨ8050005wᑴ803ஹᡂ.DBFN᪀5vw5ᡂC,6C,4N,5,lQRQR5#5vw5ᡂ1951001000195.0

12951003000388.03954006000178.04953008000490.05951001000378.06951003000480.0⚪1ஹ3ᑖMᐳ12ᑖ]▅9ᑡwPwMᙠ)⚪Ḅ⌱ᫀ%Mᢧ⌱ᫀ஺ூw௃ᦈ᪗3MEᙢᔴᢥ10ᐗM᜜ᙢᔴ20ᐗM᝞¦§¨500©ª]«"Mᑣᔴᢥ25ᐗᦈ஺ூw௃SETTALKOFFCLEARINPUTMᐭᱥ°±TOZLACCEPT'᜜ᙢ/Eᙢ='TOBDWDপFL=10*ZLELSEINPUT'ᐭ§¨='TOJLDOCASEফFL=20*ZLCASEJL>=500FL=25*ZLOTHER?M§¨ᐭᨵ┯¹’বENDIFভSETTALKONூ⌱½Ḅᫀ௃(DA.IFALLT(BDWD¾᜜ᙢMB.VIFALET(BDWD)=MEᙢMC.IFALLT(BDWD¾EᙢD.IFALLT(BDWDᡝ᜜ᙢ(2)A.IFJL>500ANDJL>=0B.CASEJL<=500ANDJL>=0C.VCASEJL<500ANDJL>=0D.CASEJL<500ORJL>=0(3)A.JENDCASEB.ENDCASE

2C.ENDIFD.CASEEND(4)A.?ᱥB=,FLB.?ᱥB=FLC.?MᱥB=M+FLD.V?MᱥB=M+STR(FL)⚪2ஹ(3ᑖMᐳ12ᑖ)▅9ᑡwPwMᙠ)⚪Ḅ⌱ᫀ%Mᢧ⌱ᫀ஺ூw௃ᐭ5MÔTÕḄ5PÖ×ØvwḄÙ@ᦪ஺ூw௃SETTALKOFFCLEARSELE1USEᡂSELE2USEvw(^)KSS=0ACCEPT'ᐭ5='TOXHSELEᡂL6)DOWHIL!EOF()IFᡂ=60SELEvw___________(J)______________KSS=KSS+@ᦪENDIFSELEᡂL8]ENDDO?XH,KSSCLOSEALLSETTALKONூ⌱½Ḅᫀ௃মAஹINDEXONvw5TOINXBஹINDEXONINXTOvw5C^INDEXONINXTOvw5OFIXSDஹINDEXON5TOINX(6)AஹSEEK5

3BஹSETFOR5=ALLT(XH)CஹLOCATEFOR5=ALLT(XH)D^SEEKALLT(XH)(7)A>SEEKB.vw5BஹSEEKA.vw5CஹSEEKvw5DஹSEEK1.vw5(8)AஹGORECNO()BஹSKIPCஹSKIP-1DஹCONT⚪3ஹ(3ᑖMᐳ12ᑖ)▅9ᑡwPwMᙠ)⚪Ḅ⌱ᫀ%Mᢧ⌱ᫀ஺ூw௃⊤ᓫÜÝ«1ÞBA◞M«àáâÝ᝱ÔTäå@AM@ஹᑖஹÞᵨæçÔTூw௃⊤ᓫFormlḄInitèLéṹ(9)THIS.TIMERI.ENABLED.T.(10)TIMER1ḄOJJèLéṹ:S=SUBSTR(TIME(),1,2)F=SUBSTR(TIME(),4,2)M=SUBSTR(TIME(),7,2)(12)ூ⌱½Ḅᫀ௃(9)AஹTHISFORM.TIEMR.INTERVAL=1BஹTHIS.TIEMR1.INTERVAL=1CஹTHIS.TIEMR1.INTERVAL=1000DஹTHIS.TIEMR.INTERVAL=1000(10)AஹTHIS.TEXT1.ONLYREAD=.F.BஹTHIS.TEXT1.READONLY=.F.CஹTHIS.TEXT1.ONLYREAD=.T.DஹTHIS.TEXT1.READONLY.T.(11)AஹTIMERBஹCLICKCஹVALIDDஹINIT(12)AஹTH1S.TEXT1.VALUE=S+'@'+F+'ᑖ'+M+'Þ'BஹTHISFORM.TEXT1.VALUE=S+Z@'+F+Mᑖ'+M+'Þ'CஹTHISFORM.TEXTl.VALUE=S+@+F+ᑖ+M+ÞDஹTHIS.TEXT1.VALUE=S+@+F+ᑖ+M+Þ

4⚪4ஹ(3ᑖMᐳ12ᑖ)▅9ᑡw(ì)íîï⚪Mᙠ)⚪Ḅ⌱ᫀ%Mᢧ⌱ᫀ஺ூ
௃SETTALKOFFCLEARSTOREOTOS,T,PFORK=1TO10DOCASECASEINT(K/2)=K/2T=T+KCASEINT(K/5)=K/5S=S+KOTHERWISEP=P+KENDCASEENDFOR?K,S,T,PSETTALKONூ⌱½Ḅᫀ௃(13)KḄaN¦A.0B.11C.10D.12(14)SḄaN¦A.5B.6C.7D.8(15)TḄaN¦A.0B.1C.a┯D.30(16)PḄaN¦A.0B.1C.20D.55⚪5ஹ(3ᑖMᐳ12ᑖ)▅9ᑡw(ì)íîï⚪Mᙠ)⚪Ḅ⌱ᫀ%Mᢧ⌱ᫀ஺ூ
௃SETTALKOFFCLEARP=0FORN=1TO49SETP1IFN>10EXITENDIFIFMOD(N,2)=0

5PP+NENDIFENDFOR?T=\PSETTALKONூ⌱½Ḅᫀ௃(17)PḄaN¦BA.20B.0C.60D.30(18)EXITᦋᡂLOOP,PḄaN¦BA.1B.0C.30D.10(19)EXITñò,SETP1ᦋBSTEP3,PḄaN¦BA.14B.0C.1D.a┯(20)EXITñò,SETP1ᦋBSTEP-1,PḄaN¦B.A.0B.1C.30D.-1⚪6ஹ(3ᑖMᐳ12ᑖ)▅9ᑡw(ì)íîï⚪Mᙠ)⚪Ḅ⌱ᫀ%Mᢧ⌱ᫀ஺ூw௃SETTALKOFFCLEAUseLIST7RECNO()&&ôÔTGO3INSERTBLANKREPL_`WITH'lmM?RECNO()&&ôÔTGOTOPDSPNEXT4?RECNO()&&ô[ÔTLOCATEFOR_`=MlmM?RECNO()&&ôõÔTUSESETTALKONூ⌱½Ḅᫀ௃(21)ôÔTöRECNO()Ḅ÷B(21)o

6Aஹ6Bஹ7Cஹ1Dஹ0(22)ôÔTöRECNO()Ḅ÷B(22)Aஹ21Cஹ4Dஹ0(23)ô[ÔTöRECNO஺Ḅ÷B_______(23)_______oAஹ0Bஹ1Cஹ2Dஹ4(24)ôõÔTöRECNO()Ḅ÷B(24)஺Aஹ2Bஹ7Cஹ4Dஹ3⚪7ஹ☢ᔣ,üwý(28ᑖ)᪷⚪⌕ᑭᵨ☢ᔣᙠḄᑏṹ.(1)⊤ᓫḄ☢!"#$%&ᡂ(⊤ᓫᨵᐵḄ⊤ᦻ#,-.ᑮᦪ1᛻3(2)⊤ᓫ☢◀#,6789Ḅ:ឋ᜜ᐸ>?⌕Ḅ:ឋ@Aᙠṹ8;(3)ṹCDEFḄG⌕:ឋஹFᑡ⊤᝞KLMNὃPAdditemControlsourceReadonlyRowsourceSetfocusEnabledRecordsourceRowsourcetypeButtoncountForecolorRecordsourcetypeSetallButtonsFontsizeRefreshTimerCaptionInitReleaseValueClearValidIntervalVisibleᑴRSTUVᝄTXYZḄ⊤ᓫ⊤ᓫ[Ḅ!"☢᝞\1ᡠ^஺ᐹa⌕P1)ᙠformlḄinit8bcdeᯖgᢣᔣTEXT1,᝞\2ᡠ^32)ᙠTEXT1iᐭTkᢥRS(commandl)ᢥmᑣo^pTUqrsFᔜuvḄᡂw᝞\3ᡠ^33)᝞xyzᑮpTUTkᑣo^{|᝞\4ᡠ^34)ᢥ⌨~(commands)ᢥmᑣ⌨~⊤ᓫ஺⚪Nὃ7-1\1⊤ᓫ[Ḅ!"☢\2⊤ᓫb☢

7\3yᑮpTk☢\4yzᑮpTk☢FormlḄinitthisform.caption=”TUᡂwRS”thisfbrm.labell.caption="TkP"thisform.label2.caption="qrP”thisform.command1.caption=''o^thisform.command2.caption=''⌨~''THISFORM.GRIDl.RecordSourceType=0&&0■⊤1-rTHISFORM.GRIDI.RecordSource=“ᡂw”SETDELETEONselectᡂwindexonTktoxhselectTUsetrelationtoTkintoᡂwthisform.textI.setfocusRSCommandlḄclickselectTUlocateforTk==antrim(thisform.textLvalue)iffound()thisform.text2.vahie=TU.qrSELEᡂwDELETEFORTk=alltrim(thisform.text1.value)elsethisfbrm.text2.value=nmessagebox("R!”)endif⌨~Command!Ḅclickthisform.release

82007ḕT᪥ὃᔁ¡¢Foxpro67P¡DὃU£ᡠᨵ⚪Ḅ¤ᫀ¦ᑏᙠ¤ᔁ§஺ᐸ⚪1ᑮ⚪6¨ᙠ¤ᔁ§Ḅᔜ©⚪⌱⚗Ḅ¬8§¦“J¢¡2
1☘£®Ḅ¯ὃ°kḄ±²¬¦ᑏᙠ¤ᔁ³K´Ḅᢣµ¬8ᑁ஺3·¸¹90ᑖ»஺4
%ᔁEFᑮḄᐵ⊤ᦻᐸ¼᪀¾¿À᝞Kᡠ^P3ஹTU.DBF¼᪀PTkqrឋ~UᨴÂᔊᝄTX᯿ᱏC,6C,8L,1D,8M,4N,6,2G,4¿ÀP¿Àk#Tkqrឋ~UᨴÂᔊᝄTX᯿ᱏ1951001ÇÈ.F.05/06/70memo50.00gen2951003ÉÊ.F.01/23/71memo25.00gen3954006Ë©Ì.T.07/21/70memo0.00gen4953008ÍÎ.T.11/05/72memo75.00gen5954011ÏÐ.T.09/27/70memo0.00gen6953013ÑÒ.T.09/09/71memo50.00gen¡ÓPឋ=.F.¹᝕ឋ=.T.¹ᵱTkÖ׬¹ØkÙ4ஹv.DBF¼᪀PvkvrTᦪC,4C,20N,3¿ÀP¿Àk#vkvrTᦪ10001ᦪT10820002ÚÛ9030003$Ạ6840004ᦪÝᵨ8050005Þᑴ\803ஹᡂw.DBF¼᪀PTkvkᡂwC,6C,4N,5,l

9¿À:¿Àk#Tkvkᡂw1951001000195.02951003000388.03954006000178.04953008000490.05951001000378.06951003000480.0⚪1ஹ¡àáâ3ᑖᐳ12ᑖÙ▅åKᑡ67¾ᙠà©⚪æMḄçèC⌱¤ᫀᢧ⌱@êëì¤ᫀ஺ூ67௃iᐭTUḄᡂwo^pᡂwḄ᫏ð¡ñஹòஹஹFâ¾zFâÙ᝞xᡂwzᙠ0ᑮ100ó¸ᑣæ^ôõ஺ூ௃SETTALKOFFCLEARINPUT'iᐭTUᡂw=TOZJm?ᡂwiᐭᨵ┯øELSEL2]CASEZJ>=90DC=*ñ1CASEZJ>=80DC='òCASEZJ>=70DC=''CASEZJ>=60DC='FâL3DC='zFâENDCASE

10(4]ENDIFUSESETTALKONூM⌱úḄ¤ᫀ௃(1)AஹIFZJ<0ORZJ>100BஹIFZJ>=0ORZJ<=100CஹIFZJ>=0ANDZJ<=100DஹIFZJ<0ANDZJ>100(2)AஹIFZJ>0B>DOWHILCஹSCANFORZJ>0DஹDOCASE(3)AஹENDIFBஹOTHERWISECஹENDCASEDஹOTHERCASE(4)Aஹ?VAL(ZJ)+஻@஻+DCBஹ?ZJ+஻@஻+VAL(DC)Cஹ?STR(ZJ)+஻T஻+DCDஹ?ZJ+஻ߟ஻+STR(DC)⚪2ஹ(3ᑖᐳ12ᑖ)▅ᑡᙠ⚪Ḅ⌱ᫀ"ᢧ⌱$%&'ᫀ஺ூ௃+ᐭ-.-/012-.Ḅ34ஹ5/67ᡂ9஺ூ௃SETTALKOFFCLEARSELE1USE-.(5JSELE2USEᡂ9__________(6)_____________ACCEPT+ᐭ-.-/=TOXHLOCAFOR-/=ALLT(XH)DOWHIL!EOF()(7)(8)

11ENDDOUSESETTALKONூ⌱;Ḅᫀ௃AஹINDEXON-/TOIXSBஹINDEXON-/INTO-.CஹINDEXON-.TO-/OFIXSDஹINDEXON-.TO-/(6)AஹSETRELATO-/INTOAB>SETRELATO-/INTOBCஹSETRELATOAINTO-/DஹSETRELATO-.INTO-/(7)Aஹ34B.5/B.ᡂ9BஹA.345/ᡂ9C^21.342.5/2.ᡂ9Dஹ1.345/ᡂ9(8)AஹGOFOR-/=ALLT(XH)B>SKIPCஹSKIP-1DஹCONT⚪3ஹ=3ᑖᐳ12ᑖ>▅ᑡᙠ⚪Ḅ⌱ᫀ"ᢧ⌱$%&'ᫀ஺ூ௃☢@ABCᑨE஺FGHI+ᐭJ┯L⌨J⊤ᓫ஺ூ௃⊤ᓫFormlḄInitPQRṹT(9)A=0USE-.Thistextl.value=z'THIS.TEXT1,PASSWORDCHAR='*'THIS.LABEL1.VISIBLE=F.(10)TEXT1ḄVALIDPQRṹT(11)IFFOUND()THISFORM.LABEL1.CAPTION=Z□C&'!THISFORM.LABEL1.VISIBLE=.T.

12RETU.T.ELSE(12)THISF0RM.LABEL1,CAPTION=ZWXHI┯Y!'THISFORM.LABEL1.VISIBLE=.T.THISFORM.RELEASEELSETH[SFORM.LABEL1,CAPT[ON=BCᨵ┯]^+ᐭ_'THISFORM.LABEL1.VISIBLE=.T.A=A+1RETU.F.ENDIFENDIFூ⌱;Ḅᫀ௃(9)AஹPUBLICABஹLOCALACஹPARAADஹ6ḕᶍ(10)AஹTHIS.TEXT1.SETFOCUS=.F.BஹTHIS.TEXT1.SETFOCUSCஹTHIS.TEXT1.SETFOCUS=.T.DஹTHISFORM.TEXT.SETFOCUS(11)AஹSEEKTHISFORM.TEXT1.VALUEBஹSEEKFOR34==ALLT(TH[SFORM.TEXT1.VALUE)CஹLOCAFOR34==ALLT(TH[SFORM.TEXT1.VALUE)DஹLOCAALL34=ALLT(TH[SFORM.TEXT1.VALUE)(12)AஹIFA>=3IFA>=2CஹIFA<3DஹIFA<=3⚪4ஹ=3ᑖᐳ12ᑖ>T▅ᑡ=b>cde⚪ᙠ⚪Ḅ⌱ᫀ"ᢧ⌱$%&'ᫀ஺ூ
௃SETTALKOFFCLEAS=0FOR1=1TO10STEP1S=S+I1=1+1ENDF?S

13SETTALKONூ⌱;Ḅᫀ௃(13)SḄ+Jfgh_____________03)___________Aஹ25Bஹ45Cஹ50Dஹ55(14)᝞gSTEP1ᦋᡂSTEP2,SḄ+Jfgh(14)஺Aஹ10Bஹ22Cஹ25Dஹ55(15)᝞gSTEP1ᦋᡂSTEP-1,sḄ+Jfgh(15)஺AஹlmnBஹ1cஹJ┯Dஹ0(16)᝞gSTEP1ᦋᡂSTEP0,sḄ+Jfgh(16)oAஹlmnBஹ1C^0Dஹ55⚪5ஹ(3ᑖᐳ12ᑖ)T▅ᑡ(b)cde⚪ᙠ⚪Ḅ⌱ᫀ"ᢧ⌱$%&'ᫀ஺ூ௃SETTALKOFFINPUTHX=nTOXIFX<0X=ABS(X)END[FS=0DOWHILEX>0Y=MOD(X,10)S=S+YA2X=INT(X/10)ENDDO?SSETTALKONூ⌱;Ḅᫀ௃(17)FX+ᐭh-1LSḄ+Jfgh____________(22J__________஺AஹJ┯Bஹ-1Cஹ-XDஹ1(18)FX+ᐭh10LSḄ+Jfgh(18)o

14Aஹ2B,0Cஹ1Dஹ10(19)FX+ᐭh0LSḄ+Jfgh___________09)__________oAஹ2Bஹ0Cஹ1DஹJ┯(20)FX+ᐭh5LSḄ+Jfgh____________(20)__________=Aஹ25Bஹ1Cஹ0DஹJ┯⚪6ஹ(3ᑖᐳ12ᑖ)T▅ᑡ(b)cde⚪ᙠ⚪Ḅ⌱ᫀ"ᢧ⌱$%&'ᫀ஺ூ
௃SETTALKOFFCLEASETDELEONUse-.LISTNEXT2?-/&&G$%0134=5REPL34WITHஹqrSTORE34TO34?3434M.34&&Gp%01GO1DELEGOTOP?-/&&GH%01DISPREST?RECNO()&&Gs%01USESETTALKONூ⌱;Ḅᫀ௃(21)G$%01t-/Ḅuh(21)OAஹ953008Bஹ954006Cஹ951001Dஹ951003(22)Gp%01t3434M.34Ḅuh(22)OAஹ
55BNqrqrqrCஹ5qr5Dஹ55qr(23)GH%01t-/Ḅuh(23)OAஹ954006Bஹ951001Cஹ951003Dஹ953008(24)Gs%01tRECNO()Ḅuh(24)OAஹ3Bஹ7Cஹ6Dஹ1

15⚪7ஹ☢ᔣxyz{(28ᑖ)T᪷⚪⌕ᑭᵨ☢ᔣxyz{ᙠxyḄPQ"ᑏRṹ஺(1)⊤ᓫḄ☢Wᡂ⊤ᓫᨵᐵḄ⊤ᦻQWXᑮᦪn᛻"(2)⊤ᓫ☢"◀WXzḄឋ᜜ᐸ¡¢⌕Ḅឋ$£ᙠPQRṹ"z;(3)PQRṹ"¥¦7Ḅ§⌕ឋஹPQ7ᑡ⊤᝞¨©ὃTAdditemControlsourceReadonlyRowsourceSetfocusEnabledRecordsourceRowsourcetypeButtoncountForecolorRecordsourcetypeSetallButtonsFontsizeRefreshTimerCaptionInitReleaseValueClearValidIntervalVisibleᑴ¬-.®ᝄ-°±²Ḅ⊤ᓫ⊤ᓫ³QḄ☢᝞´1ᡠ1஺ᐹ·⌕T1)ᙠformlḄinit"z¸uc¹ᯖ»ᢣᔣcombol,᝞´2ᡠ12)½¾ᔠ᪾"+ᐭᡈ⌱;ÂÃ/ᢥ01(commandl)ᢥÅLᑣ012®ᝄ-°Ḅ-.4ᓫ7ᵱ᝕.Éᦪ᝞´3ᡠ13)᝞gÊËᑮ2-.-/ᑣ01ÌB᝞´4ᡠ1;4)ᢥ⌨J(command2)ᢥÅLᑣ⌨J⊤ᓫ஺´1⊤ᓫ³QḄ☢´2⊤ᓫÍθÏ☢/ᝄ□0®⌱
ᝄᝄᦪᵱ᝕1⌨

16´3Êᑮ2-/L☢´4ÊËᑮ2-/L☢2007ÐÑÒÓḕÔÕ-᪥{×ØÕÃὃᔁ=pÃFoxpro©ὃᫀ1.A2.D3.B4.C5.A6.A7.B8.D9.A10.B11.C12.B13.A14.B15.D16.D17.D18.C19.B20.A21.D22.B23.C24.B☢ᔣxyz{(1)formlḄinitPQthis.caption="®ᝄ¬”&&---Ë◤⌕thisform.labell.caption="⌱;ÂÃ/”thisform.Iabel2.caption=”®ᝄ4ᓫ”thisform.Iabel3.caption="®ᝄÉᦪ”thisform.Iabel4.caption="ᵱ.”thisform.Iabel5.caption="᝕.”thisform.commandl.caption="01”thisform.command2.caption="⌨J”thisform.combol.setfocusthisform.textl.enabled=.f.&&---Ë◤⌕thisform.text2.enabled=.f.&&---Ë◤⌕settalkoffpublicboys,girlsstore0toboys,girlsthisform.listl.clear&&——Ë◤⌕thisform.textl.value=n"&&---Ë◤⌕thisform.text2.value=Hn&&---Ë◤⌕sele-.indexonleft(-/3)toxhindexuniquescanthisform.combol.additem(left(-/,3))endscansetindexto(2)combolḄinteractivechangePQ

17store0toboys,girlsthisform.listl.clearthisform.textl.value=nthisform.text2.value=n(3)coiranandlḄclickPQstore0toboys,girlsthisform.listl.clearthisform.textl.value=H"&&---Ë◤⌕thisform.text2.value=n"&&---Ë◤⌕sele-.locateforalltrim(left(-/3));==alltrim(thisform.combol.displayvalue)iffound()scanforalltrim(left(-/3));==alltrim(thisform.combol.displayvalue)andᝄ-°0thisform.listl.additem(34)ifឋàboys=boys+lelsegirls=girls+lendifendscanthisform.textl.value=boysthisform.text2.value=girlselsemessagebox("ÊËᑮ2ÂÃ/_”)endif(4)command2ḄclickPQthisform.release

182007Ð᧡ÒÓḕÔÕ-᪥{×ØÕÃὃᔁ=pÃFoxpro
T=Dὃ.âᡠᨵ⚪Ḅᫀãᑏᙠᔁä஺ᐸ"⚪1ᑮ⚪6åᙠᔁäḄᔜ⚪⌱⚗Ḅxèäã“4:=2êâëḄìὃí/ḄîrèãᑏᙠᔁïðḄᢣñèᑁ஺3óLôh90ᑖõ஺4
ᔁ"¦7ᑮḄᐵ⊤ᦻQᐸf᪀÷ø᝞ᡠ1T5ஹ-..DBFf᪀:-/34ឋàJ.Ðᨴûᔊᝄ-°᯿ᱏC,6C,8L,1D,8M,4N,6,2G,4÷øT÷ø/#
ឋᨴᔊᝄ
᯿ᱏ1951001.F.05/06/70memo50.00gen2951003.F.01/23/71memo25.00gen3954006.T.07/21/70memo0.00gen4953008.T.11/05/72memo75.00gen5954011.T.09/27/70memo0.00gen6953013.T.09/09/71memo50.00genឋ=.F.!᝕#ឋ=.T.!ᵱ#
%&'!()*6ஹ,-.DBF.᪀,-,-
0ᦪC,4C,20N,32323#,-,-
0ᦪ1000156ᦪ
108200027890300039:;<Ạ6840004ᦪ>?@ᵨ8050005B-ᑴD803^ᡂF.DBF.᪀
,-ᡂFC,6C,4N,5,l23:

1923#
,-ᡂF1951001000195.02951003000388.03954006000178.04953008000490.05951001000378.06951003000480.0H⚪1ஹJKL3ᑖ#ᐳ12ᑖ*▅PQᑡ-STUV-S#ᙠJ⚪XYḄ[\]⌱_ᫀa#ᢧ⌱cdef_ᫀ஺ூ-STU௃jᐭllᨴlm#ᑨopcᜩrpcḄstᜩ஺uᩩw!xy4᦮◀|}xy100᦮◀#ᡈxy100᦮◀xy400᦮◀஺ூ-S௃SettalkoffInput'jᐭ='toyearInput'jᐭᨴ='tomonthInput'jᐭm='todaySum=0DocaseCasemonth=lSum=0Casemonth=2Sum=31Casemonth=3Sum=59Casemonth=4Sum=90Casemonth=5Sum=120Casemonth=6Sum=151Casemonth=7Sum=181Casemonth=8Sum=212Casemonth=9Sum=243

20Casemonth=10Sum=273Casemonth=llSum=304Casemonth=12Sum=334Otherwise?,jᐭᨵ┯#(1)Sum=sum+dayIfmod(year,4)=0andmod(year100)1=0ormod(year,400)=0ফzLeap=lElseLeap=0EndifIf__________L3)_________Sum=sum+1Endif?_________(4^_______SettalkonூY⌱Ḅ_ᫀ௃(1)AஹcaseBஹendcaseCஹenddoDஹcaseend(2)Aஹyear%4=0andyear%100!=0oryear%400=0andyear%100=0year%4=0andyear%100=0andyear%400=0andyear%100=0C>(year%4=0andyear%100=0)or(year%400=0andyear%100=0)Dஹyear%4=0andyear%100!=0andyear%400=0andyear%100=0(3)Aஹleap=lBஹleap=landmonth>=2C>leap=lormonth>=2Dஹleap=landmonth>2(4)Aஹ'prs#+sum+#ᜩ#Bஹ'prs#+#5#+#ᜩ#Cஹ'prs#+str(sum)ᜩ#Dஹprs+str(sum)+ᜩH⚪2ஹ(JKL3ᑖ#ᐳ12ᑖ)▅PQᑡ-STUV-S#ᙠJ⚪XYḄ[\]⌱_ᫀa#ᢧ⌱cdef_ᫀ஺

21ூ-STU௃jᐭ
#
ḄᡠᨵᡂF[ᵨᡝjᐭKᡈKL#⌕ᵨᡝjᐭ;ᵨᡝjᐭ“000”#ᑣ.஺ூ-S௃SettalkoffUseᡂF__________[5]_______Accept'jᐭ
='toxhIf________(6)_______loopEndifIfallt(xh)=z000^(7]EndifLocafor
(xh)Iffound()Dowhil!eof()Disp(8]6nddoElse?'¡ᨵ
#EndifEnddoUseSettalkonூY⌱Ḅ_ᫀ௃(5)AஹdowhiltBஹdowhileof()Cஹfori=ltorecc()Dஹdowhil.t.(6)Aஹallt(xh)=0len(str(xh))=0Cஹlen(allt(xh))=0Dஹallt(xh)=z0A(7)AஹloopBஹexitCஹskip-1Dஹskip100(8)AஹcontskipCஹskip-1DஹgonH⚪3ஹ(JKL3ᑖ#ᐳ12ᑖ)

22▅PQᑡ-STUV-S#ᙠJ⚪XYḄ[\]⌱_ᫀa#ᢧ⌱cdef_ᫀ஺ூ-STU௃Q☢-S£¤¥¦(shapel)§ᙊ¥⌲ª«ᡂe¬¥#§e¬¥⌲ª«ᡂᙊ¥Ḅ®-஺¯°¥¦!±⁐³⁐Ḅᙊ¥஺´µa¶ឋ஺ூ-S௃⊤ᓫFormlḄInit¹wºṹThis,a=l(9)This,timerl.interval=1000(10).width=100.height=100(11)EndwithTimerlḄTimer¹wºṹIfthisform.shapel.curvature=99Thisform.a=0EndifIfthisform.shapel.curvature=0Thisform.a=lEndifB=thisform.shapelcurvatureIf_______(12)Thisform.shapel.curvature=b+lElseThisform.shapel.curvature=b-lEndifூY⌱Ḅ_ᫀ௃(9)AஹThis.timerl.enabled=.t.BஹThis.timer.enabled=.t.CஹThis.enabled=.t.DஹThis.timerl.enabled=.f.(10)Aஹscanthisform.shapelBஹWiththis.shapelCஹwiththisformDஹwithshapel(11)AஹBackcolor=rgb(255,00)zBஹ.Backcolor=rgb(2550,0)zCஹ.Backcolor=rgb(0,255,0)

23DஹBackcolor=255(12)Aஹa=lBஹa=0Cஹthisform.a=0Dஹthisform.a=lH⚪4ஹ(JKL3ᑖ#ᐳ12ᑖ)TU▅PQᑡ-S(¼)½¾_¿⚪#ᙠJ⚪XYḄ[\]⌱_ᫀa#ᢧ⌱cdef_ᫀ஺ூ-S௃SettalkoffcleaFori=5to1step-1Ifi=3LoopEndif??iEndfor?iSettalkonூY⌱Ḅ_ᫀ௃(13)-SḄj.À!(13)Aஹ5421Bஹ5432100C>54321Dஹ542111(14)loopᦋ!exit0#-SḄj.À!(14)Aஹ54B>54333Cஹ543Dஹ3(15)loop}«#ÂstepTᦋᡂstep-20#j.À!(15)Aஹ543Bஹ51Cஹ51Dஹ511-1(16)loop}«#ÂstepTᦋᡂstep10#j.À!(16)Aஹ1Bஹ5Cஹ0Dஹ¡ᨵjH⚪5ஹ(JKL3ᑖ#ᐳ12ᑖ)TU▅PQᑡ-S(¼)½¾_¿⚪#ᙠJ⚪XYḄ[\]⌱_ᫀa#ᢧ⌱cdef_ᫀ஺ூ-S௃

24settalkoffcleainput#jᐭ1ᑮ9ÅÆḄᦪ=#tonk=10j=lfori=lton??space(k)forf=lto2*i-l??subst(allt(str(j)),1,1)endfifi%2=0k=k+1j=Ç2elsek=k-1j=j+2endifendfsettalkonூY⌱Ḅ_ᫀ௃(17)njᐭ!20#j.À!(17)OAஹ1Bஹ1Cஹ1Dஹ1222121123333(18)njᐭ!30#j.À!(18)OAஹ1Bஹ1Cஹ1Dஹ122212133312322211111111111(19)njᐭ!40#j.À!(19)OAஹ1Bஹ1Cஹ1Dஹ1222123333121222111111111233333333121(20)njᐭ!஺0#j.À!(20)OAஹ┯Bஹ¡ᨵCஹ0Dஹ1

25H⚪6ஹ(JKL3ᑖ#ᐳ12ᑖ)TU▅PQᑡ-S(¼)½¾_¿⚪#ᙠJ⚪XYḄ[\]⌱_ᫀa#ᢧ⌱cdef_ᫀ஺ூ-S௃SettalkoffSele1Use
Sele2UseᡂFSeleASkip?a.
&&scd?b.ᡂF&&sÉdSeleBINDEXON
TOXISELEASETRELATO
INTOBGo3?a.
&&s&d?b.ᡂF&&sËdCloseallSettalkonூY⌱Ḅ_ᫀ௃(21)scdÌa.
ḄÍ!(21)஺Aஹ951001Bஹ954006Cஹ951003Dஹ953008(22)sÉdÌb.ᡂFḄÍ!(22)OAஹ95.0Bஹ88.0Cஹ78.0Dஹ90.0(23)s&dÌa.
ḄÍ!(23)OAஹ954006Bஹ951003Cஹ951001Dஹ953008(24)sËdÌb.ᡂFḄÍ!(24)OAஹ95.0Bஹ88.0Cஹ90.0Dஹ78.0H⚪7ஹ☢ᔣÏÐ-SÑ9(28ᑖ)TU᪷>⚪Ó⌕#ᑭᵨ☢ᔣÏÐ-SÑ9¬ÕᙠÖ@ÏÐḄ¹wa×ᑏºṹ஺(1)⊤ᓫḄÙ☢ÚÛ´<ÜÝᡂ#Þ⊤ᓫᨵᐵḄ⊤ᦻw´áâãᑮᦪ>ä᛻a(2)⊤ᓫÙ☢a◀´áTUÑæçḄ¶ឋ᜜#ᐸêë⌕Ḅ¶ឋcìᙠ¹wºṹaÑæ;(3)¹wºṹa]xíîḄï⌕¶ឋஹ¹wî¬Õᑡ⊤᝞Q#ñYòὃAdditemControlsourceReadonlyRowsourceSetfocusEnabledRecordsourceRowsourcetype

26ButtoncountForecolorRecordsourcetypeSetallButtonsFontsizeRefreshTimerCaptionInitReleaseValueClearValidIntervalVisible×ᑴ
ᡂF9⊤ᓫ#⊤ᓫôwḄÚÛÙ☢᝞D1ᡠ஺ᐹö⌕1
ᙠformlḄinitaÑæ¯Í#½÷ᯖùᢣᔣtextl,᝞D2ᡠ2
ᢥfücommand஺ᢥý0#᝞Àþᑮ

#ᑣÝᡂ
ᡂF9#listla,-VᡂF#᝞D3ᡠ᝞Àþ}ᑮ

#ᑣÿ
᝞4ᡠ3
ᢥcommand2
ᢥ
ᑣ⊤ᓫᑮ᝱
᝞2ᡠ4
ᢥ⌨commands
ᢥ
ᑣ⌨⊤ᓫ஺1⊤ᓫḄ!☢2⊤ᓫ!☢3#ᑮ$%&!☢4#'ᑮ$%&!☢2007(᧡*+ḕ-.%᪥

27123.4ὃ66ᔁ(94Foxpro):ὃ;ᫀ25.B26.A27.D28.C29.D30.C31.B32.A33.A34.B35.B36.D37.A38.A39.D40.B41.D42.C43.C44.B45.C46.A47.A48.D☢ᔣ>?@AB1(2)formlḄinitCthis.caption="%EᡂGH1”thisform.textl.setfocusthisform.commandl.caption="JK”thisform.command2.caption="”thisform.commands.caption="⌨”(2)commandlḄclickClocateforalltrim(%&)==alltrim(thisform.textl.value)store0tojg,bjgiffound()scanforalltrim(%&)==alltrim(thisform.textl.value)thisform.listl.additem(M@&+'--'+str(ᡂG,3))ifᡂG=60jg=jg+lelsebjg=bjg+lendifendscanthisform.text2.value=jgthisform.text3.value=bjgelsemessagebox(”#'RU$%&S”)endif(3)command2ḄclickCthisform.listl.clearthisform.setall("value""textbox")(4)commandsḄclickCthisform.release

282006(T*+ḕ-.%᪥123.4ὃ66ᔁU94FoxproVWXপὃEZ[ᡠᨵ6⚪Ḅ;ᫀ^ᑏᙠ;ᔁa஺ᐸc6⚪1ᑮ6⚪6dᙠ;ᔁaḄᔜf⚪⌱⚗Ḅ>Zia^“Vফd[lḄmὃn&Ḅopi^ᑏᙠ;ᔁqrsḄᢣKiᑁ஺বὃ6wx90ᑖz஺4
{6ᔁc|}ᑮḄ~ᐵ⊤ᦻ
ᐸ᪀᝞rᡠX7ஹ%E.DBF᪀X%&ឋE(ᨴᔊᝄ%᯿ᱏC,6C,8U1D,8M,4N,6,2G,4X&#%&ឋE(ᨴᔊᝄ%᯿ᱏ1951001®¯.F.05/06/70memo50.00gen2951003·¸.F.01/23/71memo25.00gen3954006¹fº.T.07/21/70memo0.00gen4953008»¼.T.11/05/72memo75.00gen5954011½¾.T.09/27/70memo0.00gen6953013¿À.T.09/09/71memo50.00genUXឋ=.F.x᝕
ឋ=.T.xᵱ
%&ix4&8ஹM@.DBF᪀XM@&M@%ᦪC.4C,20N,3X&#M@&M@%ᦪ10001-.ᦪ%10820002ÂÃ9030003123ÄẠ6840004ᦪÆÇZᵨ8050005É@ᑴ803ஹᡂG.DBF

29᪀X%&1Ë@&ᡂGC,6C,4N,5,1X&#%&M@&ᡂG1951001000195.02951003000388.03954006000178.04953008000490.05951001000378.06951003000480.06⚪1ஹUÌÍÎ3ᑖ
ᐳ12ᑖ▅Ñrᑡ@AVW@A
ᙠÌf⚪ÓÔḄÕÖ×⌱;ᫀc
ᢧ⌱ÙÚÛJ;ᫀ஺ூ@AVW௃ÞÙᐗ9àá@ax2+bx+c=0Ḅ᪷
aஹbஹcḄçèéêëᐭ஺ூ@A௃SETTALKOFFCLEAINPUT*A='TOAINPUT'B='TOBপD=B*B-4*A*CP=B/(2*A)IFA#0ফCASED>0T=SQRT(D)?“X1="(-B+T)/(2*A)?“X2="(-B-T)/(2*A)CASED=0বORTHERWISE?“᪷”ENDCASEভ?“'îÙᐗ9àá@”ENDIF

30SETTALKONூÔ⌱ïḄ;ᫀ௃1ஹA>WAITtC=,TOCBஹACCEPT4C='TOCCஹSTOREC=9TOCD>INPUTTOC2ஹ|AஹDOCASðBஹCASEC.IFD>0DஹSCAN3ஹAஹ“X1=X2="ÙVAL(P)Bஹ"X1=X2="+PCஹ?X1=X2=-PDஹ"X1=X2="ÙSTR(-P)4ஹAஹIFA=0BஹELSECஹENDDODஹENDIF6⚪2ஹ(ÌÍÎ3ᑖ
ᐳ12ᑖ)▅Ñrᑡ@AVW@A
ᙠÌf⚪ÓÔḄÕÖ×⌱;ᫀc
ᢧ⌱ÙÚÛJ;ᫀ஺ூ@AVW௃ñòM⊤cóÙÚ%ᦪxᨬfḄM@
õ$Ḅ%ᦪö÷5஺ூ@A௃SETTALKOFFCLEARUSEM@GOTOPJXJ=%ᦪDOWHIL!EOF()IFমJXJ=%ᦪENDIF(6)ENDDOø(8)USESETTALKONூÔ⌱ïḄ;ᫀ௃5ஹ|AஹJXJ>%ú|BஹJXJ<%ᦪCஹJXJ=%ᦪDஹJXJ#%ᦪ6ஹAஹGORECORD()BஹCONTCஹSKIP+1DஹSKIP-17ஹAஹGORECORD()BஹLOCAFOR%ᦪ=JXJ

31CஹSEEKJXJDஹSEEKFOR%ᦪ9JXJ8ஹAஹ%ᦪ9%ᦪ+5BஹREPL%ᦪWITH%ᦪ+5ALLCஹREPL%ᦪWITH5DஹREPL%ᦪWITH%ᦪ+56⚪3ஹ(ÌÍÎ3ᑖ
ᐳ12ᑖ)▅Ñrᑡ@AVW@A
ᙠÌf⚪ÓÔḄÕÖ×⌱;ᫀc
ᢧ⌱ÙÚÛJ;ᫀ஺ூ@AVW௃r☢@Aüýᙠᦻ{᪾cÌ◞1⌲“ᜧὃ”஺ᓽᐜ“஺◞1“”஺஺ᐳ5"஺ூ$%௃⊤ᓫFormlḄInit*+,ṹ.PUBLICN(9)THISFORM.TEXT1.VALUE=,'THISFORM.TIMER1.INTERVAL=1000(10)/01+TimeriḄTimer*+,ṹ.A="ᜧὃ”B=LEN(A)(11)IFC=BIFN=5THISFORM.TIMER1.ENABLED=.F.ELSEN=N+1THISFORM.TEXT1.VALUE=J'ENDIFELSE02)ENDIFூ3⌱5Ḅ6ᫀ௃9ஹAஹSTORE0TONBஹN=1CஹCLEARDஹSETTALKOFF10ஹ|AஹTHISFORM.TIMER1.ENABLED:;BஹTHISFORM.REFRESHCஹTHISFORM.TIMER.ENABLED:;DஹTHISFORM.RELEASE

3211ஹBஹC:THISF0RM.TEXT1.VALUECஹC=ALLT(THISF0RM.TEXT1.VALUE)DஹC=LEN(ALLT(THISFORM.TEXT!.VALUE))12ஹAஹTHIS.VALUE=SUBSTR(A,1,C+2)BஹTHIS.TEXT1.VALUE=SUBSTR(A,1,C+2)CஹTHISFORM.TEXT1.VALUE=SUBSTR(A,1,C+2)orLeft(A,C+2)5ORY>5Z=2ELSEIFX>=5ANDY>=5Z=3ELSEZ=4ENDIFENDIF?ZSETTALKONூ3⌱5Ḅ6ᫀ௃(13)YXஹYᑖZ[ᐭ]6ஹ5/,ZḄ[_`a]Q3)஺Aஹ1Bஹ2|Cஹ3Dஹ4(14)YXஹYᑖZ[ᐭ]2ஹ3/ZḄ[_`a](14)oAஹ1Bஹ2Cஹ3|Dஹ4(15)⌕cZḄ[_`a]3,XஹYᑖZ⌕d(15)oAஹ5ஹ5|Bஹ4ஹ10Cஹ4ஹDஹdeᑮ(16)⌕cZḄ[_`a]1,XஹYᑖZ⌕d(16)oAஹ4ஹ4Bஹ4ஹ10Cஹ4ஹ1Dஹdeᑮ

33⚪5ஹg?@A3ᑖᐳ12ᑖhDE.▅GHᑡ$%(J)KL6M⚪ᙠ?O⚪P3ḄQRS⌱6ᫀTᢧ⌱_100Cஹ1N10101001001010100001001101g20hYM[ᐭ]0/[_Ḅ`a](20)O

34┯BஹᨵCஹ0Dஹ1⚪6ஹ(!"3ᑖ$ᐳ12ᑖ)'()▅+,ᑡ./(0)1234⚪$ᙠ6⚪78Ḅ:;<⌱3ᫀ>$ᢧ⌱@ABC3ᫀ஺ூ./௃SETTALKOFFSelect1useᡂHindexonI.tox1select2useI.setrelationtoI.intoainput'KLᐭI.='toklocateforI.=alltrim(k)if.not.eof()ifOPᦪ
=90skipelseskip-1endifendif?a.ᡂH?recno()useSETTALKONூ8⌱
Ḅ3ᫀ௃(21)RKLᐭS“UV”P$X@AYA.ᡂHḄZS(21)஺Aஹ78.0[88.0|Cஹ95.0Dஹᨵ(22)RKLᐭS“UV”P$XAYRECN0()ḄZS(22)஺As1Bஹ2|Cஹ3|D,7(23)RKLᐭS“\.ᑴ^”P$X@AYA.ᡂHḄZS(23)஺Aஹ0.0Bஹ78.0Cஹ80.0|Dஹ90.0(24)RKLᐭS“\.ᑴ^”P$XAYRECN0()ḄZS(23)஺kஹ4|Bஹ5Cஹ6Dஹ7

35⚪7ஹ☢ᔣ$$%g14ᑖh[ᐭ

364ᢥ`agcommand3hᢥbP$ᑣdᯖfghᢣᔣCombol,klLᐭᡈὅ⌱
,pP$textᑮtext4Ḅrsᦪtu!஺[ᐭᡈ⌱5ÍCombol:îïᦪ;|Text!ñᝄïᦪText2ᝄÐòóText3ôᙳᝄÐText4Xä:⌨_÷ø^1⊤ᓫ>xyḄz{|☢ù—[ᐭᡈ⌱5Í|953JÍïᦪ|3ñᝄïᦪ|3ᝄÐòó|150.0ôᙳᝄÐ|50.001:Xä:.||⌨_|÷ø|^2⊤ᓫ~|☢1FORM1JNITTHIS.COMBO1.STYLE=0&&0-,ᔠ᪾

37THIS.C0MB01.ADDITEM(LEFT(Ïú3))ENDSCANSETINDEXTO(2)COMBO1_VALIDLOCATEFORLEFT(ALLTRIM(Ïú),3)=ALLTRIM(THIS.DISPLAYVALUE)IFEOF()RETURN.F.ELSERETURN.T.ENDIF(3)COMMANDI_CLICKCOUNTTOA1FORLEFT(ALLTRIM(Ïú),3)=;ALLTRIM(THISFORM.COMBO1.DISPLAYVALUE)COUNTTOA2FORLEFT(ALLTRIM(Ïú),3)=;ALLTRIM(THISFORM.COMBO1.DISPLAYVALUE)ANDᝄÏÐ
0SUMᝄÏÐTOA3FORLEFT(ALLTRIM(Ïú),3)=;ALLTRIM(THISFORM.COMBOI.DISPLAYVALUE)AVERAGEᝄÏÐTOA4FORLEFT(ALLTRIM(Ïú),3)=;ALLTRIM(THISFORM.COMBO1.DISPLAYVALUE)THISFORM.TEXT1.VALUE=A1THISFORM.TEXT2.VALUE=A2THISFORM.TEXT3.VALUE=A3THISFORM.TEXT4.VALUE=A4(4)COMMAND2_CLICKTHISFORM.RELEASE(5)COMMAND3_CLICKTHISFORM.COMBO1.SETFOCUSTHISFORM.TEXT1.VALUE=''THISFORM.TEXT2.VALUE=THISFORM.TEXT3.VALUE=''THISFORM.TEXT4.VALUE=''

382006û᧡ýþḕ
᪥
ὃᔁFoxproপὃᡠᨵ⚪Ḅᫀᑏᙠᔁ஺ᐸ⚪1ᑮ⚪6"ᙠᔁḄᔜ$⚪⌱⚗Ḅ'()“Jফ"-Ḅ.ὃ/0Ḅ12(ᑏᙠᔁ345Ḅᢣ7()ᑁ஺বὃ:;<90ᑖ>஺4?ᔁ@AᑮḄBᐵ⊤ᦻFGᐸH᪀JKL᝞4ᡠN9ஹ.DBFH᪀0PQឋSTUᨴWᔊᝄZ᯿ᱏC,6C,8L,1D,8M,4N,6,2G4KLKL0#0PQឋSTUᨴWᔊᝄZ᯿ᱏ1951001^_.F.05/06/70memo50.00gen2951003`a.F.01/23/71memo25.00gen3954006b$c.T.07/21/70memo0.00gen4953008de.T.11/05/72memo75.00gen5954011fg.T.09/27/70memo0.00gen6953013hi.T.09/09/71memo50.00genjឋSF.<᝕,ឋS=n<ᵱ,0pq(

39KL:KL0#0tu0ᡂ1951001000195.02951003000388.03954006000178.04953008000490.05951001000378.06951003000480.0⚪1ஹ(3ᑖGᐳ12ᑖ)▅4ᑡuJuGᙠ$⚪Ḅ⌱ᫀGᢧ⌱ᫀ஺ூu௃ᐭᦪG᜻ᦪ¢Ꮤᦪ஺ூu௃SETTALKOFFCLEAপ'ᐭᦪ='TOSHA=INT(SH)IFA=SHIFফবELSE?A᜻ᦪrভELSE?‘n᦮ᦪ’ENDIFSETTALKONூ⌱ªḄᫀ௃1ஹAஹACCEPTBஹINPUTCஹWAITDஹSTORE2ஹA.INT(A)/2=A/2BஹINT(A/2)CஹMOD(A/2)=0DஹA%2=03ஹAஹA+Ꮤᦪ!GBஹSTR(A¬Ꮤᦪ!,CஹA+ᏔᦪDஹVAL(A)+Ꮤᦪ!4ஹAஹENDCASEBஹOTHERWISECஹENDIFDஹELSE

40⚪2ஹ(3ᑖGᐳ12ᑖ)▅4ᑡuJuGᙠ$⚪Ḅ⌱ᫀGᢧ⌱ᫀ஺ூu௃®Tᔜr¯ᝄZ°ᦪ஺ூu௃SETTALKOFFCLEADB=$GUSE________মINDEXON0TOX1DOWHIL!EOF()S=0BJH=SUBSTR(0,1,3)DOWHIL(6)IFS=S+1ENDIFSKIP(8)?BJHr¯ᝄZ°ᦪ

41ூu௃⊤ᓫFormlḄInit·F¸ṹ:THIS.TIMER1.ENABLED=.F.(9)THIS.TEXT1.VALUEDḄ0’:>ºFTimeriḄ(10)·F¸ṹ:SKIPIFEOF()GOTOPENDIF(11)»¼ᢥ¾COMMAND*!(¿À)ḄCLICK·F¸ṹ02)THISFORM.TEXT1.FORECOLOR=RGB(255,255,255)THISF0RM.TEXT1.VALUE=0»¼ᢥ¾COMMAND2(ÁÂ)ḄCLICK·F¸ṹTHISF0RM.TIMER1.ENABLED=.F.THISFORM.TEXT1.FORECOLOR=RGB(0,0,0)ூ⌱ªḄᫀ௃9ஹAஹTHIS.TIMER1.INTERVAL=10LBஹTHISF0RM.TIMER1.INTERVALSCஹTHIS.TIMER1.INTERVALSDஹTHIS.INTERVAL=10010ஹAஹINITBஹTIMERCஹCLICKDஹTIMER111ஹAஹTHISFORM.RELEASEBஹTHIS.TEXT1.VALUE=0CஹTHIS.REFRESHDஹTHISFORM.TEXT1.VALUE=012ஹAஹTHISFORM.TIMER1.BEGIN=.T.BஹTHISFORM.TIMER1.BEGIN=.F.CஹTHISFORM.TIMER1.ENABLED=.F.DஹTHISFORM.TIMER1.ENABLED=.T.

42⚪4ஹ(3ᑖGᐳ12ᑖ)▅4ᑡu(Ã)ÄÅÆ⚪Gᙠ$⚪Ḅ⌱ᫀGᢧ⌱ᫀ஺ூu௃SETTALKOFFCLEAINPUTMX=nTOXS=1IFX>=0DOCASECASEX<10S=1CASEX<30S=2OTHERWISES=3ENDCELSES=4ENDIF?SSETTALKONூ⌱ªḄᫀ௃(13)ÇXᐭ<0:GSḄTHÈ<(13)oAஹ1Bஹ2Cஹ3Dஹ4(14)ÇXᐭ<-1:GSḄTHÈ<(14]oAஹ1Bஹ2Cஹ3Dஹ4(15)ÇXᐭ<30:GSḄTHÈ<(15)Aஹ1Bஹ2Cஹ3Dஹ4(16)ÇXᐭ<3510:GSḄTHÈ<(16).Aஹ1Bஹ2Cஹ3Dஹ4⚪5ஹ(3ᑖGᐳ12ᑖ)▅4ᑡu(Ã)ÄÅÆ⚪Gᙠ$⚪Ḅ⌱ᫀGᢧ⌱ᫀ஺ூu௃

43SETTALKOFFUSEDISPLAYNEXT3?RECNO()&&ÊËNAPPENDBLANK?RECNO()&&ÊËNLOCAFORᝄZ=50CONTkᢣᔣᦻFHÍᜐ?RECNO()&&ÊqËNREPLᝄZwith100ALL&&ᢣᔣᦻFHÍᜐ?RECNO()&&ÊÏËNUSESETTALKONூ⌱ªḄᫀ௃(17)ÊËNḄRECNO()Ð<(17)OAஹ2Bஹ3Cஹ4Dஹ5(18)ÊËNḄRECNO()Ð<_(18)OAஹ5Bஹ6Cஹ7Dஹ8(19)ÊqËNḄRECNO()Ð<_(19)OAஹ1Bஹ6Cஹ7Dஹ8(20)ÊÏËNḄRECNO()Ð<_(20)______OAஹ1Bஹ6Cஹ7Dஹ8⚪6ஹ(3ᑖGᐳ12ᑖ)▅4ᑡu(Ã)ÄÅÆ⚪Gᙠ$⚪Ḅ⌱ᫀGᢧ⌱ᫀ஺ூu௃(jÒÓ"G“ஹ”0“ஹ"D”ḄASCHṹᑖS<71ஹ79ஹ68஺)SETTALKOFFCLEARC"qÏ2ÕÖ×Øᓝ”B=MGOODMR=0FOR1=1TOLEN(B)W=SUBSTR(B,1,1)D=ASC(W)+R-65S=MMIFD<10

44S=SUBSTR(C,2*D+1,2)ELSES=SUBSTR(C,2*M0D(D,10)+1,2)ENDIF?W+M——>M+SR=R+6ENDFORSETTALKONூ⌱ªḄᫀ௃(21)ÊTHÈ<[21]AஹG—>BஹG2C^2DஹG—Ö(22)ÊTHÈ<(22)AஹO”>~*Bஹ0">Cஹ0->2DஹÖ(23)ÊqTHÈ<(23)஺AஹO—>"kBஹCஹ2DஹO->Ö(24)ÊÏTHÈ<(24]oAஹD—>-,BஹD-->CஹD->5DஹD■GÖ⚪7ஹ☢ᔣÝuuÞ(14ᑖ)ßàᐭὃáâ=200docasecaseen>=60andma>=60

45?”Lµ“caseen>=70andma>=55?”÷”otherwise?”nLµ“endcaseELSE?''nLµ"ENDIFSETTALKON**Answer2:SETTALKOFFCLEARinput"wx:"toeninput”ᦪ:"tomainput“xᦻ:''tocnzf=en+ma+cndocasecasezf>=200anden>=60andma>=60?”Lµ“casezf>=200anden>=70andma>=55?”÷”otherwise?”nLµ“endcaseSETTALKON⚪8ஹ☢ᔣ'ÿ
14ᑖ᪷⚪⌕ᑭᵨ☢ᔣ
ᙠḄᑏ"ṹ஺
1⊤ᓫḄ'☢()*+,-ᡂ/⊤ᓫᨵᐵḄ⊤ᦻ*345ᑮᦪ8᛻:2⊤ᓫ'☢◀*3<=Ḅ>ឋ᜜ᐸBC⌕Ḅ>ឋDEᙠ"ṹ<;3"ṹGHIJḄK⌕>ឋஹJᑡ⊤᝞OPQRὃAdditemControlsourceReadonlyRowsourceSetfocusEnabledRecordsourceRowsourcetypeButtoncountForecolorRecordsourcetypeSetall

46ButtonsFontsizeRefreshTimerCaptionInitReleaseValueClearInterActiveChangeRemoveitemValidClickIntervalRequeryVisibleᑴ@AOᡂH⊤ᓫ஺z{|☢᝞^1ᡠ஺ᢥb“”ஹ“⌨”ᑖSC0MMAND1ஹC0MMAND2஺ᐹ⌕)5ᔠ᪾CombolஹCombo2ᑖᵨ⌱
“”ஹ“I.”$1$ᙠ⊤ᓫḄᓄyinit>ᵨᩭ¢£¤6f¥“”ᢥ¦§¨©ḄᡂH$᝞^27Rªᑮ¨©ḄᡂHP$“ᨵ«ᡂH”$᝞^38f¥“⌨”ᢥbP$⌨⊤ᓫ஺^1⊤ᓫ>xyḄz{|☢^2f¥ᢥ¦¨©ḄᡂH^3Rªᑮ¨©ḄᡂHP$“ᨵ«ᡂH”

47⊤ᓫḄFormlḄInit"ṹSELE1useUVthis.combo1.STYLE=1&&0-OWXᔠ᪾G[ᐭ2-OWᑡ⊤᪾]⌱_this.combol.rowsourcetype=6this.combol.rowsource="UV•cd”SELE2usefthis.combo2.STYLE=1&&0-OWXᔠ᪾G[ᐭ2-OWᑡ⊤᪾]⌱_this.combo2.rowsourcetype=6this.combo2.rowsource=”f.fd”CommandlḄClick"ṹSELE1&&SELEUVLOCATEFORUV.cd=ALLTRIM
THISFORM.COMBO1.VALUESNO=UV.UhSELE2&&SELEfLOCATEFORf.fd=ALLTRIM
THISFORM.COMBO2.VALUECNO=f,fhSELE3useᡂjLOCATEFORᡂj.Uh=snoandᡂj.fh=enoiffound
thisform.textl.value=ᡂj.ᡂjelsethisform.textl.value="kᨵlᡂj”endifthisform.refreshCommand2ḄClick"ṹ:Thisform.release

482005nopqḕstU᪥vwtxὃyyᔁ(|xVisualFoxPro)'()(1)ὃ©⚪@®⚪¯Ḅ3ᫀ°ᑏᙠ3⚪ᓱ³$X´ஹµ⚪Ḅ3ᫀ¶ᑏᙠ3ᔁ³$ᔲᑣ¹ºᦔᜐᳮ¤(2)K¾Ḅ¿ὃÀḄ§☢´Á¶ᑏᙠ3ᔁḄÂ,ÃᢣÁuᑁ¤(3)ὃPÅS120ᑖƤ(4)Çᔁ>ÈÉᑮḄ¨:ᐵ⊤ᦻy,ᐸÎ᪀ÐÑÒ᝞,ᡠ)1ஹO.DBFÎ᪀)OឋÔᨴÖᔊᝄOØ᯿ᱏC,6C,8L,1D,8M,4N,6,2G.4ÑÒ)ÑÒ#OឋÔᨴÖᔊᝄOØ᯿ᱏ1951001ÜÝ.F.05/06/70memo50.00gen2951003Þß.F.01/23/71memo25.00gen3954006à6á.T.07/21/70memo0.00gen4953008âã.T.11/05/72memo75.00gen5954011äå.T.09/27/70memo0.00gen6953013æç.T.09/09/71memo50.00gen(è)ឋ=.F.S᝕$ឋ=.T.Sᵱ)2ஹI..DBFÎ᪀)I.I.OPᦪC,4C,20N,3ÑÒ)ÑÒ#I.I.OPᦪ10001ékᦪO10820002UV9030003sêëìẠ6840004ᦪtî©ᵨ8050005\.ᑴ^803,ᡂH.DBFÎ᪀)OI.ᡂH

49C,6C.4N,5,1~:~h#Uhfhᡂj1951001000195.02951003000388.03954006000178.04953008000490.05951001000378.06951003000480.0y⚪ஹ
⚪(2ᑖ,ᐳ20ᑖ)▅Oᑡ

()ᙠ⚪QḄG⌱ᫀᢧ⌱Dᫀ஺
1ஹூ
௃[ᐭUVUhᙠ⊤“ᡂjQBF”vlUVḄᙳᡂjᡂjḄ᫏(ஹ¡ஹஹJ¢J)஺ூ
௃SETTALKOFFCLEAUSEᡂj(21)M=ALLT(STR(SH))LOCAFORUh=MIF!EOF()?’kᨵ¥ᑮ¦’ELSE(22)DOCASECASECJ>=90DC=’CASECJ>=80DC='¡'CASECJ>=70DC=CASECJ>=60DC='J’(23)

50DC=ªÉ"$ENDCASE?DCENDIFUSESETTALKON(21)AஹACCEPT'LᐭOO’TOSHBஹINPUT'LᐭOO’TOSHCஹWAITLᐭOO$TOSHDஹACCEPT$LᐭOO$TOM(22)AஹCOUNTᡂHTOCJFORO=MBஹAVERᡂHTOCJCஹAVERᡂHTOCJFORO=MDஹAVERᡂHFORO=SHTOCJAVERᡂHFORO=MTOCJ(23)AஹOTHERWISEBஹENDIFCஹENDCASEDஹCASECJ<59./2ஹூ./'(௃Lᐭ⊤$᝞ðñᙠ$ᑣ«⊤>ᡠᨵò0$ᔲᑣ$L“óªᑮ«ᦻyூ./௃SETTALKOFFCLEADOWHILE.T.ACCEPT'Lᐭᦻy='TOFNAMEIF________(24)1=1DOWHIL(25)?FIELD(I)1=1+1ENDDOELSE?,óªᑮ«ᦻy‘ENDIFWAIT'Lᐭöᔲ`aY(Y-`a/N-⌨)'TOX(26)EXITENDIF

51ENDDOSETTALKON(24)AஹFILE(FNAME)BஹFILE(SFNAME)CஹFILE(&FNAME)DஹFILE(FNAME+.DBF)(25)AஹIvFCOUNT()Bஹlv=FCOUNT()Cஹlv=COUNT()D.I<=RECCOUNT()(26)AஹIFUPPER(X)v>NBஹIFLOWER(X)='N'CஹIF!UPPER(X)#'N'DஹIFUPPER(X)='n'
3ஹூ
௃O☢
H¨©ᡂj⊤Ḅ~ª]«¬⌲ᩩᙠ⊤ᓫ°±஺²ᑮ³ᦻ´µ¶·¸ᜮ~஺²ᡂj¢Jµᡂjᦻ,᪾(TXTᡂj)ᡂjᵨº⁐°±஺ூ
௃⊤ᓫFormlḄInit"ṹTHIS.TIMER1.INTERVAL=1000THIS.TIMER1.ENABLED=.T._____(27)_______µ¼½TimeriḄTimer"ṹSKIPIFEOF()(28)ENDIFIFᡂjv60THISFORM.TXTᡂj.(29)ELSETHISFORM.TXTᡂj.FORECOLOR=RGB(0,0,0)ENDIF(30)(27)AஹTHISSETALLCREADONLYஹ.¾'TEXTBOX)BஹTHIS.TEXT.SETALL(

52DஹTHISFORM.SETALL(

53Cஹ95100188.0Dஹ951001Ì
2ஹSETTALKOFFA='*'H=4FORK=1TOHS=KFORT=1TOS??AENDF?ENDFORSETTALKON(33)l
Ḅ[ÄÍÎÊ(জ)Aஹ****Bஹ*Cஹ…*Dஹ******************(34)ÒS=KᦋÊS=4,l
Ḅ[ÄÍÎÊ(34)Ô…*Bஹ*Cஹ…*Dஹ
3ஹSETTALKOFFINPUTMX=nTOXY=0IFX>2IFX>5IFX>10Y=1ENFIFY=2ENDIFY=3ENDIF?Y

54SETTALKON(35)²X[ᐭ1µYḄ[ÄÅÆÊ—(35)«Aஹ0Bஹ1Cஹ2Dஹ3(36)²X[ᐭ3µYḄ[ÄÅÆÊ—(36)oAஹ0Bஹ1Cஹ2Dஹ3(37)²X[ᐭ7µYḄ[ÄÅÆÊD(37)஺Aஹ0Bஹ1Cஹ2Dஹ3
4ஹSETTALKOFFM='Y=1DOWHILEY<=6IFINT(Y/2)=Y/2Y=Y+1LOOPELSEENDIFY=Y+1ENDDO?M?YSETTALKON(38)MḄ[ÄÅÆÊ(38)oAஹ%#*#*Bஹ%#*#*#*Cஹ#*#*#*%Dஹ*#*#*#%(39)YḄ[ÄÅÆÊ(39)oAஹ5Bஹ6Cஹ7Dஹ8(40)᝞ÆLOOPᦋÊEXIT,ᑣYḄ[ÄÅÆÊ(401oAx1Bஹ2Cஹ3Dஹ4y⚪Øஹ
⚪(⚪10ᑖᐳ30ᑖ)1ஹÙᵨ☢ᔣÚḄ
ᑴvOᑡ⊤³«Ḅ
xÉᵫ[ᐭ஺3Ý+2x—1x<—5y=(x-sinx+2*-5<=x<=5yjx-5+lnxx>5

55SETTALKOFFINPUT"X="TOXDOCASECASEX<-5Y=3*xA2+2*x-1CASEX>5Y=SQRT(x-5)+LOG(X)OTHERWISEY=x-SIN(X)+2AxENDCASE?YSETTALKON'()÷ᵨIF…ELSE…ENDIFḄøᝅ$ú<û஺û,./ᵨ☢ᔣüý./þsÿ
஺᪷⚪⌕ᑭᵨ☢ᔣᙠḄᑏ"ṹ஺(1)⊤ᓫḄ&☢'()*+,ᡂ.⊤ᓫᨵᐵḄ⊤ᦻ)234ᑮᦪ7᛻9(2)⊤ᓫ&☢◀)2;<Ḅ=ឋ᜜ᐸAB⌕Ḅ=ឋCDᙠ"ṹ;;(3)"ṹFGHIḄJ⌕=ឋஹIᑡ⊤᝞N(PQRὃ)AdditemControlsourceReadonlyRowsourceSetfocusEnabledRecordsourceRowsourcetypeButtoncountForecolorRecordsourcetypeSetallButtonsFontsizeRefreshTimerCaptionInitReleaseValueClearInterActiveChangeRemoveitemValidClickIntervalRequeryVisible2ஹᑴCVW☢XḄ⊤ᓫ஺Y1Z⊤ᓫ[Ḅ'(&☢Y2Z⊤ᓫ\]^&☢஺ᐹ`⌕(1);aY1ᑮY2Ḅbcd஺(2)ᙠTEXT1ᦻ+᪾fᐭhiᢥCOMMAND1ᢥkᑣᙠTEXT2ᦻ+᪾mnᙊḄ☢X஺(3)pfᐭḄhiZqᦪrᢥCOMMAND"!ᢥk^ᑣstMESSAGEBOXuvmn'ᙊḄhixGZqᦪ(4)ᢥCOMMAND2ᢥkᑣ⌨t⊤ᓫ஺

56FOLBIv{IForalÍ1⊤ᓫ½Ḅ()'☢Í2⊤ᓫÂÃ'☢FormlInitThis.labell.caption='[ᐭÞß='This.label2.caption='ᙊ☢á='this.commandl.caption=1v’this.command2.caption='⌨Ä'this.text1.value=0this.textl.setfocusCOMMAND1ClickIfthisform.textl.valuev0MESSAGEBOXCᙊḄÞߢHÊãᦪ)Elsethisform.text2.value=Pl()*thisform.text1.value**2EndifCOMMAND2Clickthisform.release3ஹᑴfᡂjä⊤ᓫ஺Í1Ê⊤ᓫ½Ḅ()'☢Í2Ê⊤ᓫÂÃå'☢஺ᐹç⌕ᙠfdèᑡ⊤᪾(LIST1)⌱_fåᙠᡂjäᑡ⊤᪾(LIST2)°±fḄäéê:⊤ᓫ᪗⚪Ê”fᡂjä”:fdèᑡ⊤᪾(LIST1)⌕Ùᵨᦪᣊí஺

57Í3⊤ᓫ½Ḅ()'☢Í4⊤ᓫÂÃ'☢FormlInitSettalkoffthis.caption='fᡂjä’this.listl.rowsourcetype=6this.listl.rowsource=4f,fd'this.list2.rowsourcetype=0this.list2.rowsource=''ListlinteractivechangeKch=fhSeleᡂjCounttox1forfh=kchAverᡂjtox2forfh=kchCounttox3forfh=kchandᡂj<60thisform.list2.clearthisform.Hst2.additem('⌱îïᦪalltr(str(X1)))thisform.list2.additem('ᙳᡂjalltr(str(X2)))thisform.Hst2.additem('¢Jïᦪalltr(str(X3)))selef

582005n᧡pqḕstU᪥vwtxὃyyᔁ(|xVisualFoxPro)G)ὃ|}~⚪C~⚪Ḅᫀᑏᙠ⚪ᓱ}ஹ⚪Ḅᫀᑏᙠᔁᔲᑣᦔᜐᳮ;(2)}ḄὃḄ^☢ᑏᙠᔁḄNᢣ;ᑁ;(3)ὃ~rZ120ᑖ9(4)+~ᔁHIᑮḄᐵ⊤ᦻᐸ᪀¡¢£᝞Nᡠn1ஹ¥|.DBF᪀¥§¨ឋ©t|ªᨴ¬ᔊᝄ¥¯᯿ᱏC,6C,8L,1D,8M,4N,6,2G4¢£¢£#¥§¨ឋ©t|ªᨴ¬ᔊᝄ¥¯᯿ᱏ1951001³´.F.05/06/70memo50.00gen2951003µ¶.F.01/23/71memo25.00gen3954006·¸¹.T.07/21/70memo0.00gen4953008º».T.11/05/72memo75.00gen5954011¼½.T.09/27/70memo0.00gen6953013¾¿.T.09/09/71memo50.00gen(Àឋ©=.F.Z᝕ឋ©=.1Zᵱ)2ஹÃ.DBF᪀Ãè¥rᦪC,4C,20N,3¢£¢£#Ãè¥rᦪ10001ÄÅᦪ¥10820002ÆÇ9030003WÈ*Ạ6840004ᦪÊᵨ8050005ËᑴY803ஹᡂÌ.DBF᪀¥ÃᡂÌC,6C,4N,5,1¢£:

59¢£#¥ÃᡂÌ1951001000195.02951003000388.03954006000178.04953008000490.05951001000378.06951003000480.0~⚪CஹᑨÎ⚪(ϸ⚪1ᑖᐳ10ᑖ)ÑNÒQḄÓÔ▰Ö⌲CᑨÎᐸØÙ.ᔲ⌱A⊤nØÙ⌱B⊤n┯Ü஺(1)ᦪÊÝᳮÞßᒹáWÈâ஺(2)VisualFoxPro6.0ḄËᐹãᨵᘤ¡ᔣåæç஺(3)ᦪ訡éê¨FÑë¨஺(4)᡻]APPENDíî^Þßïðᐭñᐰóôõö᝱஺(5)⊤øù6-3Ḅ\Wúûᓫ\Wúüᵨ஺(6)᡻]RETURNTOMASTERFGý{ᑮVisualFoxProíîuv஺(7)íîᢥþèḄButtons=ឋûCVᦪè¨஺(8)ᦪÿḄὶᨵ⌱ஹᢗ஺(9)ᡭ⊤ᦻ஺(10)ᙠᵨᡝᐳ%&᛻()*ᦻ+┝-./ᵨ0ᦪFLOCK()23஺4⚪6ஹᓫ⌱⚪(9:⚪2ᑖ)ᐳ20ᑖ)(11)=>ᦪ?Ḅ@ABCD(11)oAஹAMERICANBஹUSACஹANSIDஹBRITISH(12)FGPUBLICADHᵨIឋK)᡻MAKḄNOD(12)஺Aஹ0Bஹ.F.CஹPBDஹQ┯(13)᡻M:TU=10STORETUTOVWXY“VW”ḄD(13)஺Aஹ\]Bஹᦪ^CஹᐵDஹ`a(14)᡻MbSTR(123.456,6,3)ḄNOcC14)»Aஹ123.45Bஹ123.46Cஹ123.456DஹQ┯(15)ᡭdP⊤)᡻MRECNO()ḄNOD(15)Aஹ.T.Bஹ.F.Cஹ0D^1(16)eFG0ᦪḄfghiᨬkc⌱ᵨ(16)AஹRETURNBஹRETRYCஹRETURN1DஹRETURNTOMASTER(17)lm⊤“no.dbf”pᡠᨵᝄns50(t50)(ᵱoḄVWvᔊ)x/ᵨḄy

60zD07)oAஹLISTFIELVW)vᔊFORᝄnsv=50ANDឋ{BஹLISTFIELVW)vᔊFORᝄnsv=50WHILEឋ{=.T.CஹLISTFIELVW)vᔊFORᝄnsv=50ANDឋ{="ᵱ”DஹLISTFIELVW)vᔊFORᝄnsv=50ORឋ{=.T.(18)(☢ᐵᦪ?&᛻ᦪ?&᛻p⊤Ḅ▰p)Ḅc(18)஺A,ᦪ?&᛻c*)⊤c*Bஹᦪ?&᛻c*)⊤c*Cஹᦪ?&᛻c*)⊤c*Dஹᦪ?&᛻⊤c*(19)ᙠᘤpFὶᩩD“no.n=ᡂ.n”)⌕ᙠNOplmno⊤pᡠᨵᡂ⊤pᩩḄ)ᑣὶxD(19)஺AஹᑁὶBஹὶCஹὶDஹᐰὶ(20)ᎷF⊤ᓫpᒹt£ᦻ¤᪾ᑖ{DTEXT1TEXT2,¦TEXT1§¨©ᑮTEXT2,/TEXT2Ḅ^D0Ḅyzc(20)oAஹTHISFORM.TEXT1.TEXT2.VALUE=0BஹTHIS.TEXT2.VALUE=0CஹTHIS.PARENT.TEXT2.VALUE=0DஹTHIS.FORM1.TEXT2.VALUE=O4⚪ஹ«¬P⚪(9PB2ᑖ)ᐳ20ᑖ)®U¯▅±(ᑡ«¬®U³x«¬(´))ᙠ9:⚪µ¶Ḅ·⌱¸ᫀp)ᢧ⌱¸ᫀ஺«¬1ஹூ«¬®U௃½⊤“no.DBF”pᢣFno(ᵫÀÁÂᐭ)Ḅᝄns+60,ÄlmÅno஺ூ«¬௃SETTALKOFFCLEAUSEnoACCEPTÂᐭnon=)TOM(21jIF!EOF()(22)DISPELSE?’ÈᨵÉᑮÊ’(23)USE

61SETTALKON(21)AஹFIND&MBஹSEEKMCஹLOCAFORUh=MDஹLOCAFORUh==ALLT(M)(22)AஹᝄUò:ᝄUò+60BஹREPLᝄUòWITHᝄUò+60CஹREPLᝄUòWITH60DஹAPPENDᝄUò+60(23)AஹENDIFBஹENDDOCஹENDCASEDஹRETU
2ஹூ
௃[ᐭᦪvlᦪᡠ᪀ᡂḄõÎ☢á஺᝞Æö÷Ḅᦪ᪀ᡂDõÎ,ᑣ[Ä☢áÉᔲᑣ[Ä'[ᐭᨵ┯ூ
௃SETTALKOFFCLEA(24)INPUT•Az1TOAINPUT'B='TOBINPUT,C=,TOC________(25)?‘[ᐭᨵ┯’ELSE(26)?AWAIT[ᐭûᔲüýþ(ÿ
⌨)0IFUPPER(X)='N'EXITENDIFENDIFENDFSETTALKON*AREA.PRG(27)IFS1+S2>S3ANDS2+S3>S1ANDS1+S3>S2S=(S1+S2+S3)/2S1=SQRT(S*(S-S1)*(S-S2)*(S-S3))ELSE

62?‘ᐭᨵ┯’ENDIFRETU(24)AஹFOR1=1TO1STEP0BஹDOWHIL.T.CஹFOR1=1TO5STEP-1DஹS=0(25)IFA<0ANDB<0ANDC<0BஹIFA<=0ANDB<=0ANDC<=0CஹIFAv=OORBv=OORCv=0D>IFAឋB)THIS.B=0THIS.TIMER1.INTERVAL=100(28)THISFORM.SHAPE1.CURVATURE=99THISFORM.SHAPE1.HEIGHT=30THISFORM.SHAPE1.WIDTH=30@AB5TimeriḄTimer456ṹ8(29)THISFORM.B=1ENDIFIFTHISFORM.SHAPE1.TOP=0THISFORM.B=0ENDIF(30)THISFORM.SHAPE1.TOP=THISFORM.SHAPE1.TOP+1ELSETHISFORM.SHAPE1.TOP=THISFORM.SHAPE1.TOP-1

63ENDIF(28)AஹTHIS.TIMER1.SH0W=.T.BஹTHIS.TIMER1.SH0W=.F.CஹTHIS.TIMER1.ENABLED;DDஹTHIS.TIMER1.ENABLED=.F.(29)AஹIFTHISFORM.SHAPE1.TOP=THISFORM,HEGHT30BஹIFTHISFORM.SHAPE1.TOP=THISFORM.HEIGHT-40CஹIFTHISFORM.SHAPE1.BOTTOM=THISFORM.HEIGHT-30D>IFTHISFORM.SHAPE1.BOTTOM=0(30)A.IFTHIS.B=0B>IFTHIS.B=1CஹIFTHISFORM.B=0D.IFTHISFORM.B=1F⚪Hஹ▅J⚪(K⚪5ᑖᐳ20ᑖ)8▅JᑡOPQ@ḄRSᑏᙠUᔁWḄXY⚪Z஺1ஹAḄᐭ[\951003oSETTALKOFFCLEARUSEᡂ^ACCEPT”ᐭ_`_Z="TOAAVERᡂ^TOCJFOR_Z=ALLT(A)IFCJ>=60ZJ=ᔠbELSEZJ4cᔠbENDIF?ZJ?CJUSESETTALKONᔠb84.002ஹSETTALKOFFDIMENSIONA(6,6)

64FORK=1TO6FORT=1TO6IFK=TORK+T=7&&efgᳮᓽjc◤⌕▅JA(K,T)=1ELSEA(K,T)=0ENDIFENDFENDFOR?A(3,3),A(2,5),A(2,6)SETTALKON1103ஹᐭ[ᑖm\3ஹ3ஹ6ஹ5ஹ1஺SETTALKOFFN=5INPUTA='TOAS=AFOR1=1TON-1INPUT7='TOTS=S+TIFT>AA=TENDIFENDF?(S-A)/(N-1)SETTALKON3.004ஹSETTALKOFFCLEARS=0FORM=3TO4N=2

65DOWHILEN<=M-1IFINT(M/N)=M/NEXITELSES=S+NENDIFN=N+1ENDDOENDFOR?MS=M,SSETTALKONS=2F⚪nஹop⚪qK⚪10ᑖᐳ30ᑖr8᪷t⚪u⌕vᑭᵨ☢ᔣz{op|}ᙠXYz{Ḅ45~ᑏ6ṹ஺1⊤ᓫḄ☢9ᡂ+⊤ᓫᨵᐵḄ⊤ᦻ59:ᑮᦪt᛻~2⊤ᓫ☢~◀9:oḄ>ឋ᜜ᐸ⌕Ḅ>ឋᙠ456ṹ~o;3456ṹ~jḄ⌕>ឋஹ45|}ᑡ⊤᝞qὃr8AdditemControlsourceReadonlyRowsourceSetfocusEnabledRecordsourceRowsourcetypeButtoncountForecolorRecordsourcetypeSetallButtonsFontsizeRefreshTimerCaptionInitReleaseValueClearInterActiveChangeRemoveitemValidClickIntervalRequeryVisible1ஹᑴ¡¢Qᦪ£@A¤¥¦Ḅ⊤ᓫ஺⊤ᓫO§/¨1©\ª◞/᝱¤¥¬@ª@ஹᑖஹ©ᵨ®£஺¯1\⊤ᓫ~B5Ḅ☢@AB5°\Timeri,¯2\⊤ᓫPQ±☢஺³ᦪ£@┐BEE|1I@35ᑖ13²¯1⊤ᓫ~B5Ḅ☢¯2⊤ᓫPQ☢

661ஹFormlInitthis.timerl.interval=1000this.timerl.enabled=.t.TimeriTimers=substr(time()j1,2)f=substr(time(),4,2)m=substr(time(),7,2)thisform.text1,value=s+W'+f+^+m4^'2ஹᑴ¡⊤ᓫᡂ⊤ᦻ5“¶.dbf”ᑁ·Ḅ¤¥¦஺¸¹ᢥ»“1ᩩ”ஹ“ᩩ”¾“⌨”°¿ᑖm\COMMAND*!ஹCOMMAND2¾COMMAND3஺ÀᵨÁÂÃ|Ä஺☢᝞¯3ஹ¯4ᡠ¥஺ᐹÇ⌕v81ÈÉ“1ᩩ”ᢥ»@¤¥1ᩩÊË஺ÌᑮÍ⊤ᜮ@ÏᑮÐÊË஺2ÈÉ“ᩩ”ᢥ»@¤¥ᩩÊË஺ÌᑮÍ⊤Ñ@Ïᑮ✌ÊË஺3ÌÈÉ“⌨”ᢥ»@⌨⊤ᓫ஺¯3⊤ᓫ~B5Ḅ☢¯4⊤ᓫPQ☢2ஹFormlInitUse¶this.textl.value=¶Zthis.text2.value=¶°this.text3.value=_@ᦪthisform.refreshCommandlClickskip-1ifbof()

67gobottomendifthisform.textl.value=¶Zthisform.text2.value=¶°thisform.text3.value=_@ᦪthisform.refreshCommand2Clickskipifeof()gotopendifthisform.textl.value8¶Zthisform.text2.value=¶°thisform.text3.value=_@ᦪthisform.refreshCommandsClickthisform.release3ஹᑴ¡_`ᡂ^ÓÔ⊤ᓫ஺ÕÖ☢᝞¯5ᡠ¥஺ᐹÇ⌕v81)ᑡ⊤᪾Listl~ᑡᡠᨵ_`Ø°ÙÚᵨᡝ⌱ÝÀᵨÂÃ|Ä஺2)⌱~Þ¡Ø°±ᑡß_`ᡠᨵᡂ^¨àᙳᡂ^᝞¯6ᡠ¥஺Listl__|List2李华张小赵晓超丁浩罗玉陈田6I..…6J.+¯5⊤ᓫ~B5Ḅ☢¯6⌱~Þ¡Ø°±⊤ᓫPQ☢

683ஹFormlInitthis.caption='ᡂ^ÓÔ‘this.labell.caption='Ø°'this.label2.caption='ᡂ^ãä’this.listl.rowsourcetype=6this.listl.rowsource='_`,Ø°this.list2.rowsourcetype=0this.list2.rowsource="select_`._Z_`.Ø°ᡂ^.¶Z,¶°ᡂ^from_`¶ᡂ^whereᡂ^,_Z:_`,_Zandᡂ^.¶Zè¶.¶Zintotablet1this.list2.visible=.f.ListlInteractivechangethisform.list2.clearselet1stor0toa1,a2scanforØ°=thisform.list*!.value5£0170.ê12ᨴ€1€1ᕖ01(¶Z+''+2ﶰ)+''+5"(ᡂ^,5,1))a1=a1+ᡂ^a2=a2+1endscanthisformðist2.additem('àᙳᡂ^\8*+str(a1/a2,51))5thisform.list2.visible=.t.|}2ListlInteractivechangethisform.list2.clearstor0toa1,a2sele_`locaforØ°=thisform.listl.valuesno=_Zseleᡂ^scanfor_Zèsnoa1=a1+ᡂ^a2=a2+1eno=¶ZCJ=ᡂ^sele¶

69locafor¶ZèCNOCNAME=¶°thisform.list2.additem(CNO+''+allt(CNAME)+''+str(cj,5,1))seleᡂ^endscanthisformJist2.additem('àᙳᡂ^\8*+str(a1/a2,5,1))thisform.list2.visible=.t.

702004ñòóôḕ$Ù_᪥p÷øÙùὃFFᔁqèùVisualFoxPro®U¯q1rὃox½4⚪Í4⚪Ḅ¸ᫀÎᑏᙠ¸⚪ᓱÑ)½ÒÓஹÔ⚪Ḅ¸ᫀᑏᙠ¸ᔁÑ)ᔲᑣ×ᦔᜐᳮÛq2ܽÝḄÞὃßḄK☢Óàᑏᙠ¸ᔁḄ(áᢣFàâᑁÛ
3ὃ4D120ᑖãÛq4¤4ᔁpäᑮḄ³ᐵ⊤ᦻ)ᐸN᪀᝞(ᡠm¯11ஹno.DBFN᪀¯nVWឋ{Qoèᨴvᔊᝄns᯿ᱏC,6C,8L,1D,8M,4N,6,2G,4¯#nVWឋ{Qoèᨴvᔊᝄns᯿ᱏ1951001Tí.F.05/06/70memo50.00gen2951003îï.F.01/23/71memo25.00gen3954006ð:ñ.T.07/21/70memo0.00gen4953008òó.T.11/05/72memo75.00gen5954011ôõ.T.09/27/70memo0.00gen6953013ö÷.T.09/09/71memo50.00gen12ஹø«.DBFN᪀¯ø«ø«WnᦪC,4C,20N,3¯#ø«ø«Wnᦪ10001ùúᦪn10820002ûh9030003üýþẠ6840004ᦪᵨ8050005ᑴ803ஹᡂ.DBF᪀ᡂC,6C,4N,5,1

71#ᡂ1951001000195.02951003000388.03954006000178.04953008000490.05951001000378.06951003000480.0⚪ஹẠ⚪(⚪ᐳ15ᑖ)ᶍ஺⚪%ஹ&'Ạ⚪(⚪ᐳ30ᑖ)(-)ᑨ*⚪(+,⚪1ᑖ-ᐳ10ᑖ)./0123Ḅ56▰89-⌲ᑨ*ᐸ<=>ᔲ-⌱A⊤B<=-⌱B⊤B┯D஺(16)ᙠVisualFoxProFG9HᵨFORvᩩJKLMN-OPQ⊤Ḅ✌ST⌱U஺(17)ᐵWXYḄᐵWᐹᨵ01ᱯ]^ஹᑡ`ab0cdef-ghi⊤jḄkl஺(18)⊤9Ḅmᦪ>noᦻJᡠᢣsḄmᦪb0gt஺(19)ᙠFGuv9-wxyzFGᡠ{|Ḅᑁ~e-ᐸឋᯠឋ஺(20)⊤ᐵW-ᯠ-⊤ᐵᡭSᐸᐵWᯠᨵᦔ஺(21)ᙠᵨᡝ᛻1-PACKFGᙠᓰ1Hᵨ-gᙠᐳ1Hᵨ஺(22)ᡠHᵨḄᦪPᵫ⊤¢ᦪ⊤஺(23)Ꮇ{⊤ᓫ9ᒹ¦mFGᢥ¨-©ªᙠ«^⊤ᓫN-ᐜ᡻^⊤ᓫḄLoad®J-ᯠ᡻^⊤ᓫḄInit®J-ᨬ᡻^FGᢥ¨ḄInit®J஺(24)ᡠᨵ°ᘤ²gᜐᳮᐸᡠᒹ¦ḄµJ¶ᐵὶḄ®J஺(25)ᙠ⚗¹ºᳮᘤ9ḄFGᦻJᙠ⚗¹ºᳮᘤ9«^஺(-)ᓫ⌱⚪(+,⚪2ᑖ-ᐳ20ᑖ)(26)ᙠ⊤ᓫ«^9-᝞¼⌱᪾egbᵨ-ᐸValueឋz(26)Aஹ0Bஹ1Cஹ2Dஹ.F.(27)ᙠ1ᑡ¾¿9-À°ᘤÁḄP(27)_______oAஹᦻ᪾BஹÂᔠ᪾Cஹ⊤jDஹFGᢥ¨(28)ÄÅÆm⊤ḄÇ᯿É᦮ឋ,⌕ÎÏÆm⊤P(28)஺AஹÌmᦪ9ḄÆm⊤BஹÆmᵫ⊤Cஹmᵫ⊤¢mᦪ⊤DஹÐᨵ▲ᑴ(29)ᵨFG"INDEXONÒÓTOindex_nameUNIQUE”no-ᐸnoÁYP___________(29)_________஺AஹÔnoBஹ᎛⌱noCஹÖwnoDஹ×no(30)᝞ØmÙÚᨵmÙÛ-ÜÝ+mÙÛgÌNÞcᐸßÙḄÙÛ஺ÙÚ¢

72ÙÛÆmàáḄὶWÀ(30)Aஹ¾ᐵWBஹ¾%ᐵWCஹ¾ᐵWDஹ¾ᐵW(31)ᙠ1ᑡâã⊤ä9-ᐸzå{.F.ḄP(31)AஹX.OR.XBஹX.AND.XCஹX.OR..NOT.XDஹX.AND..NOT.X(32)1☢ᨵᐵHAVINGLMç8┯DḄP(32)஺AஹHAVINGLMèé>GROUPBYLMÌNHᵨ-gᓫHᵨBஹHᵨHAVINGLMḄÌNgHᵨWHERELMCஹHᵨHAVINGLMḄÌNb0HᵨWHERELMDஹHᵨHAVINGLMḄêᵨP▲{ᑖÂḄᩩJ(33)᡻^“FOR1=1TO5STEP-1”ë&M-ëáᑁḄ&M᡻^(33)஺Aஹ0ìBஹ1ìCஹ5ìD,í▲ì(34)îïA=T,B='A'᡻^(34)FG-ᐸðsØñò“A”஺Aஹ?&BBஹEVAL(B)Cஹ?(B)Dஹ?('B')(35)VisualFoxPro9óôÁYḄᦻJᙠ⊤ᦻJᡭSNfᡭS-ᙠ⊤ᦻJᐵNfᐵ஺ÀÏÁᦻJḄ᡽öÓᨵ(35)oAஹIDXஹMEMBஹCDXஹFPTCஹPRGஹFOXDஹIDXஹFPT⚪÷ஹaøù⚪(+ùj2ᑖ-ᐳ16ᑖ)a1ஹூa./௃ðᐭm<᦮ᦪ-ᑨýPᔲþᦻᦪ஺ᡠÿᦻᦪᢣᩭ᪵Ḅᦪ᝞121ᦻᦪ஺ூ௃SETTALKOFFINPUT'ᐭ᦮ᦪ='TOMN=MIFINT(M)=M(36)(37)1=1DOWHILk=LY=MOD(M,10)(38)M=INT(M/10)1=1+1ENDDO

73IFVAL(S)=N(39)ELSE?,cúûᦻᦪ’ENDIFELSE?’ᐭᨵ┯ü’ENDIFSETTALKON(36)AஹS=0BஹS=SPACE(0)CஹSèSPACEপDஹSTORE*0*TOS(37)AஹL=LEN(ALLT(M))BஹL=ALLT(STR(M))CஹL=LEN(STR(M))DஹL=LEN(ALLT(STR(M)))(38)AஹS=S+YBஹS=STR(Y,1)+SCஹS=S+STR(Y,1)DஹS=Y+S(39)Aஹ?STR(N)+'úûᦻᦪ'_BஹNVúûᦻᦪ’CஹSTR(N)+úûᦻᦪDஹSUBSTR(N,1,5)+'úûᦻᦪ'(36)B(37)D(38)C(39)A2ஹூ௃ᵨývS=K!+(K+1)!-+M!(K

74PARAN,PSTOR1TOP,LDOWHIL_________(43)L=L+1P=P*LENDDORETU0(40)AஹS=0BஹSTOR0TOS,ACஹA=0DஹSTOR0,1TOS,A(41)AஹDOSUBBஹ=SUB(I)Cஹ=SUB(I,@A)Dஹ=SUB(AJ)(42)AஹS=S+PBஹS=S+ACஹS=S+NDஹS=S+I(43)AஹL<=NBஹL>=NCஹLvNDஹL>N(40)B(41)C(42)B(43)CF⚪Hஹ▅J⚪(K⚪5ᑖᐳ15ᑖ)8▅JᑡÿᑏḄ஺1ஹXḄᐭᑖ951,956,0஺SETTALKOFFUSEDOWHIL.T.INPUT'X:'TOXY=IIF(X=0,1,2)IFY=2LOCAFORSUBSTR(,1,3)=ALLT(STR(X))IF!EOF()SUMᝄTOSFORSUBSTR(^#,1,3)=ALLT(STR(X))?SELSE?‘ᐭᨵ┯’LOOPENDIFELSE?‘!’EXITENDIF

75ENDDOSETTALKON75ᐭᨵ┯!2ஹSETTALKOFFDIMENSIONA(6)FORK=1TO6A(K)=20-2*KENDFOR?Aপᾙ3),AমK=5DOWHILEK>=1A(K)=A(K)-A(K+1)K=K-1ENDDO?Aব,AযSETTALKON181410483ஹMḄᐭᑖ5,18,-8oSETTALKOFFCLEADOWHIL.T.INPUT'MTTOMIFINT(M)!=MORABS(M)!=M?’ᐭᨵ┯$EXITELSE?STR(M)+%ᑖ&'’l=2DOWHILk=M

76IFINT(M/I)=M/I??ALLT(STR(I))+SPACE(4)M=INT(M/I)LOOPENDIF1=1+1ENDDOENDIFENDDOSETTALKON5"ᑖ$%518"ᑖ$%233ᐭᨵ┯()⚪+ஹ-.⚪/0⚪12ᑖᐳ24ᑖ234᪷6⚪7⌕9ᑭᵨ☢ᔣ>?-.@AᙠCD>?ḄEFGHᑏJṹ஺1⊤ᓫḄN☢OPQRSTᡂ⊤ᓫᨵᐵḄ⊤ᦻFQWXYᑮᦪ6[᛻G]2⊤ᓫN☢G◀QW34-_`Ḅaឋ᜜ᐸef⌕ḄaឋgᙠEFJṹG-_;3EFJṹG"ijkḄl⌕aឋஹEFk@Aᑡ⊤᝞nopqὃAdditemControlsourceReadonlyRowsourceSetfocusEnabledRecordsourceRowsourcetypeButtoncountForecolorRecordsourcetypeSetallButtonsFontsizeRefreshTimerCaptionInitReleaseValueClearInterActiveChangeRemoveitemValidClickIntervalRequeryVisible1ஹHᑴᢥuvwxuyz{Ḅ⊤ᓫ஺|}ᢥ~“”ஹ“w”“⌨”ᑖ%COMMAND1ஹCOMMAND2COMMANDS,“ᐭuv”᪗F%labeh«◀TEXT1,ᡠᨵᦻS᪾F஺ᐹ⌕912%N☢ᵨᡝᐭuv]2ᐭuvᢥ“”ᢥ~¡¢w£CD¤¥஺᝞¦£ᑮᑣ¨©>D¤¥z{ᔲᑣ¨©“w«¬”ᐹN☢᝞3ஹ4ᡠ©஺3ᢥ“w”ᢥ~®ᯖ°ᑮTEXT1,2N☢C±஺

774(ᢥ“⌨”ᢥ-.⌨⊤ᓫ஺1௃⊤ᓫ345Ḅ678☢12⊤ᓫ:;8☢13ᐭ<=.8☢14ᐭ┯>.8☢1ஹFormlInitthis.setall('visible',.f./laber)this.setall('visible',.f.,'textbox')this.labell.visible=.t.this.textl.visible=.t.thisform.textl.value=Mthisform.textl.setfocusCommandlclicklocafor?allt(thisform.text1.value)if!eof()thisform.setallCvisible',.t,'label')

78thisform.setall('visible',.t.,'textbox')thisform.refreshelse=messagebox('ABCD')endifCommand2clickthisform.setallC^isible^.f./laber)thisform.setall('visible',.f.,'textbox')thisform.labell.visible=.t.thisform.textl.visible=.t.thisform.textl.value=Mthisform.textl.setfocusCommandsclickthisform.release2ஹFᑴHIᡂKLM⊤ᓫ஺NOᢥ-“LM”P“QR”STᑖC0MMAND1.C0MMAND2o8☢᝞15ஹ16ஹ17P18ᡠW஺ᐹY⌕['1)ᑡ⊤᪾3ᑡᡠᨵ^S_`ᵨᡝ⌱deᵨfghijk16ᡠW஺2)⌱3lI^SmᑡnᡠᨵᡂK᝞17ᡠW஺3)⌱d“LM”ᢥ-mLMᡂKᜧp_p60ᔠr᝞18ᡠW஺4)⌱d“QR”ᢥ-mᯖtuᑮListl,w16:;8☢xy஺

7915⊤ᓫ345Ḅ678☢16⊤ᓫ:;8☢17⌱dlI^SmḄ8☢18ᢥ“LM”ᢥ-m8☢2ஹFormlInitthis.grid1.visible=.f.this.listl.rowsourcetype=6this.listl.rowsource=',^Sselect.|SᡂKfrom|ᡂK}whereᡂK.:.andᡂK.|?|.|;

80Intocursort1indexontoinshselesetrelationtointot1thisform.grid1.recordsourcetype=1&&0H1—Sthisform.gridl.recordsource=*t1'ListlInteractivechangethisform.refreshthisform.gridl.visible=.t.CommandlClickstor0tox1,x2seleᡂKscanforᡂK,:,ifᡂK=60x1=x1+1elsex2=x2+1endifendscanthisform.textl.value=x1thisform.text2.value=x2seleCommand2Clickselethisform.gridl.visible=.f.thisform.textl.value="thisform.text2.value="thisform.listl.setfocus

812003ḕ᪥MM_ὃᔁ?VisualFoxPro341ὃyD¢)⚪)⚪²Ḅ³ᫀµᑏᙠ³⚪ᓱ·¢¸¹ஹ+⚪Ḅ³ᫀºᑏᙠ³ᔁ·ᔲᑣ¼«ᦔᜐᳮ]2¢ÀḄÁὃÂvḄ☢¹Ãºᑏᙠ³ᔁḄnÄᢣÃ_ᑁ]
3ὃ)®Æ%120ᑖÇ]4S)ᔁGjkᑮḄCᐵ⊤ᦻFᐸÈ᪀¤¥᝞nᡠ©13ஹÊË⊤.DBFÈ᪀ᖪÍvᖪÍÎÏÐÑᓫÒ├ÔᓫÒÊËÕC,4C,10C,6N,7,2N,7,2N,8¤¥¤¥v#ᖪÍvᖪÍÎÏÐÑᓫÒ├ÔᓫÒÊËÕ10001ᵯØÙ56CD8A1500.001630.0020020002ᵯÚÛBCD1881600.001760.008030003Ü⊟ÙXQB521200.001320.0016040004ÞßᘤLB-171000.001150.007950005áâ26®142.00159.0013060006ãäKFR-503500.003650.0012670007åæ᮱D7023350.00398.008680008᯿CÙFX2860450.00490.0096■————————————————————14ஹÐ├⊤.DBFÈ᪀ᖪÍvë᧕íîÐ├᪗ïᦪ᤺⌕C,4D,8L,1N,8C,30¤¥¤¥v#ᖪÍvë᧕íîÐ├᪗ïᦪÕ᤺⌕1000105/21/03.T.202000305/21/03.F.103000605/22/03.F.304000105/22/03.F.255000505/23/03.T.306000105/24/03F.257000605/25/03.T.208000205/26/03.F.40ñ“Ð├᪗ï”Ḅò%.ô®⊤©ÐÑ.F.⊤©├Ô஺

82)⚪ஹ.õÙRẠ⚪/S⚪ᐳ15ᑖ21.õÙ÷øᨬúḄû°1஺AஹõüýþBஹÿ
CஹᐳஹᦪDஹᑁᜧ2ᙠḄᜓᨬ"Ḅ#2஺Aஹ%Bஹ%Cஹᑁ&ᘤDஹCD-ROM3()*+Ḅ,⌕./#3஺Aஹ0*+Ḅᡠᨵ345ᑴ78ᳮBஹ:;<ᵨᡝ?ᑖABᜐᳮCஹ᡽ᐙḄ./Dஹ034ᑖFஹ5ᑴஹGHᦈ4Internet7WWWḄᐵ*#4஺AஹK#LᱯNO#PQRSBஹInternetT#WWWCஹInternet7WWWUᐰWᨵᐵ*DஹWWW#InternetXḄYZ[ᵨ5ᙠWindows98\᛻^^☢ᐵ`▬[ᵨbcḄde5#RfgḄ஺AஹᑏijklmnᦻpᦻBஹᑏijḄqḕ᡽sPt.DOCCஹᘤḄuvklwxᑮᦻ᫏ᦻDஹ{|p}Ḅ~iᙠᦻpᦻᵨWordᐭᦻ,ᐹᨵᡠ}Ḅi6ᙠWordmnᦻpᦻ᫏ᡠᨵḄ“memory”Kᦋᡂ“&ᘤ”ᨬ"ᣩḄe#ᵨ6()஺AஹᦻᣚBஹᣚCஹᦋᑏDஹ7l^ᐵ`◀ḄdefgḄ#7஺AஹḄᩔ¢£¤#ᨵᦔḄBஹᑤ◀ᡠᨵ§ᦻ/◀ᡠᨵCஹ0¨©XḄ%ªBᓄ¬/◀/ᦪR®ẚ°Dஹ⌕Y±²⍎ᙢR¨©ᨬµḄe#¶X■ᓱ8:;¹iiº⊤Ḅe,Y¼kᑖt8½ᜧ¾஺Aஹ¿▣B7ÁBBஹ¿▣B7NÂBCஹNÂB7ÁBDஹÁB7ᔣB9ᓝÅ3ᑴᦪ1AE70FH7ᓝÅ3ᑴᦪ2003HḄ#9.Aஹ1AG70IHBஹ1B0712HCஹ1B0710HDஹÆe10ᙠWordᨵᐵ“ÇÈÉᦻÊ”./ḄËÌfgḄ#10஺AஹklÇÈÍÉBஹÎᐭᦻi/ÇÈ~0[ḄÉCஹklÏÐ┯Ò¢ᵨÉ⊤DஹklÇÈ᡽sÓÔÕḄᦻiᡈÉ×ØÙÚ⌱⚪×ÝÞ⚪1ᑖᐳ5ᑖÙ

83dßàáâ⌱ãḄäᫀ⌱½Zfgäᫀ(11)^☢ᨵᐵæç(Forward)ḄdefgḄ#(11)஺AஹæçḄe#ᙠᦈè⌱⌕æḄçéÕ“ê”ᢥì)3Yí()BஹᵨᡝO/0îç34îïRÈᙢêCஹðæᵨᡝñ)ᙠῃó᝱õᑮᵨᡝὶXN÷ø⌕ùúûæYüý4Dஹæç#ᵨᡝᦈᑮYïᵯÿ
ᐸᡂᕒ(12)ᐵWindowsḄᓫḄ(12)஺Aஹᮞ⁐Ḅᑣ⊤"#ᜐ%&Bஹᨵ“”ᑣ⊤"#*ᙠ,-.ᵨCஹᨵᑣ⊤"⌱1#2ᨵ3456᪾8*Dஹ9ᨵ“J”ᑣ⊤"#*ᙠᜐ:;<᝱(13)ᙠWord>ᡭ@A4ᦻ᫏2D9EFᦻ᫏ᑗᣚᡂᐸᦻ᫏-(13)஺Aஹ.ᵨ“ᦻ
”ᓫBஹ.ᵨIJKCஹ.ᵨ“LM”ᓫDஹ.ᵨ“NO”ᓫ(14)(14)PQ2ᑖS5TPQUVW᪗PQ,Z[\]PQ-UV᡽_`.exeḄ-᡻&PQ஺AஹbcBஹcdCஹefDஹcg(15)ᐵWindowsḄḄᨵ(15)-AஹIh34NOiᨵ᪗⚪KBஹᦻ
ᑤ◀-,mᐭoᦈqCஹrstuḄvᵨ`wᵨᩭtuᵨᡝḄLzDஹᙠ{3|}~ᑴᦻ
ᦻ
ᜳ-ᵨ᪗]Fᡂ⚪ஹẠ⚪(⚪ᐳ30ᑖ)(3)ᑨ⚪(⚪1ᑖᐳ10ᑖ)Ḅ▰⌲3ᑨᐸᔲ⌱A⊤"⌱B⊤"┯஺(16)ᐵ¡ᦪ£¤ᐵ¡%¥Ḅ¦v5§`¨⊤஺(17)D.ᵨSELECTO©ᡠ⌱1Ḅ«v¬-®`5«v¬஺(18)ᡠᨵ¯
iᨵValue°ឋ஺(19)²³´3µᦪ£¶·D¸²³34¹ºᡈ¼½©ᐸ¶·`²³¶·஺(20)ᦪ£¤ᦻ
ᦪ£¤ᜓ¿ᦻ
Ḅ᡽_ᑖS.DBC.DCT஺(21)ᦪ£¤⊤ÀḄÁÂឋᐵ¡Ã-ᙠᦪ£¤:ÄᘤÆÇ´-ᵨSETRELATIONᩭÆÇ஺(22).ᵨTOTAL9ÈÉᢥONv¹ºË⊤"Ḅ¹ºÆÇÌÍᔲᑣᑖ¶Î3;ÏÐV┯஺(23)34⊤ᦻ
ᙠ{3©Àᑁ-°A4ᦪ£¤஺(24)5{34¯
ÒWhenÓ
ᙠGotfocusÓ
9ÐV஺

84(25)ᙠAᵨᡝÔ᛻DᐳÖ⊤ᦻ
×Ø4ᵨᡝÙ*ᦻ
Ú┝ᐸᵨᡝ5#⊤ᦻ
ḄᑁÜÝᯠ-.ᵨLISTß&à"஺()ᓫ⌱⚪(⚪2ᑖᐳ20ᑖ)(26)?AT(“ᦻá”âᓅäᦻᓄá▾”)Ḅ%¥çè(26)஺Aஹ.T.Bஹ.F.Cஹ9Dஹ0(27)ᑡ44⊤êë%¥çè`ᦪ³·Ḅ(27).Aஹ?"9988"-"1255"Bஹ?200+800=1000Cஹ?CTOD(11/22/02)-20Dஹ?LEN(SPACE(3))(28)VisualFoxproí᯿᦮ឋðᑣ,ᒹò(28)«AஹóôðᑣBஹᑤ◀ðᑣCஹõöðᑣDஹ÷ᐭðᑣ(29).ᵨUSEᡭ@⊤ᦻ
©ᐸ5øḄç᪀~ᔠÌÍ´ûFᡭ@ü©⊤ýþḄÿ
ᢥ(29)஺Aஹ᪗Bஹᨬ᪗Cஹ᪗Dஹᱥᳮ(30)᡻M.ᖪH.ᖪ!ᑣ(30)oAஹ#ᖪ$%&!ᖪ$ᑁ()*Bஹ#ᖪ$ᑁ()*!ᖪ$%&Cஹ+ᖪ,$%&Dஹ+ᖪ,$ᑁ()*(31)-ᑡ/01!2345ᡂ⊤2᪀Ḅ/0$(31)oAஹUSE:(⊤COPYTO:(_1FORᖪ="=>”BஹCOPYFILE:(⊤.DBFTO:(@.DBFCஹUSE:(⊤COPYSTRUTO:(@FIELDSᖪ!AB!:(*DஹSELECT*FROM:(⊤WHEREᖪ=“=>"INTOTABLE:(@(32)⌕ᙠFGHI1:(⊤.DBF1ᡠᨵ“ᵯMN““ᵯOP”ḄQR!-ᑡ/01┯TḄ$(32)஺AஹUSE:(⊤BROWSEFORᖪ=UᵯMNVORᖪ=UᵯOPVBஹSELECT*FROM:(⊤WHERE”ᵯWᖪCஹSELECT*FROM:(⊤WHEREᖪIN(“ᵯMN“!“ᵯOP”)DஹSELECT*FROM:(⊤WHERE"ᵯZ"LIKEᖪ(33)᡻-☢/0ᑡ!ᨬᩩ/0Ḅ23](33)஺USE:(⊤DISPDISPDISPNEXT2?RECNO()

85Aஹ2Bஹ3Cஹ4Dஹ5(34)ᐵpAḄ<=Ḅ(34)oAஹ᪷ᵫ⊤¢£ABஹ¤᪷ᵫ⊤¢£ACஹ¤᪷ᦪ¥⊤¢£ADஹ%᪷ᦪ¥⊤Pᵫ⊤¢£A(35)ᙠVFP3(lg§¨©ª(ᓽ¨ᐵ¬).,nᐭ.(35)°Aஹk®P¯Bஹk®P¯Cஹk®k¯Dஹk¯k®⚪±ஹ²¯⚪(³¯r2ᑖᐳ16ᑖ)1ஹூ¶·௃¸¹º»¬¼ᐭḄ½¾IᦪḄᜧ¿Àᐸ3ḄᨬᜧᦪPᨬ¿ᦪ஺ூ௃SETTALKOFFCLEAINPUT'M='TOM(36)STOREMTOD,XDOWHIL.T.INPUT'NdTON(37)IFDvND=NENDIFIFX>NX=NENDIFYN='A'(38)DOWHILUPPER(YN)v>ÃANDUPPER(YN)v>NWAITᔲQRᐭ(Y•QR/N•!)’TOYNENDDO(39)IFLOWER(YN)='nEXITENDIFENDDO?"ftᜧḄᦪ'\D?’ᨬ¿Ḅᦪ'\XSETTALKON(36)AஹSTOREMTOD,XBஹSTORE0TOD,XCஹSTOREM,0TOD,XDஹSTORE100,0TOD,X

86(37)AஹIFD=NB>IFD>NC>IFD>=NDஹIFDvN(38)AஹDOWHILUPPER(YN)BஹDOWHILUPPER(YN)v>'Y'CஹDOWHILUPPER(YN)v>ÃANDUPPER(YN)v>NDஹDOWHILUPPER(YN)<>YORUPPER(YN)<>'N'(39)AஹIFLOWER(YN)='Y'B>IFLOWER(YN)=yCஹIFLOWER(YN)=NDஹIFLOWER(YN)=H2ஹூ¶·௃¸ᵨpLM2dM3ᨵÉÊIËᦪ(¤Ì1ᡈÎ᦮◀ḄᯠᦪTËᦪ)஺ூ¶·௃SETTALKOFFCLEARINPUTTOMS=0(40)FORI?MTO1STEP”IFSS(I)S=S+1??STR(I,5)ENDIFENDFOR?STR(S,5)SETTALKONFUNCSS(41)PARAXFORJ=2TOX-1(42)IFINT(X/J)=X/JEXITENDIFENDFORIFJ=XRETU.T.ELSE(43)RETUEENDIFENDFUNC(40)AஹFOR1=1TOM-1

87BஹDOWHILl<=MCஹFORI=MTO1STEP1DஹFORl=2TOINT(M/2)(41)AஹX=lBஹPUBLICXCஹPRIVXDஹPARAX(42)AஹIFINT(X/J)=X/JB>IFINT(XZJ)CஹIFX%J=X/JDஹIFJ%X=0(43)AஹRETUBஹRETU.F.CஹQUITDஹRETUX⚪Òஹ▅Ô⚪³¿⚪5ᑖᐳ15ᑖ¶·'▅ÔᑡᑏḄ஺1ஹXḄᐭᑖ210,366,0oSETTALKOFFCD='ᜩH?±ÒÖ×'DOWHIL.T.INPUT,Xr*TOXX=IIF(X>0ANDX<366,MOD(X+2,7)+1,IIF(X=0,0,8))DOCASECASEX=0?‘!’EXITCASEX=8?‘ᐭᨵ┯’LOOPOTHERWISE?'ØÙ'+SUBSTR(CD,2*X-1,2)ENDCASEENDDOSETTALKONØÙ?2ᑖᐭᨵ┯2ᑖ!1ᑖ2ஹNḄᐭ325஺SETTALKOFFINPUT'N='TON

88X^ABCDEFGHIJ,Y='ᵬÛÜÝÞß'NC=ALLTRIM(STR(N,6))L=LEN(NC)N2=2*L-1NN=MK=1DOWHILK<=LN1=INT(VAL(SUBSTR(NC,K,1))*2+1)NN=NN+SUBSTR(X,N1,1)NN=NN+SUBSTR(Y,N2,2)?N1,N2,NNN2=N2-2K=K+1ENDDOSETTALKON75GÜ1ᑖ53GÜEÛ2ᑖ111GÜEÛᵬ2ᑖ3ஹSETTALKOFFCLEARDIMEA(5,5)A=0FOR1=1TO5?SPACE(10-l)FORJ=1TOIIFORJ=1A(I,J)=1ELSEA(I,J)=A(I-1,J-1)+A(I-1,J)ENDIF??STR(A(I,J),2)ENDFORENDFORSETTALKON

89121133114641⚪ÖஹM⚪³⚪12ᑖᐳ24ᑖ¶·'᪷⚪à⌕[ᑭᵨ☢ᔣãäMhåᙠxæãäḄç53Fᑏèṹ஺1⊤ᓫḄ8☢67ßê¸ëᡂw⊤ᓫᨵᐵḄ⊤ᦻ5ßíîïᑮðᦪñ᛻3}2⊤ᓫ8☢3◀ßí¶·óôḄõឋ᜜ᐸøù⌕ḄõឋHúᙠç5èṹ3ó;3ç5èṹ3%ûüḄ¨⌕õឋஹç5ühåᑡ⊤᝞ýþÿὃ
AdditemControlsourceReadonlyRowsourceSetfocusEnabledRecordsourceRowsourcetypeButtoncountForecolorRecordsourcetypeSetallButtonsFontsizeRefreshTimerCaptionInitReleaseValueClearInterActiveChangeRemoveitemValidClickIntervalRequeryVisible1ஹᑴᦋ⊤ᓫḄ⊤ᓫ஺ᢥ“ᦋ”“”ᑖCOMMAND"!ஹCOMMAND2oᦻ᪾"#$%&'()*ᐹ,-☢᝞01ஹ02ஹ0304ᡠ2஺⌕4:1678ᵨᡝ⌱<Ḅᡠᨵᖪ?ᑡ⊤A2Bᵨᡝ⌱

9003B⌱<“ᦋ”WḄ-☢04B⌱<“”WḄ-☢hlJYZᓫஹ├\ᓫY]ᦋkhᯖ_`ᑮᖪ?k⊤ᓫFormlḄInitm#nṹ
THIS.TEXT1.VALUE={//}THIS.TEXT2.VALUE=MTHIS.TEXT5.VALUE=0THIS.CHECK1.VALUE=.F.ᦻ᪾Text2Ḅvalidm#nṹ
SELE⊤LOCAFORᖪ?p=ALLT(THISFORM.TEXT2.VALUE)IFFOUND()THISFORM.TEXT3.VALUE=ᖪ?THISFORM.TEXT4.VALUEqrsTHISFORM.TEXT6.VALUE=IIF(THISFORM.CHECK1,VALUE,YZᓫ*├\ᓫ)SELEY├⊤RETU.T.ELSE=MESSAGEBOX(,vwᑮxᖪ?p)RETU.F.ENDIFᦻ᪾Text5ḄlostfocusTHISFORM.TEXT7.VALUE=THISFORM.TEXT5.VALUE*THISFORM.TEXT6.VALUEᢥCommandlḄclickm#nṹ:

91APPENDBLANKREPLᖪ^WITHTHISF0RM.TEXT2.VALUE,;_᧕abWITHTHISF0RM.TEXT1.VALUE,;c├᪗eWITHTHISF0RM.CHECK1.VALUE,;ᦪ*WITHTHISF0RM.TEXT5.VALUE,;᤺⌕WITHTHISF0RM.TEXT8.VALUESELE:(⊤IFTHISF0RM.CHECK1.VALUEREPL:(*WITH:(*+THISF0RM.TEXT5.VALUEELSEREPL:(*WITH:(*-THISF0RM.TEXT5.VALUEENDIF/0ᢥhCommand2ḄclickijkṹmTHISF0RM.TEXT1.SETFOCUS/0ᢥhCommandsḄclickijkṹmTHISFORM.RELEASE2ஹnᑴc├ᓫḄqᐭ⊤ᓫ஺c├᪗e]s⌱᪾CHECK1,/0ᢥh“v(”ஹ“wx”“⌨z”{ᑖ}]COMMANDSCOMMAND2COMMANDS,ᐹ☢᝞5ஹ6ஹ78ᡠ஺⌕m1qᐭᖪ^:(⊤1ᖪ^!(ᙠᑣ
ᖪஹABḄᓫᙠ⊤ᓫ!ᔲᑣ!ᑮᖪ^!᝞78ᡠ஺qᐭᦪ*5஺2“v(”ᢥhqᐭᑁv(ᑮc├⊤!ᦋ:(⊤1:(*“wx”ᢥhᯖᢣᔣTextlᦻ¢᪾“⌨z”ᢥh⌨z⊤ᓫ஺£c├ᓫ¤¥

9205⊤ᓫ"#Ḅbc-☢06⊤ᓫ᡻]WḄfg-☢07ᖪ?pyᐭ{|W-☢08ᖪ?pyᐭ┯~W-☢2ஹ⊤ᓫFormlḄInitm#nṹ
THIS.LIST1.R0WS0URCETYPE=6THIS.LIST1.R0WS0URCE='⊤.ᖪ?*THIS.GRID1.VISIBLE=.F.ᑡ⊤᪾ListlḄInteractivechangem#nṹ
SP=⊤.ᖪ?pSELEY├⊤LOCAFORᖪ?p=SPIFFOUND()SELECTᖪ?*᧕*Y├᪗*ᦪFROMY├⊤AINNERJOIN⊤ONY├⊤.ᖪ?p=⊤.ᖪ?p;WHEREY├⊤.ᖪ?p=$AINTOCURSORLSB1

93THISF0RM.GRID1.REC0RDS0URCETYPE=2THISFORM.GRIDI.RECORDSOURCE^LSBI'SELELSB1STOR0TOS1,S2,S3,S4SCANIFY├᪗S1=S1+1S2=S2+ᦪELSES3=S3+1S4=S4+ᦪENDIFENDSCANTHISFORM.TEXT1.VALUE=S1THISFORM.TEXT2.VALUE=S2THISFORM.TEXT3.VALUE=S3THISFORM.TEXT4.VALUE=S4THISFORM.GRID1.VISIBLE=.T.ELSETHISFORM.TEXT1.VALUE=0THISFORM.TEXT2.VALUE=0THISFORM.TEXT3.VALUE=0THISFORM.TEXT4.VALUE=0THISFORM.GRID1.VISIBLE=.F.=MESSAGEBOX஺Y├ᨵxᖪ?*)ENDIFSELE⊤⌕nṹ᝞
1)⊤ᓫFormlḄInitm#nṹ
SCANTHISFORM.LIST1.ADDITEM(ᖪ?)ENDSCANTHISFORM.SETALL(MREADONLYM.T.,KTEXTBOXM)JᡈTHISFORM.LIST1.ROWSOURCETYPE=6THISFORM.LIST1.ROWSOURCE="ᖪ?”THISFORM.SETALL(MREADONLYM,.T.,HTEXTBOXH)

942h⊤᪾LIST1ḄINTERACTIVECHANGEm#nṹ
LOCAFORᖪ?=THIS.VALUETHISFORM.SETALL"READONLY",.T.,"TEXTBOX"THISFORM.REFRESH3ᢥCOMMAND1ḄᓫCLICKm#THISFORM.TXT7Kᓫ.READONLY=.F.THISFORM.TXT├\ᓫ.READONLY=.F.THISFORM.TXT7Kᓫ.SETFOCUS4ᢥCommand2Ḅclickm#nṹ
THISFORM.TXT7Kᓫ.READONLY=.T.THISFORM.TXT├\ᓫ.READONLY=.T.THISFORM.LIST1.SETFOCUS2002ḕ᪥¡¢£¤¥

95¡¦§ὃ¨¨ᔁ(q§VisualFoxPro)µ¶
(i)ὃ¥KH¨⚪I¹¨⚪inḄ»ᫀ½ᑏᙠ»⚪ᓱÁ*H¨⚪wஹ¨⚪vḄ»ᫀÃᑏᙠ»ᔁÁ*ᔲᑣÆÇᦔᜐᳮA(2)ÌHÍḄÎὃÏpḄEÐÑÃᑏᙠ»ᔁḄÒÓᢣ)ÑÕᑁA(3)ὃ¨WØ120ᑖÛA(4)ᙠ¨ᔁÝÞᑮḄßᐵᦪj⊤ᦻ#*ᐸâ᪀ᑁäᑡ⊤᝞஺1.⊤.DBFâ᪀
ᖪ?pᖪ?rs7Kᓫ├\ᓫC4CIOCION10,2N10,2N10ᑁä
LMp#ᖪ?pᖪ?rs7Kᓫ├\ᓫ10001ᵯì¡SX-251800.002000.0010020002ᵯòóHR-601500.001800.005030003÷⊟¡XY-1001200.001500.008040006úûᘤLB-17999.001100.0019550005ᵯᾯPT-49999.0011100.009560004BS-HF5000.005250.0020070007ᵯᡧCP-320500.00550.005080008MD-153200.003500.00160…••••••…………├⊤.DBF#᪀%ᖪ'()᧕+,᤺⌕├᪗0ᦪ234C4D8MEMOL1N10N12,2ᑁ;%<=(#ᖪ'()᧕+,᤺⌕├᪗0ᦪ2341000103/04/02memo.F.202000604/09/02memoF203000305/02/02memo,F.504000508/21/02memo.F.975000109/09/02memo,T.256000603/15/02memo.T.557000108/19/02memo,T.158000305/27/02memo.T.35C%DE“├᪗0”ḄIJ.T.K⊤L├MNᔲᑣ⊤LQ஺DE“34”ḄIᙠᐹUVᵨKNᵫὃZᵨ[ṹ]^_ᐭ஺(├M)34=├Mᓫe*ᦪ2N(Q)34=Qᓫe*ᦪ2஺g⚪IjklmẠ⚪(o⚪ᐳ15ᑖ)

96ஹᓫ⌱⚪(§¨⚪1ᑖ!ᐳ10ᑖ)1.-ᑡᔜ«c¬ᦪᑴ1!ᨬ¨Ḅᦪ$஺A.(1100101)2B.(146)C.(100)D.(6A)ie8102.®¯°±²ᑏv´Ḅµ¶!·஺A.¸¹º»¼½!¾¹¿¼½À»B.Á¹ᔣ᜜º»¼½!ù¿¼½À»C.Ĺº»¼½!Á¹¿¼½À»D.Ĺ¿¼½À»!Á¹ᔣ᜜º»¼½3.⚣Æ{]⚣᳛!$ᢣÈNḄCPUᙠᓫ¬ÉᑁÊËḄᾭÍᦪ஺A.ÎÏB.ÐC.(ÑD.Ò4.ᙠWindows98Ó᛻1!Õᵨ“×Ø”ÙᓫḄ“Ò”/0!᡻ᦻj஺A.SI.PRGB.S2.COMC.S3.BATD.S4.EXE5.ᙠWindows98Ó᛻-!-ᑡᨵᐵ®ÛᦈÝÞËḄßà1,$Ḅ஺A.ÛᦈÝ1ḄÃâ/0!4
ᦻjឮsᑮä¶1âᩭḄ¬æB.çè
µ¶ᑤ◀Ḅᦻjë¥ÛᦈÝC.ᑤ◀ì¶Ḅᦻj!¿ᑤ◀ḄᦻjíîëᐭÛᦈÝD.§ì¶ḄÛᦈÝᜧ¨$ðîḄ!ᵨᡝòᦋ6.ÞËóô$«஺A.óôµjB.ᵨµjC.µjᒹD.ö÷µj7.ø%ᜐᳮóô1Ḅ%:ᦻjᵨ¯஺A.
qᐭṹúᣚ]NᑁṹB.qzúᣚ]ᡈᡭᓺ%ÿC.
D.ᐭḄṹ8.᝞Wordᦻ᫏Ḅᦻឋᑣᦻ᫏Ḅᦋ——ᙠ!"ᦻ#஺A.%&'ᯠ)*B.%&,ᑖ)*C../)*D.%&ᵨ1ṹ)*9.2!3ᵯ56789ᦈ;ᵫ=>>?@!ABᨵDEFᦈ6GHI6!OA.⌨KB.LM7〈C.OᜫD.)*ᙠISPḄE-mailQRᘤT10.UVEWXYZ[ᢣ!!஺A.ᔜWXᵨᡝ_`abḄcdᦻeB.TW;ᕒḄ⍝hiC.UVEklmḄ᪗opqD.rsWXtFḄuvwxஹz⌱⚪(~⚪1ᑖᐳ5ᑖ)⌱Ḅᫀ#⌱"ᫀ11.ᑡᐵ=ᡭᓺEḄ#!![Ḅ஺

97A.┐ᡭᓺlᡭᡭᓺlB.ᐝᡭᓺl⚓ᡭᓺlC.ᡭᓺlḄᨬD.ᡭᓺlᡭᓺ12.WordVᵨᑵᑴ஺A.ᦻDḄD(B.ᦻDḄᑁ;C.J¡¢ᦻDᑴ£¤D᪵D.ᦻDḄ¦⁐13.ᙠ¨©ª«N¬®¯°±²³〈µjkl¶NV·¸ᡂ᡻»²³N¼½VᵨḄ¾©ᨵ----஺A.ÀÁ²³B.Â᪗²³C.ò³D.IJ³14.ᙠWindows98N«ᑡᨵᐵ“ÇÈÉÊ”ËÌḄÍÎNÏÐḄ஺A.¢ÑÇÈÉÊNÒÓÇÔᐸÖjklḄᐳ×ᦻᜳB.JÙ¢ÑÇÈÉÊᑴÚjklÈḄᦻA.D0C,Q¬A.D0CÛÜJᐳ×C.ÝÚjklÞßC%\TCᦻᜳÛÜÙᐳ×NᑣᵨᡝᑭᵨÇÈÉÊãÁäTCᦻᜳᑴᑮoᙢjklÈD.ÝÚjklÞßC%\TCᦻᜳÛÜÙᐳ×NᑣᵨᡝᙠoᙢjklÈN¬TCᦻᜳÛÜJ᧜èÇÔéêᘤ15.jklḄìkᘤᙠíᑴᘤḄᢣᢵ«Nðñ——஺A.[ᦪìkB.k¤ìkC.óìkD.ôᓄög⚪n¯°mẠ⚪÷o⚪ᐳ30ᑖøஹᑨû⚪÷ü⚪1ᑖNᐳ10ᑖøýþ%ᙠ«ÿḄ▰⌲ᑨᐸᔲ⌱A,┯⌱B஺16.ᙠ☢ᔣ!Ḅ"#$%ᡠᨵḄ()*+,-ᵫ!/ᡂḄ஺17.2-34!56ᵨḄ89:;<ᡠ=2-ᡠᨵ!Ḅ>?᱄Aᘤ஺18.DEᐳGᦪI⊤ᦻ)LMNOPQ5RA᧕TUVWᡈY┝[!\]^_`-ab┯c◍ONERRORᣓᣍk┯NOlmnop\┝ᡈqrst஺19.vᑖ/2Aᘤx᝞z{ᢥ}/q~ḄVALUEឋ=ᵨᵨᡝTx᝞ᓫ~ᐸᡠᒹ)Ḅ!஺20.ᦪI᛻-E!ᒹ⊤ᓫoᵨḄ⊤ᡈ<=⊤ᓫᡠ⌕Ḅ⊤`Ḅᐵ*஺21.ᯠ2!Ḅឋஹ¢):^_£-ᙠPQ⊤ᓫ5ᵨᡝ¤ᯠ=ᔣ⊤ᓫᒹḄ¥¦!§¨¥©DEªឋ:ª^_஺22.⌕«[ᦪI¬E⊤ᦻ)`ḄᦪIᐵὶ¯°ᙠE⊤`±²ᐳḄ³´ᓽE⊤Ḅ¶ᐵ·³´¸E⊤Ḅ᜜vᐵ·³´º⌕=o»ḄᦪI2¼ᓛ¾஺23.ÀÁ-VisualFoxProᙠÌÍÎÏÐḄÑ5ÁÒᙠDEÀÁ=»5ᡭÏDEᐹᨵÕ4Ö×ᢣ┐Ḅ⊤ᦻ)஺24.VisualFoxProᡠᨵ¢)ḄTU,-ᵫᵨᡝÛTḄ஺25.aÝÞßà⌕Uᡂá⊤ᦻ)ᡈ-᪗ãᦻ)¯°abᦪI᛻±opḄᦪIä஺

98xஹᓫ⌱⚪(~⚪2ᑖᐳ20ᑖ)26.ᙠᦻᡭDḄ⌕“*⊤”#x"*¡25Ḅᖪ£¤¥ᵨ¦§----஺A.SKEK25B.SEEKNEXT2C.SEEK25D.SEEK25CONTINUESKIP27.Ꮇ᝞⊤ᦻªᐸᦻ¬ᡭD®)ᢣ┐°ᙠᱥᳮ³´µ1Ḅ³´T¤I¥ᵨ¦§----஺A.GO1B.GOBOF()C.GOTOPD.SKIP128.¦§DELETEALL¶ZAPḄ·[——஺A.¸ὅᑤ◀2¸¼½·Ḅᡠᨵ³´¿9ὅᑣᑤ◀ᡠᨵ¼½·Ḅ³´B.¸ὅᑤ◀³´9%&ᵨRECAIL¦§ឮÁ¿9ὅᑤ◀³´9ᓾÃcឮÁC.¸ὅᑤ◀³´¿9ὅ.Äᑤ◀³´¿Åt⊤Æ᪀!ᑤ◀D.¸ὅᑤ◀2¸³´¿9ὅᑣᑤ◀ᡠᨵ³´29.᡻Éᑡ¦§Êᑡ9ZË¡ḄÌ[!!஺Y=2X=1Z=X+l=Y+2A..F.B..T.C.2D.430.Í⌕Γ├⊤”ᦻ#~Фᦪ¡ᙠ50&T100&Ḅᖪ£klÒ~Ð├Óᦪ¡ᙠ20&Ḅᖪ£kl¤I¥ᵨᑡᩩ——஺A.├᪗Õ=“¤”ANDᦪ¡ó50ANDᦪ¡ô1000R├᪗Õ=“├Ó”ANDᦪ¡ô20B.├᪗Õ=“¤”ANDᦪ¡ó500Rᦪ¡GOOAND├᪗Õ=“├Ó”ANDᦪ¡ô20C.!├᪗ÕANDᦪ¡ó50ANDᦪ¡ô100AND├᪗ÕANDᦪ¡ô20D.!├᪗ÕANDᦪ¡ó50ANDᦪ¡ô1000R├᪗ÕANDᦪ¡ô2031.VisualFoxPro⊤ᦻᵫ,ᑖ×ᡂᓽ----஺A..DBFᦻÒ.FPTᦻB,⊤Æ᪀ÒᦪÚ³´C..PRGᦻÒ.FXPᦻD..SCXᦻÒ.SCTᦻ32.Ë¡X=12345.678,sÛÜË¡XḄ᦮ᦪᦪ¤¥ᵨ⊤Þq!!஺A.LEN(INT(X))B.LEN(SYR(INT(X)))C.LEN(LTRIM(STR(X)))D.LEN(ALLTRIM(INT(X)))33.¥ᵨßᦪVARTYPEàáᑡ⊤ÞqÌḄâã9Æᑖ——.DATE()+MONTH(DATE())DATE()-CTOD(“1999-9-9”)CHR(DAY(DATE()))DATE()=DATE()+1TIME()A.N,D,C,D,TB.D,N,C,L,C

99C.D,N,C,D,ND.┯æklN,N,L,D34.⊤ᦻ“*⊤”¬ᙠ3µ¼½·çᡭDÅ2¸³´ᢣ┐ᙠ✌³´᡻ÉᑡVisualFoxPro¦§Êᑡ98ḄÆ[----஺REPLACE├ÓᓫéWITH├Óᓫé*0.8FOR*¡ó=100├Óᓫé="ìᢚᜐᳮ”?C.├ÓᓫéM.├Óᓫé*⊤.├Óᓫé├ÓᓫéA.160016001600ìᢚᜐᳮB.2800ìᢚᜐᳮ28002800C.1600ìᢚᜐᳮ1600ìᢚᜐᳮD.0ìᢚᜐᳮ0035.Í⌕Ü!"⊤ᦻḄᦪÌã
ïðrᦪñ)ᶇ6ᦪGHó
ïḄôõᨬ÷¤I°ø----OA.6B.7C.8D.9á⚪IDùÊúû⚪ð~û2ᑖᐳ16ᑖñùÊ1[ùÊ]Ü1!+3!+5+.....+N!,NᵫþᐭÅ᜻ᦪSETTALKOFFCLEAR[36]STORE0TOS,TFOR1=1TONSTEP2DOSUB[37]ENDFOR?SSETTALKONPROCSUBT=1FORJ=1TO[38][39]ENDFOR36.A.ACCEPT"N="TONB.INPUT"N="TONC.WAITTOND.DOWHILE.T.37.A.S=S+TB.S=S+NC.S=TD.S=S+T*I38.A.NB.TC.2*1+1D.I39.A.T=T*IB.T=T*JC.T=T*ND.S=S+J*T

10036.B37.A38.D39.B2[]ᵨᡝᢣ⊤ᦻᢣḄᢣᑁ᝞ᵨᡝᢣḄ⊤ᦻ!ᙠ,$%&'()஺SETTALKOFFCLEARACCEPT”,-ᐭ⊤ᦻ/0᡽2/3”TOFILENAMEACCEPT”,-ᐭ⌕Ḅ/3"TOFIELDNAMEACCEPT”,-ᐭ⌕Ḅᑁ3"TOCHARIF[40]FILE%FILENAME&[41]USE%FILENAME&BROWSEFOR[42]CHAR$&FIELDNAMEUSE[43]CHAR$&FIELDNAME?“ᢣḄ⊤ᦻ!ᙠ8”ENDIFSETTALKON40.A.FILE(FILENAME)B.TYPEC&FILENAME")C.FILE("FILENAME")D.FILE(feFILENAME)41.A.USEFILENAMEB.USE(FILENAME)C.USE&FILENAME..DBFD.USE&FILENAME.DBF42.A.CHAR$FIELDNAMEB.AT(CHAR,FIELDNAME)>0C.CHAR$&FIELDNAMED.AT(&CHAR,&FIELDNAME)>043.A.LOOPB.EXITC.ELSED.IF40.A41.B42.C43.C9⚪W▅<⚪=>⚪5ᑖᐳ15ᑖ3▅

101INPUT"N=஻TONINPUT"M=஻TOMX=MIN(N,M)FORI=XTO1STEPTIFM/I=INT(M/I)ANDN/I=INT(N/I)P=IEXITENDIFENDFOR?"P="+ALLTRIM(STR(P,19))+”,R="+ALLTRIM(STR(M*N/P,19))SETTALKONP=4,R=242.678N9ᐭ;<4,=>AḄASCHṹ<65,AAZC᣸஺FG2SETTALKOFFCLEARINPUT஻N=஻TONFOR1=1TON?SPACE(N-I+1)FORJ=1TO2*1-1??CHR(ASC("A஻)+IT)ENDFORENDFORFORP=N-1TO1STEP-1?SPACE(N-P+1)FORK=1TO2*P-1??CHR(ASC("A஻)+P-1)ENDFORENDFORSETTALKON1.ABBBCCCCC

102DDDDDDDCCCCCBBBA3.JKLX-ᐭMN36஺3SETTALKOFFCLEARINPUT"X="TOXS=STR(X,5)+"="FOR1=2TOXIFMOD(X,1)=0S=S+str(L3)+"*"X=INT(X/I)1=1-1ENDIFENDFOR?LEFT(S,LEN(S)-l)SETTALKON36=2*2*3*39⚪VஹJP⚪(=⚪12ᑖᐳ24ᑖ)3᪷T⚪E⌕Fᑭᵨ☢ᔣXYJPZ[\ᑏ஺(1)⊤ᓫḄ^☢_`abcdᡂf⊤ᓫᨵᐵḄ⊤ᦻaijkᑮmᦪTn᛻p(2)⊤ᓫ^☢◀aiJrsḄtឋ᜜ᐸxy⌕Ḅtឋz{ᙠ|}ṹJrᑏ|}ṹ⌕FXYᐗᘤḄ/(᝞3⊤ᓫḄINIT|)p(3)|}ṹḄ⌕tឋஹ|Z[ᑡ⊤᝞Aὃ3AdditemControlsourceReadonlyRowsourceSetfocusEnabledRecordsourceRowsourcetypeButtoncountForecolorRecordsourcetypeSetallButtonsFontsizeRefreshTimerCaptionInitReleaseValueClearInterActiveChangeRemoveitemValidClickIntervalRequeryVisible1ஹ\ᑴzᖪ⊤ᓫ⌕FX“!⊤”ᦻḄᖪH

103`abcdefghiᙠ⊤l%gridl&mnoᡠᨵamᖪsḄtᐵvw஺ᐹyz☢᝞}1ஹ}2ஹ}3}4ᡠo%ᘤḄname

104FOR1=1TOTHIS.COMMANDGROUP1.BUTTONCOUNTTHIS.COMMANDGTOUP1.BUTTONS(I).CAPTION=SUBSTR(C,4*(I-1)+1,4)ENDFORTHIS.TIMER1.INTERVAL=100THIS.TIMER1.ENABLED=.F.THIS.TEXT1.VALUE="ᖪs”THIS.GRID1.VISIBLE=.F.SETDELETEON(2)ᘤTIMER1ḄTIMERṹ®SKIPIFEOF()GOTOPENDIFTHISFORM.TEXT1.VALUE=ᖪsTHISFORM.REFRESH(3)ᢥCOMMANDGROUP1ḄCLICKṹ®SELECT¯°⊤SETDELETEONTHISFORM.GRID1.VISIBLE=.F.DOCASECASETHIS.VALUE=1THIDFORM.TIMER1.ENABLED=.T.THISFORM.TEXT1.VALUE=ᖪsCASETHIS.VALUE=2THISFORM.TIMER1.ENABLED=.F.DELETECASETHIS.VALUE=3SETDELETEOFFSELECT*FROM¯°⊤WHEREDELETE()INTOCURSORXZSPTHISFORM.GRID1.VISIBLE=.T.OTHERWISETHISFORM.REFRESH2ஹᑴ²³ᖪs├µvw¶·⊤ᓫ஺ᐹyz☢᝞}1ஹ}2ஹ}3}4ᡠo஺ᡂtḄṹḄᑏ஺⌕¹®1º»¼ᵨᡝ⌱¿ḄᡠᨵᖪsÀᑡ⊤Á2Âᵨᡝ⌱¿ÃÄᖪsÀÅeÆÇÈÉ£iᑡ⊤ÊËnoÌÍᖪsÀḄÎÏÐ᧕Ò

105ஹ├¡ᦪL├¡¢£¤ᡠᨵ¦᧕Ḅ¨├¡¢£஺᝞ᵨᡝ⌱ªḄᖪ«¬®¯├¡HNᑣ±'²²ᖪ«ᨵ├¡HNḄ()᪾&'p3&±'X´ᖪḄ├¡()Ḅ᪗⚪%Label2&¶·¸⌱ªḄᖪ/¸᝱Kᓄ஺ForalUbellUbd2»1¼_`^☢»2⊤ᓫ᡻HḄ¾¿^☢»3⌱ª“ᵯÁ”Ḅ^☢»4⌱ª“ᵯᾯ”Ḅ^☢±'ᡠᨵᵯÁÂḄÃᐵ├¡()&±'“ᵯᾯ«ᨵ®¯├¡()”Ḅ()᪾&'1⊤ᓫFORM1Ḅ¾¿ᓄINIT|Å}ṹ3THIS.CAPTION="ᖪ├¡()”THIS.LABEL1.CAPTION="⌱ªᖪ/3”THIS.LABEL2.CAPTION="ᖪ├¡ÆÇ3”THIS.LIST1.ROWSOURCETYPE=6THIS.LIST1.ROWSOURCE="!⊤.ᖪ/“THIS.LIST1.ROWSOURCETYPE=0THIS.LIST1.ROWSOURCE=""SELECT├⊤.ᖪ,!⊤.ᖪ/,!⊤.├¡ᓫ,├⊤.¦᧕É,├⊤.ᦪL,;├⊤.¢£pFROM├⊤!⊤pWHERE├⊤.ᖪ=!⊤.ᖪAND├⊤.├᪗Ìp

106INTOTABLESPXS;ORDERBY»├⊤.Ð᧕ÒÓSELECTSPXSREPLACEALLÔÕWITH├µᓫ*ᦪ8THIS.LABEL2.VISIBLE=.F.THIS.LIST2.VISIBLE=.F.(2)×ij⊤᪾LIST1ḄINTERACTIVECHANGÙFṹ®THISFORM.LIST2.CLEARSELECTSPXSSTORE0TOXSJE,NTHISFORM.LIST2.ADDITEM(“Ð᧕ÒÓ├µᦪ8├µÔÕ”)SCANFORᖪsÀ=THIS.VALUETHISFORM.LIST2.ADDITEM(DTOS(Ð᧕ÒÓ))+STR(ᦪ8,10)+STR(ÔÕ,16,1))XSJE=XSJE+ÔÕN=1ENDSCANIFN#0THISFORM.LIST2.ADDITEM("ᡠᨵ├µÚÔÕ<®M+STR(XSJE,10)+•ᑍ)THISFORM.LABEL2.CAPTIONSᖪs”+ALLT(THIS.VALUE)+”Ḅ├µÝÞ®”THISFORM.SETALL(UVISIBLE,,,.T.)ELSETHISFORM.LIST2.VISIBLE=.F.THISFROM.LABEL2.VISIBLE=.F.MESSAGEBOX(ALLT(THIS.VALUE)+”ßᨵ¼à├µvw”)ENDIFTHISFORM.REFRESH