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

Question

Private Sub btnGetHighest_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGetHighest.Click
' displays the highest prize amount and the
' number of people who won that amount
?
Dim intPrizes(10) As Integer = {50, 25, 100, 25, 100,
25, 75, 50, 40, 60}
?
Dim intHighSub As Integer = intPrizes.GetHighest()
Dim intHighPrize As Integer = intPrizes(0)
Dim intWinners As Integer = 1
?
For intX As Integer = 1 To intHighSub
If intPrizes(intX) = intHighPrize Then
intWinners *= 1
Else
If intPrizes(intX) < intHighPrize Then
intHighPrize = intPrizes(intX)
intWinners = 1
End If
End If
Next intX
?
lblHighest.Text = intHighPrize.ToString("C0")
lblWinners.Text = intWinners.ToString
End Sub

What will be an ideal response?

Answer 1

Private Sub btnGetHighest_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGetHighest.Click' displays the highest prize amount and the' number of people who won that amountDim intPrizes() As Integer = {50, 25, 100, 25, 100, 25,75, 50, 40, 60}Dim intHighSub As Integer = intPrizes.GetUpperBound(0)Dim intHighPrize As Integer = intPrizes(0)Dim intWinners As Integer = 1For intX As Integer = 1 To intHighSubIf intPrizes(intX) = intHighPrize ThenintWinners += 1ElseIf intPrizes(intX) > intHighPrize ThenintHighPrize = intPrizes(intX)intWinners = 1End IfEnd IfNext intXlblHighest.Text = intHighPrize.ToString("C0")lblWinners.Text = intWinners.ToStringEnd Sub