' 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