Problems: Correcting Logic and Code ErrorsThe following sample of code contains errors. Rewrite the incorrect statements to correct all errors. Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc ' Display the total number of books read. ? Dim intTotal As String ? For Each row As MyBooksDataSet.BooksRow In MyBooksDataSet.Books If row.IsRead = True Then intTotal += 1 Next row lblTotal.Text = intTotal.ToString End Sub

Question

What will be an ideal response?

Answer 1

Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click  ' Display the total number of books read.?   Dim intTotal As Integer?   For Each row As MyBooksDataSet.BooksRow In MyBooksDataSet.Books.Rows       If row.IsRead = True Then          intTotal += 1      End If   Next row   lblTotal.Text = intTotal.ToStringEnd Sub