Problems - Correcting Code Errors
The following sample of code contains 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
' user enters number of hats and price per hat
' 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
' 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(C2)
End Sub

Question

Problems - Correcting Code Errors 
The following sample of code contains 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 
' user enters number of hats and price per hat 
' 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 
' 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(C2) 
End Sub

Quizplus · Accepted Answer

The Answer of Problems - Correcting Code Errors 
The following sample of code contains 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 
' user enters number of hats and price per hat 
' 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 
' 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(C2) 
End Sub