我国规定个人工资和其他收入每月超过3500元者，应缴纳个人所得税。 收入减去3500元为全月应纳税所得额。

我国规定个人工资和其他收入每月超过3500元者，应缴纳个人所得税。
收入减去3500元为全月应纳税所得额。个人所得税按如下计算。
全月应纳税所得额 税率%
不超过1500的 3%
超过1500至4500 10%
超过4500至9000 20%
超过9000至35000 25%
超过35000至55000 30%
超过55000至80000 35%
超过80000 45%
如果某人的工资收入为5000元,他应纳个人所得税总计：(5000—3500)×3%=45(元)。
例如某人月工资和其他收入为8500元，全月应缴纳税所得额为8500-3500=5000元。
不超过1500的部分应纳税为1500*3%=45元，
超过1500至4500的部分为3500元，按10%，则应纳税10%*3500=350元。
总计应该交税45+350=395元。
要求编制程序，输入某人月总收入，计算并输出应缴纳的个人所得税。

请转发到计算机编程模块吧，还有就是你要注明要用那个计算机语言来编，毕竟计算机语言太多了
来个VB6的，VBA也适用
Sub tax()
Dim i As Double
Dim tax As Double

i = InputBox("请输入当月收入")
i = i - 3500
If i < 1500 Then
tax = i * 0.03
ElseIf i < 6000 Then
tax = i * 0.1 - 105
ElseIf i < 15000 Then
tax = i * 0.2 - 555
Else: tax = i * 0.25 - 1005 '这里用到了速算扣除数，且没有朝大的数字上写了，要写请自行添加上吧
End If
MsgBox ("应纳个税为：" & tax)

End Sub

根据税法的有关规定，题中： 1、取得单位的银行利息3000元 应纳税所得额 = 3 000元 应交个人所得税 = 3 000 * 20% = 600元 （2006年度，适用税率20%） 2、取得国库券利息收入1500元 国库券利息收入，免税 应纳税所得额 = 0 3、取得全年工资、薪金收入60000元（1-6月按800元扣除，7-12按1600元扣除） 月应税收入 = 60 000 / 12 = 5 000元 1-6月份每月应纳税所得额 = 5 000 – 800 = 4 200元 1-6月份每月应交个人所得税 = 4 200 * 15% - 125 = 505元 7-12月份每月应纳税所得额 = 5 000 – 1 600 = 3 400元 7-12月份每月应交个人所得税 = 3 400 * 15% - 125 = 385元 全年工资薪金所得应交个人所得税 = 505 * 6 + 385 * 6 = 5 340元 4、4月份因意外事故取得保险赔偿25000元 保险赔款，免税 应纳税所得额 = 0 5、工作之余发表文章一次性取得稿酬收入3000元 应纳税所得额 = 3 000 – 800 = 2 200 应交个人所得税 = 2 200 * 20% * （1 – 30%） = 308元 6、12月份彩票中奖20000元，同时拿出2000元通过民政部门捐赠给贫困地区。 准予扣除的公益救济性捐赠限额 = 20 000 * 30% = 6 000元 实际捐赠额2 000元 〈 捐赠限额6 000元，准予全额扣除 应纳税所得额 = 20 000 – 2 000 = 18 000元 应交个人所得税 = 18 000 * 20% = 3 600元 合计应交个人所得税 = 600 + 5 340 + 308 + 3 600 = 9 848元