code213a.txt

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

Public Sub Show_2d_Array(ByRef IncArr() As Integer)
  Dim I As Integer, J As Integer

  For I = 0 to Ubound(IncArr, 1) 
    For J = 0 to Ubound(IncArr, 2) 
      Debug.Print "Array ("; I ;", "; J; ") ="; IncArr(I, J)
    Next J
  Next I
End Sub

Public Sub Main ()
  Dim X As Integer, Y As Integer 
  Dim A(0, 9) As Integer
  Dim B(1, 9) As Integer
  Dim C(2, 9) As Integer

  For X = 0 to 2
    For Y = 0 to 9
      C(X, Y) = X * 10 + (Y + 1)
      If X < 1 Then A(X,Y) = C(X, Y)
      If X < 2 Then B(X,Y) = C(X, Y)
    Next Y
  Next X
  Debug.Print "Array A:"
  Show_2d_Array A()
  Debug.Print "Array B:"
  Show_2d_Array B()
  Debug.Print "Array C:"
  Show_2d_Array C()
End Sub