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

VBA第6课作业题

本帖最后由 兰色幻想 于 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

我也来练习一下，谢谢啦。
页: [1] 2 3 4
查看完整版本: VBA第6课作业题