13518219792
Erase 数组名
创新互联建站专注于企业网络营销推广、网站重做改版、安陆网站定制设计、自适应品牌网站建设、HTML5建站、成都商城网站开发、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为安陆等各大城市提供网站开发制作服务。
要注意，如果是固定数组，则所有元素的值被初始化（字符型为空字符串，数值型为0），数组的大小是不变的；如果是动态数组，则所有元素被删除，内存空间被回收，要重新ReDim才能使用。Private Sub Form_Click()Dim a(9) As Integer, i As IntegerRandomizePrint "清除前："For i = 0 To 9 a(i) = Rnd * 100 Print a(i);NextPrintErase aPrint "清除后"For i = 0 To 9 Print a(i);NextPrintEnd Sub
删除数组元素很简单,重新声明数组即可，代码如下
Redim [Preserve] 数组名 (下标上界)
这个也可以称为动态数组，这个东西是基础，非常重要。
这个功能就等于说，把原来的数组重新声明，Preserve是可选项，他的意思就代表是否保留数组内容,这是重点，如果你想删除数组中的元素，就不要写Preserve，这个方法的控制性也很好，可以重新声明数组的元素，各个方面都很有用，希望采纳！谢谢！
拿第一个与后面的比较，第二个与后面的比较。。。。。。
如果有一样的保留第一个数据坐标，把之后一样的都置一个数HFFFF。
最后新建一个数组，将不重复的坐标放进去，将值为HFFFF的坐标给排除在外。
