Imports System
Public Class Program
Public Shared Sub Main()
Dim arr As Integer() = New Integer() {3, 6, 2, 8, 1, 9, 3}
Console.WriteLine(String.Join(" ", arr))
Array.Clear(arr, 0, arr.Length)
Console.WriteLine(arr.Length)
Console.WriteLine(String.Join(" ", arr))
End Sub
End Class
' run:
'
' 3 6 2 8 1 9 3
' 7
' 0 0 0 0 0 0 0
'