下面是一个体操评分程序。20位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)。
Private Sub Command1_Click()
　Max=0
　Min=10
For I=1 To 20
　N=Val(InputBox("请输入分数"))
If (12) Then Max=N
If N＜Min Then Min=N
S=S+N
Next I
S= (13)
P=S/18
Print"最高分"；Max"最低分"；Min
Print"最后得分："；P
End Sub

下列不出现颈静脉怒张的是

A．缩窄性心包炎

B．右心衰竭

C．心包积液

D．左心衰竭

E．上腔静脉阻塞综合征