code219a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 27 行

Private Sub Bubble_Sort(ByRef SortArray() As Integer)
  Dim Temp As Integer, I As Integer, J As Integer

  For I = 0 To UBound(SortArray)
    For J = 0 To UBound(SortArray)
      If SortArray(I) < SortArray(J) Then
        Temp = SortArray(I)
        SortArray(I) = SortArray(J)
        SortArray(J) = Temp
      End If
    Next J
  Next I
End Sub

Public Sub Main()
  Dim Values(30) As Integer, Fill_Loop As Integer

  Randomize
  For I = 0 To UBound(Values)
    Values(I) = CInt(Rnd * 100)
  Next
   Bubble_Sort Values
  For I = 0 To UBound(Values)
   Debug.Print Values(I)
  Next I
End Sub