Problems - Correcting Logic and Code Errors
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 a pay rate based on an employee's code
' Full Time employee pay rate is 11.50. Part Time
' employee pay rate for those working more than 30 hours
' is 10.50, otherwise it is 9.50
Dim strEmpCode As String
Dim decPayRate As Integer
strCode = txtEmpCode.Text.Snip
' validate the employee code
If strEmpCode = "FT##" Then
decPayRate = 11.50
ElseIf strEmpCode Like "PT30##" Then
decPayRate = 9.50
Else
decPayRate = 10.50
End If
' display pay rate
lblPayRate.Text = decPayRate.ToString("N2")
End Sub

Question

Problems - Correcting Logic and Code Errors 
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 a pay rate based on an employee's code 
' Full Time employee pay rate is 11.50. Part Time 
' employee pay rate for those working more than 30 hours 
' is 10.50, otherwise it is 9.50 
Dim strEmpCode As String 
Dim decPayRate As Integer 
strCode = txtEmpCode.Text.Snip 
' validate the employee code 
If strEmpCode = "FT##" Then 
decPayRate = 11.50 
ElseIf strEmpCode Like "PT30##" Then 
decPayRate = 9.50 
Else 
decPayRate = 10.50 
End If 
' display pay rate 
lblPayRate.Text = decPayRate.ToString("N2") 
End Sub

Quizplus · Accepted Answer

The Answer of Problems - Correcting Logic and Code Errors 
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 a pay rate based on an employee's code 
' Full Time employee pay rate is 11.50. Part Time 
' employee pay rate for those working more than 30 hours 
' is 10.50, otherwise it is 9.50 
Dim strEmpCode As String 
Dim decPayRate As Integer 
strCode = txtEmpCode.Text.Snip 
' validate the employee code 
If strEmpCode = "FT##" Then 
decPayRate = 11.50 
ElseIf strEmpCode Like "PT30##" Then 
decPayRate = 9.50 
Else 
decPayRate = 10.50 
End If 
' display pay rate 
lblPayRate.Text = decPayRate.ToString("N2") 
End Sub