In Visual Basic, modify this program by adding a tax box that calculates taxes on the commision. It should be a 10% tax on the commision. Add the tax box between commision and net pay.

Code:

Public Class Form1

Private Sub btnCalculate_Click() Handles btnCalculate.Click

Dim decSalesAmount As Decimal ' Monthly sales amount Dim decAdvancePayAmount As Decimal ' Advance pay taken Dim decCommissionRate As Decimal ' Commission rate Dim decCommissionAmount As Decimal ' Commission Dim decNetPay As Decimal ' Net pay

Try lblStatus.Text = String.Empty

' Get the amount of sales. decSalesAmount = CDec(txtSalesAmount.Text)

' Get the amount of advance pay. decAdvancePayAmount = CDec(txtAdvancePayAmount.Text)

' Determine the commission rate. Select Case decSalesAmount Case Is

Case 10000 To 14999 decCommissionRate = 0.1D

Case 15000 To 17999 decCommissionRate = 0.12D

Case 18000 To 21999 decCommissionRate = 0.14D

Case Is >= 22000 decCommissionRate = 0.15D End Select

' Calculate the commission and net pay amounts. decCommissionAmount = decSalesAmount * decCommissionRate decNetPay = decCommissionAmount - decAdvancePayAmount

' Display the rate, commission, and net pay. lblCommissionRate.Text = decCommissionRate.ToString("p") lblCommissionAmount.Text = decCommissionAmount.ToString("c") lblNetPay.Text = decNetPay.ToString("c")

Catch ' Display an error message alerting user to invalid input. lblStatus.Text = "Please enter numeric values." End Try End Sub

Private Sub btnClear_Click() Handles btnClear.Click

' Clear the text boxes and labels. txtAdvancePayAmount.Clear() txtSalesAmount.Clear() lblCommissionAmount.Text = String.Empty lblCommissionRate.Text = String.Empty lblNetPay.Text = String.Empty lblStatus.Text = String.Empty

' Set the focus to txtSalesAmount. txtSalesAmount.Focus() End Sub

Private Sub btnExit_Click() Handles btnExit.Click

' Close the form. Me.Close() End Sub End Class

Crazy Al's Commission Calculator Sales for the month: Advance pay awarded Commission Rate Commission: Nkt Pay: Calculat Clear Exit