Module Module1
Sub Main()
Dim arr3d(,,) As Integer = {{{1, 2}, {3, 4}},
{{5, 6}, {7, 8}},
{{9, 10}, {11, 12}}}
Array.Clear(arr3d, 3, 4)
For i As Integer = 0 To arr3d.GetLength(0) - 1
For j As Integer = 0 To arr3d.GetLength(1) - 1
For k As Integer = 0 To arr3d.GetLength(2) - 1
Console.Write("{0} ", arr3d(i, j, k))
Next
Console.WriteLine()
Next
Next
End Sub
End Module
' run:
'
' 1 2
' 3 0
' 0 0
' 0 8
' 9 10
' 11 12