Erase语句：重新初始化固定数组的元素，并释放动态数组的存储空间。

用法：     

        Erase namearray           ' arrayname参数是要清除的数组名称

说明：
       判断是固定数组还是动态数组是很重要的，这是因为Erase要根据数组的类型进行不同的操作。Erase无需为固定大小的数组还原内存。Erase按照下表设置固定数组的元素：

数组的类型                                 Erase对固定数组的影响                         

固定数值数组                            将每一个元素设置为0                                          

固定字符串数组                        将每一个元素设置为零长度字符串                    

对象数组                                    将每一个元素设置为特殊值Nothing                  

Erase释放动态数组所使用的内存，在程序再次引用该动态数组之前，必须用Redim语句来重新定义该数组的维数。

下面举例说明如何使用Erase语句

Dim    NameArray(9)

Dim    DynamicArray()

Redim    DynamicArray( 9 )                   '分配存储空间

Erase   NameArray                 '每一个元素都被重新初始化

Erase    DynamicArray()               '释放数组占用的内存