Two-Dimensional Arrays

Dim a (3,3)

Table 4-2. Two-dimensional array
0,0
0,1
0,2
0,3
1,0
1,1
1,2
1,3
2,0
2,1
2,2
2,3
3,0
3,1
3,2
3,3

Option Explicit
Dim i
Dim j
Dim numLoop
Dim a (3,3)
numLoop = 0
For i = 0 To 3
  For j = 0 To 3
    numLoop = numLoop+1
    WScript.Echo "i = " & i & " j = " & j
    a(i, j) = "loop " & numLoop
    WScript.Echo "Value stored In a(i,j) is: " & a(i,j)
  Next
Next

execute result

C:\>cscript. example.vbs
Microsoft (R) Windows Script. Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

i = 0 j = 0
Value stored In a(i,j) is: loop 1
i = 0 j = 1
Value stored In a(i,j) is: loop 2
i = 0 j = 2
Value stored In a(i,j) is: loop 3
i = 0 j = 3
Value stored In a(i,j) is: loop 4
i = 1 j = 0
Value stored In a(i,j) is: loop 5
i = 1 j = 1
Value stored In a(i,j) is: loop 6
i = 1 j = 2
Value stored In a(i,j) is: loop 7
i = 1 j = 3
Value stored In a(i,j) is: loop 8
i = 2 j = 0
Value stored In a(i,j) is: loop 9
i = 2 j = 1
Value stored In a(i,j) is: loop 10
i = 2 j = 2
Value stored In a(i,j) is: loop 11
i = 2 j = 3
Value stored In a(i,j) is: loop 12
i = 3 j = 0
Value stored In a(i,j) is: loop 13
i = 3 j = 1
Value stored In a(i,j) is: loop 14
i = 3 j = 2
Value stored In a(i,j) is: loop 15
i = 3 j = 3
Value stored In a(i,j) Is: Loop 16