form1.frm

个人所得税计算

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "个人所得税"
   ClientHeight    =   3090
   ClientLeft      =   5370
   ClientTop       =   4350
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   Begin VB.CommandButton Command1 
      Caption         =   "计算"
      Default         =   -1  'True
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   1733
      TabIndex        =   2
      Top             =   1680
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   2449
      TabIndex        =   0
      Top             =   705
      Width           =   1695
   End
   Begin VB.Label Label2 
      Caption         =   "设计者：陈爽"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1800
      TabIndex        =   3
      Top             =   2520
      Width           =   1335
   End
   Begin VB.Label Label1 
      Caption         =   "请输入月收入："
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   536
      TabIndex        =   1
      Top             =   720
      Width           =   2175
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim x, y As Single
x = Val(Text1.Text) - 1600
Select Case x
Case 0 To 500
y = x * 0.05
Case 500 To 2000
y = x * 0.1 - 25
Case 2000 To 5000
y = x * 0.15 - 125
Case 5000 To 20000
y = x * 0.2 - 375
Case 20000 To 40000
y = x * 0.25 - 1375
Case 40000 To 60000
y = x * 0.3 - 3375
Case 60000 To 80000
y = x * 0.35 - 6375
Case 80000 To 100000
y = x * 0.4 - 10375
Case Else
y = x * 0.45 - 15375
End Select
If x <= 0 Then
y = 0
End If
MsgBox "应缴个人所得税 " & y & " 元", 64, "提示"

Text1.Text = ""
Text1.SetFocus
End Sub