在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程：
Private Sub command1 Click()
Dim m As Integer， i As Integer， x(3)As Integer
For i=0 To 3：x(i)=i：Next i
For i = 1 To 2： Call sub1(x，i)：Next i
For i = 0 To 3： Print x(i)；： Next i
End Sub
Private Sub sub1(a()As Integer，k As Integer)
Dim i As Integer
Do
a(k)=a(k)+a(k+1)
j = j + 1
Loop While j ＜ 2
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是

A．0 3 7 5

B．0 1 2 3

C．3 2 4 5

D．0 5 8 3

缔约过失责任的特征不包括（）。

A.缔约过失责任是在订立合同的过程中产生的责任

B.缔约过失责任是一方当事人违反依据诚实信用原则所产生的义务的责任

C.缔约过失责任是对信赖利益造成损失的赔偿责任

D.缔约过失责任是一方当事人违反依据全面履行原则所产生的义务的责任