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