二维数组冒泡排序代码

### 关于二维数组冒泡排序的实现 对于二维数组的冒泡排序，可以将其视为多个一维数组组成的集合。通常有两种方式对其进行排序： 1. **按照行优先的方式**：将每一行作为独立的一维数组进行排序。 2. **按照列优先的方式**：将每一列作为一个整体进行排序。 以下是基于这两种思路的具体实现方法以及代码示例。 #### 方法一：按照行优先的方式对二维数组进行冒泡排序 在这种情况下，我们将二维数组中的每一行单独提取出来并应用冒泡排序算法。最终的结果是一个逐行有序的二维数组。 ```vba Sub BubbleSortByRow() Dim arr(1 To 3, 1 To 4) As Integer ' 定义一个3x4的二维数组 Dim i%, j%, k% ' 初始化二维数组 arr(1, 1) = 9: arr(1, 2) = 5: arr(1, 3) = 8: arr(1, 4) = 6 arr(2, 1) = 7: arr(2, 2) = 3: arr(2, 3) = 1: arr(2, 4) = 4 arr(3, 1) = 2: arr(3, 2) = 6: arr(3, 3) = 5: arr(3, 4) = 8 ' 对每一行分别执行冒泡排序 For i = LBound(arr, 1) To UBound(arr, 1) For j = LBound(arr, 2) To UBound(arr, 2) - 1 For k = j + 1 To UBound(arr, 2) If arr(i, j) > arr(i, k) Then Dim temp As Integer temp = arr(i, j) arr(i, j) = arr(i, k) arr(i, k) = temp End If Next k Next j Next i ' 输出结果 Debug.Print "Sorted by Row:" For i = LBound(arr, 1) To UBound(arr, 1) For j = LBound(arr, 2) To UBound(arr, 2) Debug.Print arr(i, j); Next j Debug.Print "" Next i End Sub ``` 这种方法适用于需要保持原始数据结构不变的情况，并仅针对每行内部的数据进行排序[^3]。 --- #### 方法二：按照列优先的方式对二维数组进行冒泡排序 如果希望整个二维数组被视作单一序列来处理，则可以通过重新定义索引来完成这一目标。具体做法是先将所有元素线性化为单个列表形式后再调用标准冒泡排序逻辑。 ```vba Function FlattenAndBubbleSort(ByVal arrayToSort As Variant) As Variant Dim flatArray() As Double ReDim flatArray(LBound(arrayToSort, 1) * LBound(arrayToSort, 2) To _ UBound(arrayToSort, 1) * UBound(arrayToSort, 2)) Dim indexCount% : indexCount = LBound(flatArray) Dim rowIterator%, colIterator% ' 将多维数组展平成一维数组 For rowIterator = LBound(arrayToSort, 1) To UBound(arrayToSort, 1) For colIterator = LBound(arrayToSort, 2) To UBound(arrayToSort, 2) flatArray(indexCount) = arrayToSort(rowIterator, colIterator) indexCount = indexCount + 1 Next colIterator Next rowIterator ' 应用冒泡排序至平坦化的数组上 Dim outerLoop%, innerLoop% For outerLoop = LBound(flatArray) To UBound(flatArray) - 1 For innerLoop = outerLoop + 1 To UBound(flatArray) If flatArray(outerLoop) > flatArray(innerLoop) Then Dim swapValue As Double swapValue = flatArray(outerLoop) flatArray(outerLoop) = flatArray(innerLoop) flatArray(innerLoop) = swapValue End If Next innerLoop Next outerLoop FlattenAndBubbleSort = flatArray End Function ``` 此函数接受任意维度的输入参数 `arrayToSort` 并返回经过排序后的扁平版本[^4]。 --- ### 结论 以上两种方法展示了如何利用经典的冒泡排序技术解决不同场景下的需求。无论是逐行列还是全局范围内的调整都可以通过适当修改基础框架得以满足实际应用场景的要求。

冒泡排序是一种简单的排序算法，可以用于对二维数组进行排序，其基本思路是比较相邻的元素，如果前面的元素大于后面的元素，则交换这两个元素的位置。这样经过一轮比较后，最大的元素就会“浮”到数组的末尾，然后再对剩余的元素进行比较，直到所有元素都排好序为止。 以下是二维数组冒泡排序的基本思路： 1. 遍历二维数组，对每一行进行冒泡排序。 2. 对每一行进行冒泡排序时，比较相邻的元素，如果前面的元素大于后面的元素，则交换这两个元素的位置。 3. 经过一轮比较后，最大的元素就会“浮”到数组的末尾，然后再对剩余的元素进行比较，直到所有元素都排好序为止。 以下是二维数组冒泡排序的示例代码： ```python def bubble_sort(arr): n = len(arr) for i in range(n): for j in range(n - i - 1): if arr[j][0] > arr[j + 1][0]: arr[j], arr[j + 1] = arr[j + 1], arr[j] return arr ``` 在这个示例代码中，我们将二维数组按照第一列元素的大小进行排序。如果要按照其他列进行排序，只需将 `arr[j][0]` 改为相应列的索引即可。