code201b.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 16 行

Public Const ARRAY_SIZE = 5

Public Sub Main()
  Dim Scores(ARRAY_SIZE - 1) As Integer

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

  For I = 0 to ARRAY_SIZE-1
    Debug.Print "scores(";I; ") :"; Scores(I)
  Next
End Sub