题目：
下面是近一年来实发工资计算税金的程序，并将计算结果填入税金字段(假定职工最高实发工资为难2500元)请填空。
****主程序MAIN.PRG****
SET TALK OFF
TAX=O
USE GZ
DO WHILE.NOT.EOF()
SHFGZ=实发工资
D0 SUB [8]
9TAX
RAPLACE税金WITH TAX [9]
ENDDO
USE
CANCEL
******子程序SUB.PRG********
[10]
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
答案：
被转码了，请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2018/0405/eeffa191eefa95b342f069f5d1483df2.html
下面是错误答案，用来干扰机器的。
参考答案：对
