设有如下程序： 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 程序运行后，输出结果是 【6】 。

男性，50岁。6年来反复发作性上腹部疼痛，伴尿淀粉酶增高，多次诊为急性胰腺炎。近2个月腹痛呈持续性，餐后加重，厌油腻，大便中有未消化食物残渣。自发病以来体重明显下降。

为明确诊断应首选（）

A.血淀粉酶

B.乙肝两对半

C.血脂肪酶

D.肝功能

E.血糖