下列程序段错误的是( )。

A．Dim a As Integer
a=array(1，2,3,4)
B．Dim a()，b()
a=array(1，2,3,4)：b=a
C．Dim a As Variant
a=array(1，"asd",true)
D．Dim a()As Variant
a=array(1,2,3,4)