Purpose 
Clears and reinitializes the values of an array. 
All elements of a numeric array are set to zero. All elements of a string array are set to empty strings (''''). Arrays of date values are set to day zero. If the array is of a user-defined type, each member of the type is treated as its own separate variable and is erased in accordance with its type. 
Syntax 
Erase Array 
Erase Array1, Array2... 
Example 
Sub Main() 
        Dim MyArray(1 to 10) As Integer 
        Dim I As Integer 
        Print "Assigning and Printing My Array" 
                For I = 1 to 10 
                        MyArray(i)=i 
                        Print MyArray(i) 
        Next i 
        Erase MyArray           'All values from array MyArray are now zero 
        Print "MyArray has been erased and now contains:" 
                For i = 1 to 10         'Prints all zeros 
        Print MyArray(i) 
        Next i 
End Sub 
 |