求大神帮忙编写一个vfp程序，不甚感激数据表gz.dbf中含有职工号、姓名、工资和税金四个字段，其中前三个字段职工号、姓名和工资均填入了相应的信息，用下面的公式计算每位职工的税金

Question

求大神帮忙编写一个vfp程序，不甚感激
数据表gz.dbf中含有职工号、姓名、工资和税金四个字段，其中前三个字段职工号、姓名和工资均填入了相应的信息，用下面的公式计算每位职工的税金，并将结果填入到gz.dbf的相应字段中。请根据上述要求，采用do while…enddo、编写程序，for…endfor和scan…endscan三种循环语句分别编写程序。

税金= 0 （ 工资≤800 ）
（工资-800）× 0.05 （800＜工资≤2000）
2000 ×0.05 +（工资-2000）× 0.1 （ 工资＞2000 ）
其中，gz.dbf已经建好了

Answer 1

采用do while…enddo编写程序
use gz
do while not eof()
do case
case 工资<=800
replace 税金 with 0
case 工资<=2000
replace 税金 with (工资-800)*0.05
otherwise
replace 税金 with 2000*0.05+(工资-2000)*0.1
endcase
skip
enddo
browse
use
return
采用for…endfor编写程序：
use gz
for n=1 to reccount()
go n
do case
case 工资<=800
replace 税金 with 0
case 工资<=2000
replace 税金 with (工资-800)*0.05
otherwise
replace 税金 with 2000*0.05+(工资-2000)*0.1
endcase
endfor
browse
use
return
采用scan…endscan三种循环语句分别编写程序
use gz
scan
do case
case 工资<=800
replace 税金 with 0
case 工资<=2000
replace 税金 with (工资-800)*0.05
otherwise
replace 税金 with 2000*0.05+(工资-2000)*0.1
endcase
endscan
browse
use
return