code199a.txt

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

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

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

  Debug.Print "Array Values"
  Debug.Print "scores(0) ", Scores(0)
  Debug.Print "scores(1) ", Scores(1)
  Debug.Print "scores(2) ", Scores(2)
  Debug.Print "scores(3) ", Scores(3)
  Debug.Print "scores(4) ", Scores(4)
End Sub