Determine the output displayed when the button is clicked on.

Private Sub btnCalculate_Click() Handles btnCalculate.Click

Dim wholesaleCost, salePrice, percentCommission,

salesTax, profit As Decimal

InputData(wholesaleCost, salePrice, percentCommission)

CalculateSomeValues(wholesaleCost, salePrice, percentCommission, salesTax,profit)

DisplayData(salesTax, profit)

End Sub

Sub InputData(ByRefWholesaleCost As Decimal, ByRef salePrice As Decimal, ByRef percentCommission As Decimal)

wholesaleCost=100

salePrice=300

percentCommission=5

End Sub

Sub CalculateSomeValues(wholesaleCost As Decimal, salePrice As Decimal, percentCommission As Decimal, ByRef profit As Decimal)

salesTax=0.06D*salePrice

profit=salePrice-wholesaleCost-salePrice*(percentCommission/100)

End Sub

Sub DisplayData(salesTax As Decimal, profit As Decimal)

lstOutput.Items.Add(sales tax: &salesTax.ToString(C))

lstOutput.Items.Add(profit: & profit.ToString(C))

End Sub