单项选择题

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

A.To UBound(a)
&n
热门 试题