code211a.txt

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

Public Sub Main()
  Dim Row As Integer, Column As Integer, Count1 As Integer, Count2 As Integer
  Dim Table(2,4) As Single

  For Count1 = 0 to 2
    For Count2 = 0 to 4
      Table(Count1, Count2) = Count1 * 5+ (Count2 + 1)
    Next Count2
  Next Count1
  For Row = 0 to 2
    For Column = 0 to 4
      Debug.Print "Table("; Row; ")("; Column; ") = "; _ Table(Row,Column)
    Next Column
  Next Row
End Sub