单项选择题

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

A.To Ubound(