End Function

方法二：

Private Sub Command1_Click()

Dim b(), k%, n%

b = Array(1, 3, 5, 7, 9, 2, 4)

k = Val(InputBox(\

输入要查找的关键值 \

Call search(b(), k, n)

If n >= 0 Then MsgBox (\

找到的位置为

\

找不到 \

End Sub

Sub search(a(), ByVal key%, ByRef index%)

Dim i%

For i = LBound(a) To UBound(a)

If key = a(i) Then

index = i

Exit Sub

End If

Next i

index = -1

End Sub 5 ．