VC里面什么叫拉锯法排序?

【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