' Basic Programming
' Ch. 6 Demo Program #3
' Written by Mr. Minich
' purpose - to illustrate the use of arrays

Option Explicit

Dim mintScores(3) As Integer

Private Sub cmdClick_Click()
   Static intIndex As Integer

   mintScores(intIndex) = Val(txtInput.Text)
   intIndex = intIndex + 1
End Sub

Private Sub cmdAverage_Click()
   Dim J As Integer
   Dim intSum As Integer
   Dim sngAverage As Single

   For J = 0 To 2
      intSum = intSum + mintScores(J)
   Next J

   sngAverage = intSum / 3
   MsgBox sngAverage
End Sub