' Basic Programming
' Ch. 6 Demo Program #6
' Written by Mr. Minich
' purpose - passing an array to a function & reusing a general function

Option Explicit

Private Sub cmdGrade_Click()
   Dim intScores(9) As Integer
   Dim J As Integer

   For J = 0 To 9
      intScores(J) = Val(InputBox("Enter a score:")
   Next J

   lblOutput.Caption = sngDisplayAverage(intScores)
End Sub

Private Sub cmdGradeWithCurve_Click()
   Dim intScoresWithCurve(9) As Integer
   Dim J As Integer

   For J = 0 To 9
      intScores(J) = Val(InputBox("Enter a score:") + 10
   Next J

   lblOutput.Caption = sngDisplayAverage(intScores)
End Sub

Private Function sngDisplayAverage(intArray() As Integer) As Single
   Dim J As Integer
   Dim intSum As Integer
   Dim sngAverage As Single

   For J = 0 To 9
      intSum = intSum + intArray(J)
   Next J

   sngAverage = intSum / J
   sngDisplayAverage = sngAverage
End Function