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