'Listing 26.7  26LIST07.TXT Deklaracja, inicjowanie i wypisywanie tablicy  2 x 4

Option Base 1

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

For X = 1 To 2
  For Y = 1 To 4
    ArrayVar (X,Y) = X * Y
  Next Y
Next X

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

End Sub
