[求助]针对某VB程序设计的一个问题

概述我初学VB编一个小程序，是关于工资的管理系统，只是雏形，在对工人标准工资作出修改后，个人所得税也要随之改变，问题是，我设定的工人的最高工资是20800，如果大于这个数程序就发生溢出了，为了避免这个问题，我做了如下的代码，可是，还是有问题，请看到的可以给我说一下，就在我现有的代码之上做相应的调整。 Private Sub txt_wage_Change()    

我初学VB编一个小程序，是关于工资的管理系统，只是雏形，在对工人标准工资作出修改后，个人所得税也要随之改变，问题是，我设定的工人的最高工资是20800，如果大于这个数程序就发生溢出了，为了避免这个问题，我做了如下的代码，可是，还是有问题，请看到的可以给我说一下，就在我现有的代码之上做相应的调整。

      PrivateSubtxt_wage_Change()         '这里使用的标准是:月标准工资不超过800元的，税为0，超过0-500税为5%，500-2000为10%，2000-5000为15%，5000-20000为20%，20000-40000为25%，40000-60000为30%，60000-80000为35%，8万－十万为40%，十万以上为45%     Dimm_intwageAsInteger    Diminttax1AsInteger,inttax2AsInteger,inttax3AsInteger    inttax1=500*0.05'将工资中800－1300之间的工资应交纳的个人所得税赋值给变量inttax1     inttax2=1500*0.1     inttax3=3000*0.15     m_intwage=Val(txt_wage.Text)     txt_intsure.Text=m_intwage*0.05'养老保计算         '为了防止员工工资超过了了20800后产生程序的溢出，加入以下代码来完善     Ifm_intwage>20800Then    MsgBox"数据超出了范围"    Else    Ifm_intwage>=0Andm_intwage<=20800Then    Ifm_intwage-800<=0Then    txt_tax.Text=0'个人所的税为0     ElseIfm_intwage-800<=500Then    txt_tax.Text=(m_intwage-800)*0.05     ElseIfm_intwage=800<=2000Then    txt_tax.Text=(m_intwage-1300)*0.1+inttax1     ElseIfm_intwage-800<=5000Then    txt_tax.Text=(m_intwage-2800)*0.15+inttax1+inttax2     Else    txt_tax.Text=(m_intwage-5800)*0.2+inttax1+inttax2+inttax3     EndIf    EndIf    EndIf        '-------------------------------------------------------------------------------------------------     '用selectcase语句也可以完成上面的 *** 作     'selectcasem_intwage     'caseis<=800     'txt_tax.text=0     'caseis<=1300     'txt_tax.text=(m_intwage-800)*0.05     'caseis<=2800     'txt_tax.text=(m_intwage-1300)*0.1+inttax1     'caseis<=5800     'txt_tax.text=(m_intwage-2800)*0.15+inttax1+inttax2     'caseis<=20800     'txt_tax.text=(m_intwage-5800)*0.2+inttax1+inttax2+inttax3     'endselect     EndSub  

以上就是我的代码，请帮我调整一下，谢谢了！

总结

以上是内存溢出为你收集整理的[求助]针对某VB程序设计的一个问题全部内容，希望文章能够帮你解决[求助]针对某VB程序设计的一个问题所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。