如何在vbscript中清除数组的内容？

我在函数库中声明了一个二维数组并将其与一个测试相关联。在测试的action1中，我尝试使用“erase”语句清除数组。
我的代码 -
在函数库中，

Dim strVerifyAry(25,6)

在行动1中，

erase strVerifyAry

错误信息

Run Error - Type mismatch: 'Erase'

如何清除这个数组的内容呢？

对我来说，在纯 VBScript 中工作，所以这很可能是 QTP 用于运行 VBScript 代码的任何引擎的问题。您应该能够模仿Erase对于像这样的二维数组：

Sub EraseArray(ByRef arr)
  For i = 0 To UBound(arr, 1)
    For j = 0 To UBound(arr, 2)
      If IsObject(arr(i, j)) Then
        Set arr(i, j) = Nothing
      Else
        arr(i, j) = Empty
      End If
    Next
  Next
End Sub

或者像这样，如果您不想将包含对象的字段设置为Nothing:

Sub EraseArray(ByRef arr)
  For i = 0 To UBound(arr, 1)
    For j = 0 To UBound(arr, 2)
      arr(i, j) = Empty
    Next
  Next
End Sub