vb个人所得税计算代码 Private Sub CommandButton1_Click() Dim sum As Currency Dim accumulationFund As Currency Dim insurance As Currency Dim incidentals As Currency Dim tax As Currency Dim salary As Currency Dim taxableIncome As Currency Dim cutoffPoint As Integer