frmgrsd1.frm

个人所得税 学习（VB）

VERSION 5.00
Begin VB.Form frmgrsd1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "工资薪金所得"
   ClientHeight    =   1890
   ClientLeft      =   1335
   ClientTop       =   690
   ClientWidth     =   7740
   Icon            =   "frmgrsd1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1890
   ScaleWidth      =   7740
   Begin VB.CommandButton Command2 
      Caption         =   "退   出"
      Height          =   375
      Left            =   6600
      TabIndex        =   1
      Top             =   360
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "输  入"
      Height          =   375
      Left            =   5280
      TabIndex        =   0
      Top             =   360
      Width           =   975
   End
   Begin VB.Label Label4 
      Caption         =   "单击“输入”按钮，输入你的工资额。"
      BeginProperty Font 
         Name            =   "微软简隶书"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   480
      TabIndex        =   5
      Top             =   360
      Width           =   4215
   End
   Begin VB.Label Label3 
      Caption         =   "您本月应缴纳个人所得税为："
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   495
      Left            =   120
      TabIndex        =   4
      Top             =   1080
      Width           =   3015
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "元（人民币）"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   300
      Left            =   5880
      TabIndex        =   3
      Top             =   1080
      Width           =   1995
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3120
      TabIndex        =   2
      Top             =   960
      Width           =   2655
   End
End
Attribute VB_Name = "frmgrsd1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
    Dim yjj As String           '声明yjj为字符型变量
    Dim gongzi As Currency      '声明工资（gongzi）为变比整型变量
    Dim se As Currency          '声明税额（se）为变比整型变量
    Dim tmp As String           '声明 tmp 为临时变量

        yjj = "请输入你的每月工资额！"
        tmp = InputBox(yjj$, "提示信息！")
    
    If IsNumeric(tmp) Then
           MsgBox ("你输入的工资额是：" & tmp & " 元"), , "提示信息"
        GoTo ab
        Else
        
                MsgBox ("输入含有字母或其它字符，请重新输入！"), , "提示信息-退出！"
              
                
        Exit Sub
     
ab:
         If Len(tmp) <= 12 Then
            GoTo abc
            ElseIf Len(tmp) > 12 Then
                 MsgBox ("输入数字过大，请重新输入！"), , "提示信息"
             Exit Sub
            Else
                 MsgBox ("退出吗？"), , "提示信息"
         End If
    End If
abc:
    
        gongzi = CCur(tmp)
        se = gongzi - 800
        
  If se <= 0 Then
      Label1.Caption = "您不用纳税！"
  ElseIf se > 0 And se < 500 Then
     Label1.Caption = CStr(se * 0.05)
  ElseIf se < 2000 Then
    Label1.Caption = CStr(se * 0.1 + 25)
  ElseIf se < 5000 Then
    Label1.Caption = CStr(se * 0.15 + 125)
  ElseIf se < 20000 Then
    Label1.Caption = CStr(se * 0.2 + 375)
  ElseIf se < 40000 Then
    Label1.Caption = CStr(se * 0.25 + 1375)
  ElseIf se < 60000 Then
    Label1.Caption = CStr(se * 0.3 + 3375)
  ElseIf se < 80000 Then
    Label1.Caption = CStr(se * 0.35 + 6375)
  ElseIf se < 100000 Then
    Label1.Caption = CStr(se * 0.4 + 10375)
  ElseIf se >= 100000 Then
    Label1.Caption = CStr(se * 0.45 + 15375)
     
  End If
  

End Sub

Private Sub Command2_Click()
    
    Unload frmgrsd1      'frmgrsd1 即本窗体
    frmgrsd.Show         'frmgrsds 为本窗体的上一级窗体，即“个人所的税”窗体
    
    
End Sub