设有如下程序
Private Sub Search(a( )As Variant，ByVa1 key As Variant，index%)
Dim I%
For I=LBound(a) To UBound(a)
If key=a(1) Then
index=I
Exit Sub
End If
Next I
index=I
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程序动行后,输出结果是 【15】 。

评估价值1000万元的国有土地使用权和评估价值10000万元的通用机器设备组合担保，最高可用担保额度为（）。

A.4700万元

B.9700万元

C.11700万元

D.8700万元