VB：顺序查找

Private Sub Command1_Click()Dim i%, m%Dim x(1 To 10) As SingleFor i = 1 To 10x(i) = Val(InputBox("请输入"))Next im = seqSearch(x, 10)If (m = 1) ThenPrint "已找到"ElsePrint "未找到"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 Booleanp = FalseFor i = LBound(arr) To UBound(arr)If arr(i) = key Thenp = TrueExit ForEnd IfNext iIf p = True ThenseqSearch = 1ElseseqSearch = -1End If
End Function