DOC

Private Sub Command1

By Lee Patterson,2014-08-14 15:04
8 views 0
Private Sub Command1

    Private Sub Command1_Click() Dim X As Integer

    X = Val(InputBox("请输入您的个人所得", "输入对话框", 0)) Text1.Text = X & ""

    End Sub

    Private Sub Command2_Click() Dim X As Long

    X = Val(InputBox("请输入您的个人所得", "输入对话框", 0)) - 2000 Text3.Text = X + 2000 & ""

    Text1.Text = X + 2000 & ""

    If X <= 0 Then

     a = 0

     Text4.Text = a

    Else

     If X > 0 And X <= 500 Then

     a = 0.05 * X

     Text4.Text = a

     Else

     If X > 500 And X <= 2000 Then

     a = 0.1 * X - 25

     Else

     If X > 2000 And X <= 5000 Then

     a = 0.15 * X - 125

     Else

     If X > 5000 And X <= 20000 Then

     a = 0.2 * X - 375

     Else

     If X > 2000 And X <= 40000 Then

     a = 0.25 * X - 1375

     Else

     If X > 4000 And X <= 60000 Then

     a = 0.3 * X - 3375

     Else

     If X > 60000 And X <= 80000 Then

     a = 0.35 * X - 6375

     Else

     If X > 80000 And X <= 100000 Then

     a = 0.4 * X - 10375

     Else

     a = 0.45 * X - 15375

     Text4.Text = a

     End If

     Text4.Text = a

     End If

     Text4.Text = a

     End If

     Text4.Text = a

     End If

     Text4.Text = a

     End If

     Text4.Text = a

     End If

     Text4.Text = a

     End If

     Text4.Text = a

     End If

     Text4.Text = a

    End If

End Sub

    Private Sub Form_Load() Label1.Caption = "您输入的个人所得是" End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Report this document

For any questions or suggestions please email
cust-service@docsford.com