个人纳税计算程序
来源:互联网 发布:matlab中迭代算法 编辑:程序博客网 时间:2024/05/01 06:59
Private Sub Command1_Click()
Dim s
s = Val(Trim(InputBox("个人收入:", "个人所得税计算", 2000)))
Print "个人收入为"; s; "元时,应缴纳的个人所得税为";
If s <= 1600
Then Print 0
Else s = s - 1600 '如果个人收入高于起征点,则计算个人应得额
Select Case s
Case Is <= 500: s = s * 0.05
Case Is <= 2000: s = s * 0.1 - 25
Case Is <= 5000: s = s * 0.15 - 125
Case Is <= 20000: s = s * 0.2 - 375
Case Is <= 40000: s = s * 0.25 - 1375
Case Is <= 60000: s = s * 0.3 - 3375
Case Is <= 80000: s = s * 0.35 - 6375
Case Is <= 100000: s = s * 0.4 - 10375
Case Is > 1000000: s = s * 0.45 - 15375
End Select
Print Format(s,"0.00") '如果个人收入是带小数的,则用Format控制格式
End If
End Sub
- 个人纳税计算程序
- 设计一个个人纳税计算程序
- 设计一个个人纳税计算程序
- 个人纳税计算系统论文
- 3.3课后第九题——设计一个个人纳税计算程序
- vb计算纳税金额
- vb计算纳税金额
- 计算纳税金额
- 纳税金额计算
- 计算纳税金额
- 计算纳税金额
- 根据收入计算纳税和税后所得
- C语言 收入与纳税计算
- java作业:计算员工的应纳税额
- RFID 纳税
- 纳税金额
- 纳税金额
- 纳税计算器
- 第十周任务二
- spring IOC 实例
- 是谁在影响我?
- 【备忘】 Red Hat 网络相关文件
- cache 什么时候开启的呢?
- 个人纳税计算程序
- hdu 2870 Largest Submatrix
- 资料:Android配置文件权限一览表
- 浏览器大解析:IE6 BUG大全
- android wakelock申请与释放
- poj 2828 Buy Tickets(线段树 区间和的应用)
- 基本排序算法总结
- Android 国内应用市场的汇总
- 插入排序