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

作者：袖梨 2022-06-25

示例代码
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://i*of**ai.com/1305.html 感谢站长

相关文章

精彩推荐