一聚教程网:一个值得你收藏的教程网站

最新下载

Vba清空数组元素及动态分配内存

时间:2014-05-02 00:00:00 编辑:简简单单 来源:转载

示例代码
1、针对于静态数组演示

 代码如下
Sub Test1()
Dim Arr(0 To 9) As Integer
For i = 0 To 9
   Arr(i) = i
Next
For i = 0 To 9
   Debug.Print Arr(i)
Next
'上面会在立即窗口输出0、1、2、3、4、5、6、7、8、9
Erase Arr
For i = 0 To 9
   Debug.Print Arr(i)
Next
'上面会在立即窗口输出0、0、0、0、0、0、0、0、0、0
End Sub

可以看到Erase语句会清理静态数组的值。


Vba清理数组

2、针对于动态数组演示

 代码如下
Sub Test2()
Dim Arr() As Integer
ReDim Arr(9)
Debug.Print UBound(Arr)
debug.Print Erase( Arr)
Debug.Print UBound(Arr) '此处将会报错
                        '因为动态分配的内存已经被释放掉
End Sub

可以看到Erase语句会释放我们对动态数组分配的内存。

原文来自:http://iofai.com/1305.html 感谢站长

文章评论

热门栏目