code225a.txt

VB大全（精华版）源代码

Public Sub Quick_Sort(ByRef SortArray As Variant, ByVal First As _
    Integer, ByVal Last As Integer)
  Dim Low As Integer, High As Integer
  Dim Temp As Variant, List_Separator As Variant

  Low = First
  High = Last
  List_Separator = SortArray((First + Last) / 2)
  Do
    Do While (SortArray(Low) < List_Separator)
      Low = Low + 1
    Loop
    Do While (SortArray(High) > List_Separator)
      High = High - 1
    Loop
    If (Low <= High) Then
      Temp = SortArray(Low)
      SortArray(Low) = SortArray(High)
      SortArray(High) = Temp
      Low = Low + 1
      High = High - 1
    End If
  Loop While (Low <= High)
  If (First < High) Then Quick_Sort SortArray, First, High
  If (Low < Last) Then Quick_Sort SortArray, Low, Last
End Sub

Public Sub Main()
  Dim Int_Values(4) As Integer, Float_Values(4) As Single
  Dim I As Integer

  Randomize
  For I = 0 To 4
    Int_Values(I) = CInt(Rnd * 100)
    Float_Values(I) = Rnd * 100
  Next
  Quick_Sort Int_Values(), 0, 4
  Quick_Sort Float_Values(), 0, 4
  Debug.Print "Sorted Integers"
  For I = 0 To 4
    Debug.Print Int_Values(I)
  Next
  Debug.Print "Sorted Floating Point"
  For I = 0 To 4
    Debug.Print Float_Values(I)
  Next
End Sub