Public Function GetTaxIncome As Single As Single Dim Begn As Single， Rate As Single， Tax1 As Single If Income lt= 1500 Then GetTax = 0 ElseIf Income l...