设有如下程序
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】 。

善治风寒湿痹的中药是（）

A.独活、川乌、防己

B.防己、络石藤、蕲蛇

C.川乌、独活、威灵仙、松节

D.防己、络石藤、穿山龙

E.防己、秦艽、桑枝、豨莶草