VC里面什么叫拉锯法排序?
收起
知与谁同
2018-07-22 16:47:29
1340
0
1
条回答
写回答
取消
提交回答
-
【VC里面什么叫拉锯法排序?】所谓“拉锯式排序法”是这一遍把最小的元素从下到上送到最上的位置,下一遍则是从上到下把最大的元素送到最下的位置。以下是引用片段:
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer,i As Integer
For i = 1 To 10
a(i) = Int(Rnd * 10)+1
Text1 = Text1 & Str(a(i))
Next i
Call shaker_sort(a)
For i = 1 To 10
Text2 = Text2 & Str(a(i))
Next i
End Sub
Private Sub Shaker_sort(k() As Integer)
Dim i As Integer,c As Integer,d As Integer
Dim t As Integer
c = 1
d = (1)
Do
For (2) Step-1
If k(i=1)>k(i) Then
t = k(i-1):k(i-1) = k(i):k(i) = t
End If
Next i
(3)
For i = c+1 To d
If (4) Then
t = k(i-1):k(i-1) = k(i):k(i) = t
End If
Next i
d = d-1
Loop While (5)
End Sub
2019-07-17 22:50:45