用VBA写一个排序代码

好的，以下是一个基于VBA的冒泡排序算法示例：

Sub BubbleSort()
    Dim arr() As Integer ' 声明一个整型数组
    Dim i As Integer, j As Integer, temp As Integer ' 声明计数器和临时变量
    Dim len As Integer ' 声明数组长度
    
    len = 10 ' 数组长度
    
    ' 初始化数组
    ReDim arr(len - 1)
    For i = 0 To len - 1
        arr(i) = Int(Rnd() * 100)
    Next i
    
    ' 输出原始数组
    Debug.Print "Original array: " & Join(arr, ", ")
    
    ' 冒泡排序
    For i = 0 To len - 2
        For j = 0 To len - 2 - i
            If arr(j) > arr(j + 1) Then
                temp = arr(j)
                arr(j) = arr(j + 1)
                arr(j + 1) = temp
            End If
        Next j
    Next i
    
    ' 输出排序后的数组
    Debug.Print "Sorted array: " & Join(arr, ", ")
End Sub

上述代码使用了冒泡排序算法对一个长度为10的随机整数数组进行排序。我们可以通过修改数组长度和随机数生成方式来适应不同的排序需求。