vb实例教程（一个查找程序）

使用顺序查找法，在一组数中查找某给定的数x。VB程序 编写个实例代码~

Option Base 1

Private Function find(a() As Single, x As Single) As Integer
Dim n%, p%
n = UBound(a) '数组元素个数
For p = 1 To n '循环每个元素
If x = a(p) Then Exit For '如果找到相同 则退出循环 此时的P值既是结果
Next p
'如果没找到 P值将会是 N+1
If p > n Then p = 0
find = p
End Function

Private Sub Form_click()
Dim test(10) As Single
Dim x As Single
Randomize
For i = 1 To 10
test(i) = Int(Rnd * 10 + 1)
Next
x = 2 '
MsgBox find(test, x)
End Sub

Dim a As Integer
Dim b As Integer
Private Sub Command1_Click()
k = InStr(a, Text2, Text1)
If k > 0 Then
Command1.Caption = "查找下一个"
a = k + Len(Text1)
Text2.SetFocus
Text2.SelStart = k - 1
Text2.SelLength = Len(Text1)
b = b + 1
Else
MsgBox "查找完毕！共找到 " & b & " 个 " & Text1
Command1.Caption = "查找"
a = 1
End If
'Print k
End Sub

Private Sub Form_Load()
Label1 = "要查找的内容："
Command1.Caption = "查找"
a = 1
End Sub

Dim a As Integer
Dim b As Integer
Private Sub Command1_Click()
k = InStr(a, Text2, Text1)
If k > 0 Then
Command1.Caption = "查找下一个"
a = k + Len(Text1)
Text2.SetFocus
Text2.SelStart = k - 1
Text2.SelLength = Len(Text1)
b = b + 1
Else
MsgBox "查找完毕！共找到 " & b & " 个 " & Text1
Command1.Caption = "查找"
a = 1
End If
'Print k
End Sub

Private Sub Form_Load()
Label1 = "要查找的内容："
Command1.Caption = "查找"
a = 1
End Sub
这个是点你链接看到的，formload的时候，已经给a赋值=1，所以a不是0

---

vb实例教程（一个查找程序）视频