单项选择题

设有如下程序:
Private Sub search(a( )As Variant,ByVal key As Variant,index%)
Dim I%
For I=LBound(

A.To UBound(a)