顺序查找 基本思想:是从第一个数据开始,按数据的顺序逐个将数据与给定的值进行比较.若某个数据和给定的值相等,则查找成功,找到所查数据的位置;反之,查找不成功。 VB 顺序法查出数列中所有相同的数。 Option Base 1 Private Sub Form_load() Dim a(10) As Integer ' 假设为 10 个元素的数组 a(1) = 2: a(2) = 3: a(3) = 2: a(4) = 4: a(5) = 5 a(6)=6: a(7)=7: a(8)=8: a(9)=9: a(10)=10 ' 假设相同的数是 2 For i = 1 To 10 If a(i) = 2 Then Print " 所有相同的数分别是: " print i; a(i) End If Next i End Sub 练习:顺序法查出位置 Private Sub Form_click() Dim a(10) As Integer, i As Integer, j As Integer Cls Randomize For j = 0 To 10 a(j) = Int(Rnd() * 11) Print a(j); Next j Print Key = 10 For i = 0 To 10 If Key = a(i) Then Print " 位于: " & i + 1 Next i End Sub