患者男性，34岁，双侧后牙接触时疼痛不适，一过性疼痛。查体：右侧上后牙见多个银汞充填体，下后牙见金属全冠修复

其原因最可能为（）

A.咬合高点

B.充填时未垫底

C.流电作用

D.牙髓炎

E.急性根尖周炎

设有以下函数过程
Private Function Fun(a()As Integer,b As String)As Integer
End Function
若已有变量声明：
Dim x(5)As Integer，n As Integer，ch As String
则下面正确的过程调用语句是( )。

A．x(0)=Fun(x,"ch")

B．n=Fun(n,ch)

C．Call Fun x,"ch"

D．n=Fun(x(5),c