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
文章来源地址https://www.toymoban.com/news/detail-702116.html
文章来源：https://www.toymoban.com/news/detail-702116.html
到了这里，关于VB：顺序查找的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！
