Visual Basic The following sample of code contains errors. Rewrite the incorrect

Question

Visual Basic

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 type of vehicle for the code entered by user

Const strLENGTH_MSG As String = "The code must contain four characters."
Const strTYPE_MSG As String = "The last character in the code must be C, T, or V."
Dim strCode As String
Dim strLastChar As String

strCode = txtCode.Text.ToLower

' determine whether code contains exactly 4 characters
If strCode.Chars < 4 Then
lblType.Text = String.Empty
MessageBox.Show(strLENGTH_MSG, "Code",
MessageBoxButtons.OK,
MessageBoxIcon.Information)
Else
' determine whether the last character is valid
strLastChar = strCode.Substring(4)
Select Case strCode
Case "C"
lblType.Text = "Car"
Case "T"
lblType.Text = "Truck"
Case "V"
lblType.Text = "Van"
Case Else
lblType.Text = String.Empty
MessageBox.Show(strType_MSG, "Type",
MessageBoxButtons.OK,
MessageBoxIcon.Information)
End If
End If

End Sub

Explanation / Answer

Public Class Form1

Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
Const strLENGTH_MSG As String = "The code must contain four characters."
Const strTYPE_MSG As String = "The last character in the code must be C, T, or V."
Dim strCode As String
Dim strLastChar As String
strCode = txtCode.Text.ToLower
' determine whether code contains exactly 4 characters
If strCode.Length < 4 Then
lblType.Text = String.Empty
MessageBox.Show(strLENGTH_MSG, "Code", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
' determine whether the last character is valid
strLastChar = strCode.Substring(4)
Select strCode
Case "C"
lblType.Text = "Car"
Case "T"
lblType.Text = "Truck"
Case "V"
lblType.Text = "Van"
Case Else
lblType.Text = String.Empty
MessageBox.Show(strTYPE_MSG, "Type", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Select
End If
End Sub
End Class

Related Questions

Navigate

• Browse (All)
• Browse V
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.