下列有关缔约过失责任和违约责任区别的说法中，错误的是( )。

A．缔约过失赔偿的是信赖利益的损失；违约责任赔偿的是可期待利益的损失
B．缔约过失责任适用于合同未成立、合同未生效、合同无效等情况；违约责任适用于生效合同
C．缔约过失责任赔偿的损失要大于或等于违约责任赔偿的损失
D．缔约过失责任发生在合同成立之前；而违约责任产生于合同生效之后

在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下： Private Function fun(ByVal m As Integer) Ifm Mod2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Prints End Sub 程序运行后，单击命令按钮，则窗体上输出( )。

A．6

B．7

C．8

D．9