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

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)

心力衰竭时，下列主要由肾脏引起的代偿反应是

A．红细胞增多
B．血流重新分布
C．紧张源性扩张
D．肌红蛋白增加
E．红细胞线粒体数量增多