VBA第6课作业题

兰色幻想 · 发表于 2012-2-15 22:59

本帖最后由兰色幻想于 2012-2-16 09:07 编辑

第一题：把下面的代码用With语句来表示。
Sub 单元格填充()
Sheets("sheet3").Range("A1") = 100
Sheets("sheet3").Range("A3") = 900
Sheets("sheet3").Range("A5") = 100
Sheets("sheet3").Range("A8") = 4500
End Sub

第二题：根据下面的条件，编写计算个人所得税的自定义函数GeShui

个人所得税的计算公式
=(工资-3500)*税率-速算扣除数

下面是个税税率表和速算扣除数表。其中全月应纳税所得额=工资-3500

全月应纳税所得额	税率	速算扣除数（元）
全月应纳税额不超过1500元	3%	0
全月应纳税额超过1500元至4500元	10%	105
全月应纳税额超过4500元至9000元	20%	555
全月应纳税额超过9000元至35000元	25%	1005
全月应纳税额超过35000元至55000元	30%	2755
全月应纳税额超过55000元至80000元	35%	5505
全月应纳税额超过80000元	45%	13505

例如：单元格A2中工资为6000。如果人工计算应该为
全月应纳税所得额=6000-3500=2500
从上表中2500对应的税率是10%，速算扣除数为105，所以工资6000的个税应该为
=（6000-3500）*10%-105
要求用自定函数完成以上功能
Function GeShui(gz) ‘注gz为引用单元格中的工资数额
你的答案
End Function

答题要求：到班里指定的作业上交贴处跟贴上交答案，不需要上传附件，直接粘贴两个题的代码即可。

EP学员 · 发表于 2012-2-15 23:22

来领作业来了，谢谢兰校长

兔猫兔123 · 发表于 2012-2-16 08:11

来领作业了。校长辛苦了！

jxncfxsf · 发表于 2012-2-16 09:05

来领作业了。校长辛苦了！

wangyi860214 · 发表于 2012-2-16 09:17

来领作业了。校长辛苦了！

yijundanny · 发表于 2012-2-16 09:18

校长速度好迅速！

jiahua1010 · 发表于 2012-2-16 10:01

进来查看作业题目了！

水上漂123 · 发表于 2012-2-16 10:06

校长辛苦了，来下载作业了

开心妙妙 · 发表于 2012-2-16 10:28

校长辛苦了，来领作业

兰江自由鱼 · 发表于 2012-2-16 10:37

我也来练习一下，谢谢啦。

		自动登录	找回密码
密码			注册

[练习题] VBA第6课作业题

评分