Example - Erase Statement

' This example demonstrates some of the features of arrays.
' The lower bound for an array is 0 unless it is specified
' or option base has set it as is done in this example.
 
Option Base 1
 
Sub Main
    ' Declare array variables...
    Dim Num(10) As Integer              ' Integer array.
    Dim StrVarArray(10) As String       ' Variable-string array.
    Dim StrFixArray(10) As String * 10  ' Fixed-string array.
    Dim VarArray(10) As Variant         ' Variant array.
    Dim DynamicArray() As Integer       ' Dynamic array.
    ReDim DynamicArray(10)              ' Allocate storage space.
    Erase Num                           ' Each element set to 0.
    Erase StrVarArray                   ' Each element set to zero-length string (""). 
    Erase StrFixArray                   ' Each element set to 0.
    Erase VarArray                      ' Each element set to Empty.
    Erase DynamicArray                  ' Free memory used by array.
End Sub