For I= 1 to n –1
For j= n to I +1 step -1
If d (j )< d(j – 1) then Temp = d (j ) D (j )=d (j-1) D (j –1 )= temp
125
End if Next j Next I
选择排序：
For i = 1 To n - 1 k = i
For j = i + 1 To n
If d(j) < d(k) Then k = j Next j
If i <> k Then
kt = d(i): d(i) = d(k): d(k) = kt End If
Next I
顺序查找：
I=1:k=0
Do while I<=n if d(I)=key then k=I exit do end if I =I+1 Loop
Text1.text=”第”＋str(k)+”个数的值等于”+key
对分查找：
Function search(key As Integer) As Integer i = 1: j = 128: nc = 0 Do While i <= j nc = nc + 1
m = Fix((i + j) / 2) If d(m) = key Then
search = m: Exit Function End If
If key < d(m) Then j = m - 1 Else
i = m + 1
126
End If Loop
search = 0 End Function
127
