以下定义数组或给数组元素赋值的语句中，正确的是（ ）。

A．Dim a As Variant　　a=Array(1,2,3,4,5)
B． Dim a(10) As Integera　　=Array(1,2,3,4,5)
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