code212a.txt

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

Public Sub Main()
  Dim Row As Integer, Column As Integer, TCount As Integer
  Dim Table(1, 2, 4) As Single

  For Row = 0 to 1
    For Column = 0 to 2
      For TCount = 0 to 4
        Table(Row, Column, TCount) = Row * 15+ (Column * 5) + _
          (Tcount + 1)
      Next Tcount
    Next Column
  Next Row
  For Row = 0 to 1
    For Column = 0 to 2
      Debug.Print "Table("; Row; ")("; Column; ") = ";