vba 中冒泡排序代码

以下是 VBA 中的冒泡排序代码示例：

Sub BubbleSort(arr() As Integer)
    Dim i As Integer, j As Integer
    Dim temp As Integer
    
    For i = LBound(arr) To UBound(arr)
        For j = i + 1 To UBound(arr)
            If arr(i) > arr(j) Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
        Next j
    Next i
End Sub

这个代码使用了两个循环语句，外层循环用于控制比较次数，内层循环用于比较相邻两个元素的大小，如果前一个大于后一个，则交换它们的位置。最终得到的数组就是排好序的。