Option Explicit Sub 工薪个税() Dim salary As Currency, tax As Currency salary = InputBox("请输入工资所得") Select Case True Case salary <= 36000 tax = salary * 0.03 Case 36000 < salary <= 144000 tax = salary * 0.1 - 2520 Case Else tax = 0 End Select MsgBox (tax) End Sub