【正文】
@26,40 SAY a7@34,34 say x1@8,125 say a8@10,125say a9@12,125 say a10@14,125 say a11@16,125 say a12@18,125 say a15@28,128 say a13@30,128 say a14@32,128 say a16@34,128 say x2@8,70 say b1@10,70 say b2 @12,70 say b3@14,70 say b4 @16,70 say b5@24,70 say b6@26,70 SAY b7@34,70 say y1@8,145 say b8@10,145 say b9@12,145 say b10@14,145 say b11@16,145 say b12@18,145 say b15@28,145 say b13@30,145 say b14@32,145 say b16@34,145say y2if y1=y2 or x1=x2messagebox(資產(chǎn)負債表平衡!請退出!)elsemessagebox(資產(chǎn)負債表不平衡!請檢查!)endif select 1use set talk on retu利潤表格式設計程序碼:set talk offclearn=3a1=____________________________________________________________________________a2=| | |a3=|_____________________________________________|_____________________________|@3,8 say a1n=4do while n=34@n,8 say a2@n+1,8 say a3n=n+2endd@0,50 say 利潤表font宋體,16@2,12 say編制單位@2,50 say 年 月 日@2,80 say 單位: 元 @4,20 say 項目@4,55 say 本月數(shù)@6,12 say 一、營業(yè)收入@8,14 say 減: 營業(yè)成本@10,16 say 營業(yè)稅金及附加@12,16 say 銷售費用@14,16 say 管理費用@16,16 say 財務費用@18,16 say 資產(chǎn)減值損失@20,14 say 加:公允價值變動收益@22,16 say 投資收益@24,12 say 二、營業(yè)利潤@26,14 say 加:營業(yè)外收入@28,14 say 減: 營業(yè)外支出@30,12 say 三、利潤總額@32,16 say 減:所得稅費用@34,12 say 四、凈利潤利潤表程序設計程序碼:set talk offclear do e:\20109920422歐陽一帆\利潤表格式store 0 to a,b,c,d,e,f,g,h,i,j,k,l,b1,b2,b3,b4,b5kmdm1=space(4)select 1use e:\20109920422歐陽一帆\select 2use e:\20109920422歐陽一帆\select 1sum bqdf to a for kmdm=6001.=6051sum bqjf to b for kmdm=6401.=64O2sum bqdf to c for kmdm=6403sum bqjf to d for kmdm=6601sum bqjf to e for kmdm=6602sum bqjf to f for kmdm=6603sum bqjf to g for kmdm=6701sum bqjf to h for kmdm=6101sum bqdf to i for kmdm=6111sum bqdf to j for kmdm=6301sum bqjf to k for kmdm=6711sum bqjf to l for kmdm=6801b1=ab2=b+c+d+e+f+gb3=b1b2+h+ib4=b3+jkb5=b4ldo e:\20109920422歐陽一帆\@6,60 say b1@8,60 say b@10,60 say c@12,60 say d@14,60 say e @16,60 say f@18,60 say g@20,60 say h@22,60 say i@24,60 say b3@26,60 say j@28,60 say k@30,60 say b4@32,60 say l@34,60 say b5 select 2PACKrepl bys with b1 FOR XM=營業(yè)收入repl bys with b FOR XM=營業(yè)成本repl bys with c FOR XM=營業(yè)稅金及附加repl bys with d FOR XM=銷售費用repl bys with e FOR XM=管理費用repl bys with f FOR XM=財務費用repl bys with g FOR XM =資產(chǎn)減值損失repl bys with h FOR XM=公允價值變動repl bys with i FOR xm=投資收益repl bys with b3 FOR XM=營業(yè)利潤repl bys with j FOR XM=營業(yè)外收入repl bys with k FOR XM=營業(yè)外支出repl bys with b4 FOR XM =利潤總額repl bys with l FOR XM=所得稅費用repl bys with b5 FOR XM=凈利潤useselect 1useselect 2 set talk on retu