用Visual Foxpro 610 实现盈亏平衡分析自动化

VisualFoxpro610X,VisualFoxPro610VisualFoxPro6101.(BEP),,,,,,,,(BEP):BEP()=[/(--)]100%BEP()=[/(--)]100%2.VisualFoxPro610PC,,,,,VisualFoxPro610211VisualFoxPro610,,,,,,3,131cbfycwfyykfx,,,(),,,(),3,cbfy,2,,2cbfy151515151515151515212(),(Form)VisualFoxPro610,,8623420048Vol123,No14134X(:Y11218960601),,(),,Load,:DEFINECLASSykfxËformASformWidth=475DoCreate=.T.AutoCenter=.T.Caption=Icon=xfl.icoName=ykfx.FormROCEDURELoadpublicncl,bdcbËdw,gdcb,ykcl,yksl,yksj,nllyl,xsjg,xssjxssj=0xsjk=0ncl=0bdcbËdw=0gdcb=0ykcl=0yksl=0yksj=0nllyl=0select1usecwfygoto1ncl=cwfy.xsjg=cwfy.xssj=cwfy.select2usecbfygoto1bdcbËdw=cbfy./nclgdcb=cbfy.ykcl=gdcbP(xsjg-bdcbËdw)yks=bdcbËdw+gdcb/nclyksl=bdcbËdw3ncl+gdcbnllyl=gdcbP((xsjg-bdcbËdw)3ncl-xssj)3100select3useykfxgoto1replaceykfx.withykclreplaceykfx.withnllylreplaceykfx.withyksjreplaceykfx.withykslENDPROC,Load3.VisualFoxPro610,114.,,,1.,..,20022...,19993...,20014.,.VisualFoxPro610.,20005.,.VisualFoxPro610.,2000,,,,,,9623420048Vol123,No14134