Example - Erase Statement

1. ' 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

   1. ' 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