vb编程软件_用VB编程来解决实际生活问题

今天，我们共同来学习用VB编程开发的实际应用软件--个人所得税快速计算程序。

个人所得税是调整征税机关与自然人之间在个人所得税的征纳与管理过程中所发生的社会关系的法律规范的总称。

目前最新的起征点为每月5000元。

个人所得税税率表

由上面的表格数据，接下来我们利用VB编程来实现本功能。

首先，根据税率对应的数据，我们可以知道不同的数值范围对应的计算税率不同，于是我们就应该想到用VB编程中的选择结构语句来实现本功能。

程序代码

---

Dim x As Double, y As Double, w As Double, s As Double, t As Double

---

Private Sub Command1_Click()

t = Val(Text1.Text) - Val(Text2.Text) '工资所得-五险一金

MsgBox (t)

Select Case t

    Case Is <= 0

        Text3.Text = 0

        Text4.Text = Val(Text1.Text)

    Case 0 To 3000

        Text3.Text = t * 0.03

        Text4.Text = Val(Text1.Text) - Val(Text3.Text)

    Case 3000 To 12000

         Text3.Text = t * 0.1 - 210

         Text4.Text = Val(Text1.Text) - Val(Text3.Text)

    Case 12000 To 25000

        Text3.Text = t * 0.2 - 1410

        Text4.Text = Val(Text1.Text) - Val(Text3.Text)

    Case 25000 To 35000

         Text3.Text = t * 0.25 - 2660

         Text4.Text = Val(Text1.Text) - Val(Text3.Text)

    Case 35000 To 55000

         Text3.Text = t * 0.3 - 4410

         Text4.Text = Val(Text1.Text) - Val(Text3.Text)

    Case 55000 To 80000

         Text3.Text = t * 0.35 - 7160

         Text4.Text = Val(Text1.Text) - Val(Text3.Text)

    Case Is > 80000

         Text3.Text = t * 0.45 - 15160

         Text4.Text = Val(Text1.Text) - Val(Text3.Text)

End Select

End Sub

Private Sub Command2_Click() '清除Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End Sub

Private Sub Form_Load() '窗体载入代码Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End Sub

Private Sub Text1_LostFocus() '验证数据

    If Not IsNumeric(Text1.Text) Then

        MsgBox ("请输入数字")

        Text1.Text = ""

        Text1.SetFocus

    End If

End Sub

Private Sub Text2_LostFocus() '验证数据

 If Not IsNumeric(Text2.Text) Then

        MsgBox ("请输入数字")

        Text2.Text = ""

        Text2.SetFocus

    End If

End Sub

---

实际运行图

有了这个程序，以后计算所得税就不用网上搜索或者计算器计算了，用VB直接点击后，数据结果立即出现，快快试试吧~

祝大家学习成功！

VB学习有问题，就找跟我学VB！

大家在学习过程中有学习问题，可以添加小编微信号：vbyjk521 ，小编会耐心提供在线解答。

VB全套视频讲解资料现在优惠发放中，要学好VB编程的朋友可以添加小编微信。