' Basic Programming
' Ch. 6 Demo Program #5
' Written by Mr. Minich
' purpose - passing an array and reusing a general procedure

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

   Call DisplayAverage(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

   Call DisplayAverage(intScoresWithCurve)
End Sub

Private Sub DisplayAverage(intArray() As Integer)
   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
   MsgBox sngAverage
End Sub