Problems: Correcting Logic and Code ErrorsThe following sample of code contains errors. Rewrite the incorrect statements to correct all errors.

Question

Private Sub btnDisplay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
' display the contents of the students.txt file
?
' declare variables
Dim inFile As IO.StreamWriter
Dim strStudent As String
?
' clear previous students from the Students box
lblStudents.Text = String.Empty
?
' determine whether the file exists
If IO.Exists("students.txt") = True Then
?
' open the file for input
inFile = IO.File.ReadText("students.txt")
?
' process loop instructions until end of file
Do Until inFile.Peek <> -1
' read a student line
strStudent = inFile.ReadLine
' display the student
lblStudents.Text = lblStudents.Text &
strStudent & ControlChars.NewLine
Loop
?
' close the file
Me.Close()
Else
MessageBox.Show("File not found","Students",
MessageBoxButtons.OK,
MessageBoxIcon.Information)
End If
End Sub

What will be an ideal response?

Answer 1

Private Sub btnDisplay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDisplay.Click' display the contents of the students.txt file' declare variablesDim inFile As IO.StreamReaderDim strStudent As String' clear previous students from the Students boxlblStudents.Text = String.Empty' determine whether the file existsIf IO.File.Exists("students.txt") = True Then' open the file for inputinFile = IO.File.OpenText("students.txt")' process loop instructions until end of fileDo Until inFile.Peek = -1' read a student linestrStudent = inFile.ReadLine' display the studentlblStudents.Text = lblStudents.Text &strStudent & ControlChars.NewLineLoop' close the fileinFile.Close()ElseMessageBox.Show("File not found","Students",MessageBoxButtons.OK,MessageBoxIcon.Information)End IfEnd Sub