Mega Code Archive
Clear multi-dimensional array
<![CDATA[
Imports System
Imports Microsoft.VisualBasic
Module Example
Sub Main()
Dim numbers2(,) As Integer = {{ 1, 2, 3 }, { 4, 5, 6 }, { 7, 8, 9 }}
For i As Integer = 0 To 2
For j As Integer = 0 To 2
Console.WriteLine("{0} ", numbers2(i, j))
Next j
Next i
Array.Clear(numbers2, 2, 5)
For i As Integer = 0 To 2
For j As Integer = 0 To 2
Console.Write("{0} ", numbers2(i, j))
Next j
Next i
Dim numbers3(,,) As Integer = {{{ 1, 2 }, { 3, 4 }}, _
{{ 5, 6 }, { 7, 8 }}, _
{{ 9,10 }, {11,12 }}}
For i As Integer = 0 To 1
For j As Integer = 0 To 1
For k As Integer = 0 To 1
Console.Write("{0} ", numbers3(i, j, k))
Next k
Console.WriteLine()
Next j
Console.WriteLine()
Next i
Array.Clear(numbers3, 2, 5)
For i As Integer = 0 To 1
For j As Integer = 0 To 1
For k As Integer = 0 To 1
Console.Write("{0} ", numbers3(i, j, k))
Next k
Console.WriteLine()
Next j
Console.WriteLine()
Next i
End Sub
End Module
]]>