code224b.txt

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

Private Sub Bubble_Sort(ByRef SortArray() As String)
  Dim Temp As String
  Dim 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(4) As String, Fill_Loop As Integer

  Values(0) = "AAA"
  Values(1) = "CCC"
  Values(2) = "BBB"
  Values(3) = "EEE"
  Values(4) = "DDD"
  Bubble_Sort Values
  For I = 0 To UBound(Values)
    Debug.Print Values(I)
  Next I
End Sub