Problems: Correcting Code Errors

The following samples of code contain errors. Rewrite the incorrect statements to correct all errors.

Private Sub btnCalc$\_$Click$($ByVal sender As Object, ByVal e As System. EventArgs$)$ Handles btnCalc.Click

calculates and displays the total amount owed for purchasing hats

$1$ user enters number of hats and price per hat

$\text{'}$ all hats are on sale for $25\%$ off the price

Dim dblNumHats As Integer

Dim decHatPrice As Decimal

Dim decDiscount As Double

Dim decTotal As Decimal

$\text{'}$ assign number of hats and price to variables

Integer. TryPurse $($txtNumHats$.$Text, intNumHats$)$

Decimal. TryParse$($txtHatPrice$,$ decHatPrice$)$

calculate and display the total amount owed

decDiscount $=$ decHatPrice $**$ dblRATE

decTotal $=($intNumHats $+$ decHatPrice$)-$ decDiscount

Total.Text $=$ decTotal.ToString $($C$2)$

End Sub