VB：顺序查找

VB：顺序查找

Private Sub Command1_Click()
    Dim i%, m%
    Dim x(1 To 10) As Single
    For i = 1 To 10
        x(i) = Val(InputBox("请输入"))
    Next i
    m = seqSearch(x, 10)
    If (m = 1) Then
        Print "已找到"
    Else
        Print "未找到"
    End If
End Sub
Function seqSearch(arr!(), key) As Integer
'通过arr!()表示arr是一个数组，并且!()表示该数组是在子程序调用时传递给它的
'或者写成Function seqSearch(arr() As Single, key) As Integer
'函数参数的类型声明不支持声明不确定元素类型的数组，即不能直接使用 arr() 来表示数组参数
'需要指定数组中元素的具体类型，可以将函数 seqSearch 中的参数 arr() 的声明改为 arr() As Single，以匹配数组 x 的类型声明
    Dim i%, p As Boolean
    p = False
    For i = LBound(arr) To UBound(arr)
        If arr(i) = key Then
            p = True
            Exit For
        End If
    Next i
    If p = True Then
        seqSearch = 1
    Else
        seqSearch = -1
    End If
End Function
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32