算法：九级累进制个人所得税算法.docVIP

算法：九级累进制个人所得税算法 自己收藏的 觉得很有用 故上传到百度 和大家一起分享！ 算法：九级累进制个人所得税的算法 任务描述 　　通过对九级累进制个人所得税这个算法的描述以及用VB实现的方法 了解多分支结构的算法特征 以及多分支结构的程序设计方法 任务分析 　　依法缴纳个人所得税是每一个公民应尽的义务 国家通过征收个人所得税也是调节贫富差距 实现社会财富再分配 取之民用之于民的重要手段 　　我国现阶段采取是九级累制进的个人所得税征收方法 即将个人月收入额减去八百元后 按所剩部分金额的多少将纳率的税率分成九级 并进行累进计算 如下表所示： 个人所得税应纳税额速查表 级数 全月应纳税所得额X（元） 税率 累交税额（元） 应纳税额计算公式 （元） 1 不超过500的部分 5% 0 X*5% 2 超过500至2000的部分 10% 0+500*5% 25+(X-500)*10% 3 超过2000至5000的部分 15% 25+1500*10% 175+(X-2000)*15% 4 超过5000至20000的部分 20% 175+3000*15% 625+(X-5000)*20% 5 超过20000至40000的部分 25% 625+15000*20% 3625+(X-20000)*25% 6 超过40000至60000的部分 30% 3625+20000*25% 8625+(X-40000)*30% 7 超过60000至80000的部分 35% 8625+20000*30% 14625+(X-60000)*35% 8 超过80000至100000的部分 40% 14625+20000*35% 21625+(X-80000)*40% 9 超过100000的部分 45% 21625+20000*40% 29625+(X-10000)*45% 注：本表所称全月应纳税所得额 是指每月收入额减除费用八百元后或减除附加费用后的余额 累交税额为本级之上级数应纳税额的累加 　　由上表可知 只要将我们每月的收入减去800元后 就能得到应纳税所得额 然后根据应纳税所得额所处的级数 按相应的应纳税额计算公式就能准确地计算出每个人一个月应该缴纳的个人所得税 　　在实际操作过程中 税务部门都是事先编制好计算机程序 只需将月收入输入计算机 计算机就会自动计算出应该缴纳的个人所得税 　　在九级累进制个人所得税这个算法中 核心的部分是 根据应纳税所得额 用判别语句确定所处的级数 级数确定后 运用计算公式计算应缴的个人所得税就方便多了 　　这种算法用流程图来表现 则在流程图中 必定有判别框 因为是九级累进制 所以需要九个类别框来分别确定九个级数 　　为了实现这个算法 则需要用VB来编制相应的程序 在VB程序中除了需要用到赋值语句、输入输出语句、其它计算语句外 还必须用到分支语句 　　 活动过程 1、 1、 算法流程图 　　下面给出用计算机程序实现九级累进制个人所得税的一种最容易理解的算法 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　2、分析流程图 　　通过流程图可以看出 在这个算法中 我们设置了一系列条件判断 这些条件都是不重复的 即满足了其中一个条件 其它条件就不可能再次满足 如果条件成立就重复一次已经做过的语句 直至条件不成立 只要有重复的过程 这种结构就是循环结构 　　3、算法的VB程序实现 　　算法中用到了一条输入语句、十个分支语句、一个输出语句 其中输入语句和输出语句和顺序结构的例题中的语句一致 　　（1）建立窗体和输入、输出、命令按钮控件 　　方法和前二节一样 　　（2）编写Command1触发的程序代码 　　在Private Sub command1_click()和End Sub之间输入以下的程序代码 　　Dim a As Single, x As Single, y As Single 　　a = Text1.Text 　　x = a - 800 　　If x = 0 Then 　　y = 0 　　End If 　　If x 0 And x = 500 Then 　　y = x * 0.05 　　End If 　　If x 500 And x = 2000 Then 　　y = 25 + (x - 500) * 0.1 　　End If 　　If x 2000 And x = 5000 Then 　　y = 175 + (x - 2000) * 0.15 　　End