下列程序段错误的是（）
A.DimaAsInteger
a=array(1,2,3,4)
B.Dima(),b()
a=array(1,2,3,4):b=a
C.DimaAsVariant
a=array(1,"asd",true)
D.Dima()AsVariant
a=array(1,2,3,4)