清除动态数组的最快方法是使用ReDim，清除静态数组则是使用删除。但是如果只想清除数组的一部分内容，怎么办呢？看上去似乎只能使用For-Next循环了。

　　如果处理的是数字数组，有一个较快的方法。它基于ZeroMemory API函数，正如函数名所示，它能将一块内存区域填充为0。看看怎么应用这个函数来清除一个Long类型数组的一部分内容：

　　Private Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (dest As Any, ByVal Bytes As Long)

　　'定义数组，填充数据

　　Dim a(1000) As Long

　　For i = 1 To UBound(a)

　　a(i) = i

　　Next

　　'从a(200)开始清除100个元素内容

　　ZeroMemory a(200), 100 * Len(a(1))

　　请注意上述代码中清除长度的表示方法，使用Len()函数保证了当数组类型改变时代码仍然有效。