A.Dim a As Variant
a=Array(1,2,3,4,5)
B.Dim a(10) As Integer
C.Dim a%(10)
a(1)="ABCDE"
D.Dim a(3),b(3) As Integer
a(0)=0
a(1)=1
a(2)=2
b=a