下面是近一年来实发工资计算税金的程序,并将计算结果填入税金字段(假定职工最高实发工资为难2500元)请填空。 ****主程序MAIN.PRG**** SET TALK OFF TAX=O USE GZ DO WHILE.NOT

admin2010-06-12  28

问题 下面是近一年来实发工资计算税金的程序,并将计算结果填入税金字段(假定职工最高实发工资为难2500元)请填空。
   ****主程序MAIN.PRG****
   SET TALK OFF
   TAX=O
   USE GZ
   DO WHILE.NOT.EOF()
   SHFGZ=实发工资
   D0 SUB【  】
   9TAX
   RAPLACE税金WITH TAX【  】
   ENDDO
   USE
   CANCEL
   ******子程序SUB.PRG********
  【  】
   X-O
   DO CASE
   CASE A>=800.AND.A<=1300
   X=(A-800)*0.05
   CASE A>1300.AND.A<1800
   B=A-1300
   CASE A>=1800.AND.A<=2300
   B=A-1800
   X=B*O  15+500.0.1+500*0.05
   CASE A>=2300
   B=A-230
   X=B*O.2+500*0.15+500*0.  1+500*0.05
   ENDCASE
   RETURN

选项

答案WITH SUFCZ,TAX, SKIP,PARA A,X

解析
转载请注明原文地址:https://kaotiyun.com/show/Yg7Z777K
0

最新回复(0)