'Listing 26.8  26LIST08.TXT Deklaracja, inicjowanie i wypisywanie tablicy  2 x 4 x 2

Option Base 1

Private Sub Command1_Click()
Dim ArrayVar (2,4,2) As Integer

Counter = 0

For X = 1 To 2
  For Y = 1 To 4
    For Z = 1 To 2
      Counter = Counter + 1
      ArrayVar (X,Y,Z) = Counter
    Next Z
  Next Y
Next X

For X = 1 To 2
  For Y = 1 To 4
    For Z = 1 To 2
      Form1.Print "ArrayVar(" & X & ", " & Y & ", " & Z & ") = " & ArrayVar(X,Y,Z)
    Next Z 
  Next Y
Next X

End Sub
