VBA Erase()函数

来源:www.accessoft.com 点击数:4871 　 | 收藏 | 复制

时　间:2019-08-03 20:39:32
作　者:杨雪 ID：42182 城市：南京
摘　要:Erase()函数用于重置固定大小数组的值并释放动态数组的内存。它的行为取决于数组的类型。
正　文:

语法
Erase ArrayName

固定数值数组，数组中的每个元素重置为零。
固定字符串数组，数组中的每个元素被重置为零长度 ""。
对象数组，数组中的每个元素被重置为特殊值 Nothing。

例子
添加一个模块，并添加以下代码

Private Sub Constant_demo_Click()
   Dim NumArray(3)
   NumArray(0) = "VBScript"
   NumArray(1) = 1.05
   NumArray(2) = 25
   NumArray(3) = #4/23/2013#

   Dim DynamicArray()
   ReDim DynamicArray(9)   ' Allocate storage space.

   Erase NumArray          ' Each element is reinitialized.
   Erase DynamicArray      ' Free memory used by array.

   ' All values would be erased.
   MsgBox ("The value at Zeroth index of NumArray is " & NumArray(0))
   MsgBox ("The value at First index of NumArray is " & NumArray(1))
   MsgBox ("The value at Second index of NumArray is " & NumArray(2))
   MsgBox ("The value at Third index of NumArray is " & NumArray(3))
End Sub

当执行上面的函数时，它会产生下面的输出。

The value at Zeroth index of NumArray is 
The value at First index of NumArray is 
The value at Second index of NumArray is 
The value at Third index of NumArray is

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】