设有如下程序 Private Sub Search(a()As Variant， ByVal key As Variant， index%) Dim I% For I=LBound(a) To UBound(a) If key=a(I) ThenIndex=IExit Sub End If Next I Index=-1 End Sub Private Sub Form Load() Show Dim b()As Variant Dim n As Integer b=Array(1，3，5，7，9， 11， 13， 15) Call Search(b， 11， n) Print n End Sub 程序运行后，输出结果是______。

患者，男，45岁。右上后牙咬合痛2个多月。临床检查：右上第一磨牙近中边缘嵴可疑裂纹，探痛（-），叩痛（±），冷热刺激可引起疼痛，去除刺激1分钟左右疼痛可缓解。

该患者还应做下列哪项检查（）

A.根尖片

B.染色检查

C.咬合片

D.光导纤维

E.试验性备洞