#VB常用算法（八）查找 搜索结果
1、算法说明1)顺序查找逐个元素找，如果有，则记录位置，然后跳出循环；否则，查找失败。代码如下：PrivateSubSearch(a(),ByValKey,IndexAsInteger)Dimi%Fori=LBound(a)To
