a(i) = Int(90 * Rnd) + 10
Text1 = Text1 & a(i) & \ \
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer
Call sort(a, 10)
For i = 1 To 10
Text2 = Text2 & a(i) & \ \
Next i
End Sub 4 ．
顺序查找过程；书
P146 1
．顺序查找法（在一列数中查找某数 x
）
基本思想：一列数放在数组
a(1)---a(n)
中，待查找的数放在 x
中，把 x 与 a
数组中的元素从头到尾一一进行比较查找。用变量 p 表示 a
数组元素下标， p
初值为 1 ，使 x
