Visual Basic快速入门

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