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 ．
