The Following Sample of Code Contains Errors

question 42

Essay

The following sample of code contains errors. Rewrite the incorrect statements to correct all errors.
-Private Sub btnDisplay_Click(ByVal sender As Object,ByVal e As System.EventArgs)Handles btnDisplay.Click
' displays the pay rate associated with a pay code
Dim strCodes()As String = {PT1,PT2,FT1,FT2,FT3}
Dim dblRates()As Integer = {10.5,12,13.5,14}
Dim strSearchForCode As String
Dim intSub As Integer
' assign the code to a variable
txtCode.Text = strSearchForCode
' search the strCodes array for the pay code
' continue searching until the end of the array
' or the pay code is found
Do Until intSub > strCodes.Length OrElse
strSearchForCode = strCodes(intSub)
intSub = intSub + 1
Loop
' determine whether the pay code was found
If intSub < strCodes.Length Then
lblRate.Text = dblRates(1).ToString("C0")
Else
MessageBox.Show("Invalid Pay Code",
"Employee Pay Application",
MessageBoxButtons.OK,
MessageBoxIcon.Information)
End If
txtCode.Focus()
End Sub

---

Definitions:

Amortization Expense

The portion of the cost of an intangible asset that is allocated as an expense in a company's income statement over a set period.

Capital Assets

Long-term assets acquired or owned by a business or individual for the purpose of generating income or investment.

Exchange Rates

The rate at which one currency can be exchanged for another, often influenced by market conditions and economic indicators.

Exchange Gain/Loss

A financial result that occurs when the value of foreign currency transactions changes due to fluctuations in exchange rates between the initial transaction and settlement dates.