Fix the code: Private Sub btnSoftball_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles btns of tball.Click Dim decHits As Decimal= 210 Dim decTimesAtBat As Decimal = 428 Dim...

Extracted text: Fix the code: Private Sub btnSoftball_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles btns of tball.Click Dim decHits As Decimal= 210 Dim decTimesAtBat As Decimal = 428 Dim decBattingAverage As Decimal decBatting Average = Batting Average( decHits, decTimesAtBat) IblHits.Text = "The batting average is" & decBatting Average.ToString() End Sub Private Function Batting Average( ByVal decHitsCount As Decimal decNumberAtBat) Dim decAverageAtBat As Decimal decAverageAtBat = decHitsCount / decNumberAtBat End Function