排序、查找代码汇总参考

1、Option ExplicitConst n = 10Dim a(1 To 10) Aseger, i Aseger, keyAseger生成 10 个 1-100 之间的随机整数Private SubList1.Clear For i = 1 To nd1_Click()a(i) =(Rnd() * 100 + 1)List1.AddItem a(i)Next i End SubRem 排序算法冒泡排序升序输出，从后往前比较，For 语句实现Private SubDim j Asd2_Click()egereger, t AsFor i = 1 To n - 1For j = n To i

2、+ 1 Step -1If a(j) = 1j = 1Do While j = iIf a(j) a(j) Then k = jNext jIf i k Thent = a(i): a(i) = a(k): a(k) = tEnd If Next iList4.ClearFor i = 1 To nList4.AddItem a(i) Next iEnd Sub选择排序升序输出，从前往后比较，Do 语句实现Private SubDim j As i = 1d5_Click()eger, k Aseger, t AsegerDo While i = n - 1k = i: j = i + 1 D

3、o While j = nIf a(k) a(j) Then k = j j = j + 1LoopIf i k Thent = a(i): a(i) = a(k): a(k) = t End Ifi = i + 1LoopList5.ClearFor i = 1 To nList5.AddItem a(i) Next iEnd SubRem 查找算法顺序查找，原始数据可以无序;For 语句实现Private SubDim k Asd7_Click()eger, nc Asegerkey = Val(Text1.Text)k = 0For i = 1 To nnc = nc + 1If a(i

4、) = key Then k = i: Exit For Next iIf k 0 ThenLabel3.Caption = 数据在 a( + Str(k) + )元素中ElseLabel3.Caption = 未找到数据 End IfLabel4.Caption = Str(nc)End Sub顺序查找，原始数据可以无序;Do 语句实现Private SubDim f As i = 0f = Falsed8_Click()变量 f 标志是否已经找到查找键Do While i n And f = Falsei = i + 1If a(i) = key Then f = TrueLoopIf f

5、 = True ThenLabel5.Caption = 数据在 a( + Str(i) + )元素中ElseLabel5.Caption = 未找到数据 End IfLabel6.Caption = Str(i)End Sub对分查找（升序条件下查找，Exit Do 语句退出循环）Private Subd9_Click()Dim j Aseger, m Aseger, nc Asi = 1: j = nDo While i = jm = (i + j) 2 nc = nc + 1If a(m) = key ThenegerLabel7.Caption = 在 a( + Str(m) + )中

6、 Exit DoElseIf key a(m) Then j = m - 1Elsei = m + 1 End IfLoopIf a(m) key Then Label7.Caption = 找不到！ Label8.Caption = Str(nc)End Sub对分查找（降序条件下查找，Exit Sub 语句退出循环）Private Subd10_Click()Dim j Aseger, nc Aseger, m Asi = 1: j = nDo While i a(m) Then j = m - 1Elsei = m + 1 End IfLoopLabel9.Caption = 找不到！ Label10.Caption = Str(nc)End Sub对分查找（降序条件下查找，用变量 f 标志是否已经找到查找键）Private SubDim f Asi = 1: j = nd11_Click(), j Aseger, m Aseger, nc Asegerf = False变量 f 标志是否已经找到查找键Do While i a(m) Then j = m - 1Elsei = m + 1 End IfLoopIf a(m) key Then Label11.Caption = 找不到！Label12.Caption = Str(n