[VB]冒泡排序

 
Option Explicit
Private Sub Fir_Sort()
 
    Dim vArr As Variant, lngIndex As Long, lngMax As Long, lngTmp As Long
 
    vArr = Array(1999, 2000, 2008, 2009, 2007, 2006, 2003, 2004, 2005, 2001, 2002)
    lngMax = UBound(vArr)
 
    For lngIndex = 1 To lngMax
        For lngTmp = lngIndex - 1 To lngMax
            Fir_SwapB2S CLng(vArr(lngIndex - 1)), CLng(vArr(lngTmp))
        Next
    Next
 
    For lngIndex = 0 To lngMax
        Debug.Print vArr(lngIndex)
    Next
 
End Sub
 
Private Sub Fir_SwapB2S(lngA As Long, lngB As Long)
 
    If lngA < lngB Then
 
        Dim lngTmp As Long
 
        lngTmp = lngA: lngA = lngB: lngB = lngTmp
    End If
 
End Sub
 
Private Sub Fir_SwapS2B(lngA As Long, lngB As Long)
 
    If lngA > lngB Then
 
        Dim lngTmp As Long
 
        lngTmp = lngA: lngA = lngB: lngB = lngTmp
    End If
 
End Sub
 
Private Sub Form_Load()
    Call Fir_Sort
End Sub