导致PETCO₂异常升高的原因不包括（）

A.发热

B.高血压

C.气管导管误入食管

D.呼吸机活瓣失灵

E.钠石灰失效

在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) 　　If m Mod 2=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 　　Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是( )。

A．6

B．7

C．8

D．9