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

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",tru
D．Dim a()As Variant a=array(1,2,3,4)