计算税率

Private Sub Command1_Click()

   Dim w As Long

   Dim y As Long

   Dim f As Long

     w = Val(Text1.Text)

   y = w - 800

   Select Case y

   Case Is < 500

   f = y * 5 \ 100

    Case Is < 2000

   f = y * 10 \ 100

    Case Is < 5000

   f = y * 15 \ 100

    Case Is < 20000

   f = y * 20 \ 100

    Case Is < 40000

   f = y * 25 \ 100

   Case Is < 60000

   f = y * 30 \ 100

   Case Is < 80000

   f = y * 35 \ 100

    Case Is < 500

   f = y * 40 \ 100000

    Case Is > 100000

   f = y * 45 \ 100

   End Select

   Text2.Text = y

   Text3.Text = f

   

End Sub

 

刚开始学的时候感觉特别难，学姐学长指导着完成了。今天自己再做一次，呵呵，挺简单嘛