Option ? Explicit
?
Sub ?arrayInVBA()
???? Dim ?a1( 5 )? As ? String
???? Debug.Assert? LBound (a1)? = ? 0
???? Debug.Assert? UBound (a1)? = ? 5
???? Debug.Assert? TypeName (a1)? = ? " String() "

???? Dim ?a2( 2 ? To ? 5 )? As ? Integer
???? Debug.Assert? LBound (a2)? = ? 2
???? Debug.Assert? UBound (a2)? = ? 5
???? Debug.Assert? TypeName (a2)? = ? " Integer() "

???? Dim ?arrayFunction:?arrayFunction? = ?Array( " aa " ,? " bb " ,? " cc " ,? " dd " ,? " ee " ,? " ff " )
???? Debug.Assert? LBound (arrayFunction)? = ? 0
???? Debug.Assert? UBound (arrayFunction)? = ? 5
???? Debug.Assert? TypeName (arrayFunction)? = ? " Variant() "

???? ' initialize?by?Array()?function
???? Dim ?i? As ? Integer
???? For ?i? = ? 0 ? To ? 5
????????a1(i)? = ?arrayFunction(i)
???? Next ?i
????
???? For ?i? = ? 0 ? To ? 5
???????Debug.Print?a1(i)
???? Next ?i
End?Sub