Question

VFP程序设计问题

使用二路分支结构（IF…ENDIF）
编程计算托运货物的收费金额， 文件名为P4.PRG。其收费标准为：基本价格为5元，然后按照货物的高度来衡量，若高度超过140CM，并且重量超过30KG，费用为：基本价格+（重量—30）*0.5元；如果高度不超过140CM，费用为：基本价格+（重量-10）*0.5元。

使用多路分支结构（DO CASE…ENDCASE）
编程求个人所得税，文件名为P5.PRG。
个人所得税的缴纳标准为：
所得税率r 收入p的范围
0 p<1600
0.05 1600<=p<2000
0.08 2000<=p<5000
0.1 p>=5000
帮忙设计一下程序吧，两道题目~
谢谢~~~

Answer 1

1、P4.PRG
clear
input "请输入货物高度：" to g
input "请输入货物重量：" to z
if g>=140 and z>=30
jg=5+(z-30)*0.5
else
jg=5+(z-10)*0.5
endif
?"该货物托运费为："+alltrim(str(jg))+"元"

2、P5.PRG
clear
input "请输入收入：" to p
do case
case p<1600
s=0
case p>=1600 and p<2000
s=p*0.05
case p>=2000 and p<5000
s=p*0.08
case p>=5000
s=p*0.1
enddo
?"个人所得税：",s