Public Sub Main()
  Dim Scores(4) As Integer
  Dim I As Integer

  Scores(0) = 80
  Scores(1) = 70
  Scores(2) = 90
  Scores(3) = 85
  Scores(4) = 80

  Debug.Print "Array Values"
  For I = 0 to 4
    Debug.Print "scores("; I; ") :"; Scores(I)
  Next
End Sub