题目内容
下面是近一年来实发工资计算税金的程序,并将计算结果填入税金字段(假定职工最高实发工资为难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
查看答案
搜索结果不匹配?点我反馈
更多问题