已知个人所得税计算应纳税所得额

Option Explicit Private Sub Command1_Click()Dim gerensds As Single ' 个人所得税Dim fd As Single Dim renshu As Long '人数gerensds = Text1.Text If gerensds <= 45 Then '所得税小于45元时的处理Text4.Text = 0.03Text2.Text = 1Text3.Text = gerensds / 0.03 End If If gerensds > 45 Then '所得税大于45元小于345元时的处理 If gerensds...
vb学习 | 2011-10-20 13:37 | 阅读 689 次 | 评论 0 条

我个人做的一个计算个人所得税应纳税所得额 的小工具

Option ExplicitPrivate Sub Command1_Click()Dim gerensds As Single ' 个人所得税Dim fd As SingleDim renshu As Long '人数gerensds = Text1.TextIf gerensds <= 45 Then '所得税小于45元时的处理Text4.Text = 0.03Text2.Text = 1Text3.Text = gerensds / 0.03 End IfIf gerensds > 45 ThenIf Text2.Text <> "" ThenGoTo veryendEnd...
vb学习 | 2011-10-09 12:40 | 阅读 758 次 | 评论 0 条

报错(实时错误)

我用的是VB6.0,我做的一个已知个人所得税然后计算应纳税所得额的公式。我在输入个人所得税金额,然后点击运算以后,报错 “溢出,实时错误",代码如下, 我不知道我错那了,请高手指点,先谢了。 Private Sub Command1_Click()Dim gerensds As Single ' 个人所得税Dim fd As Single Dim renshu As Integer '人数gerensds = Text1.Text If gerensds <= 45 Then '所得税小于45元时的处理Text4.Text = 0.03Text2.Text = 1Text3.Te...
vb学习 | 2011-10-08 17:04 | 阅读 629 次 | 评论 0 条