楼上的大权威，个人收入在起征点1600元以下的怎么会有个人所得税？真是笑话！
把这段代码复制，在窗体里只需建一个Command1控件即可。
PrivateSubCommand1_Click()
Dims
s=Val(Trim(InputBox("个人收入：","个人所得税计算",2000)))
Print"个人收入为";s;"元时，应缴纳的个人所得税为";
Ifs<=1600Then
Print0
Else
s=s-1600'如果个人收入高于起征点，则计算个人应得额
SelectCases
CaseIs<=500:s=s*0.05
CaseIs<=2000:s=s*0.1-25
CaseIs<=5000:s=s*0.15-125
CaseIs<=20000:s=s*0.2-375
CaseIs<=40000:s=s*0.25-1375
CaseIs<=60000:s=s*0.3-3375
CaseIs<=80000:s=s*0.35-6375
CaseIs<=100000:s=s*0.4-10375
CaseIs>1000000:s=s*0.45-15375
EndSelect
PrintFormat(s,"0.00")'如果个人收入是带小数的，则用Format控制格式
EndIf
EndSub
