code212a.txt

VB大全（精华版）源代码

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; ") = ";