某企业质量攻关小组的选题是降低产品表面的疵点个数，进行了以下活动：为掌握现状，绘制了

下列各项中，构成持有至到期投资初始入账成本的有（）。

A.投资时支付的不含应收利息的价款

B.投资时支付的手续费

C.投资时支付的税金

D.投资时支付款项中所含的已到期尚未发放的利息

阅读材料，回答下列问题。

材料一　底特律始建于1701年，1830年后工业稳步成长，1903年世界第一家汽车公司建立，此后迅速发展成为世界著名的“汽车城”。20世纪70年代受到石油危机重创，加上日本、德国等国汽车生产的冲击，开始走向衰落。20世纪90年代以后发展了赌场等第三产业，但未能扭转经济衰退趋势。2007年房地产市场崩溃，2013年2月19日底特律市宣布已经陷入财政危机。

材料二　图1是北美五大湖地区主要工业城市分布图，图2是底特律人口数量变化图。

图1

(1)18世纪五大湖区许多工业城市迅速发展的主要条件有________。

(2)底特律人口迅速增长时期的主导产业是________，该产业发展的主要原因有________、________。

(3)20世纪中期以来，底特律日趋衰落，直至陷入财政危机的具体原因有________。

(4)简述底特律的兴衰给我国城市经济活动的启示________。

用双法兰液面计测量容器液位，液面计的零点和量程均已校正好，后因维护需要，仪表的安装位置上移了一段距离，则液面计（）。

A、零点上升、量程不变

B、零点下降、量程不变

C、零点不变、量程增大

D、零点和量程都不变

下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。
Private Sub Moveright(x()As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
i=UBound(x)
j=x(i)
For k=i To (6) Step-1
(7)
Next k
x(LBound(x))=j
End Sub
Private Sub Command1_Click()
Dim a(10)As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i=0 To 10
　　a(i)=i
Next i
j=Val(Text1.Text)
k=0
Do
k=k+1
Call MoveRight(a)
Loop Until k=j
For i=0 To 10
　　Print a(i)；
Next i
End Sub

冬季喂牛时精料配合应该注意什么？