二维数组升序排列冒泡

### 使用冒泡排序对二维数组进行升序排列

对于二维数组，可以按照指定的行或列来进行冒泡排序。下面分别介绍两种情况下的具体实现方式。

#### 按照行进行升序排列

当需要根据每一行的第一个元素对整个二维数组进行升序排列时，可以通过调整冒泡排序逻辑中的比较对象来完成此操作。以下是具体的VBA代码示例：

Sub SortRowsAscending()
    Dim arr(1 To 3, 1 To 3) As Integer ' 假设有一个3x3的整数矩阵作为例子
    ' 初始化arr...
    
    Dim tempRow() As Integer
    
    For i = LBound(arr, 1) To UBound(arr, 1) - 1
        For j = i + 1 To UBound(arr, 1)
            If arr(i, 1) > arr(j, 1) Then
                ReDim Preserve tempRow(LBound(arr, 2) To UBound(arr, 2))
                
                ' 将第j行复制给临时变量tempRow
                For k = LBound(arr, 2) To UBound(arr, 2)
                    tempRow(k) = arr(j, k)
                Next
                
                ' 把较小的那一行移动到前面的位置上
                For k = LBound(arr, 2) To UBound(arr, 2)
                    arr(j, k) = arr(i, k)
                    arr(i, k) = tempRow(k)
                Next
            End If
        Next j
    Next i
End Sub

这段代码展示了如何通过交换两行的方式来达到按首元素升序的效果[^2]。

#### 按照列进行升序排列

如果目标是对某一特定列的数据实施升序处理，则可以在原有基础上稍作修改，使内部循环遍历的是该列而非单个数值。这里给出Python版本的例子以便更清晰地理解过程：

def sort_columns_ascending(matrix, col_index=0):
    n_rows = len(matrix)
    n_cols = len(matrix[0])
    
    for row in range(n_rows):
        for next_row in range(row + 1, n_rows):
            if matrix[row][col_index] > matrix[next_row][col_index]:
                # Swap entire rows based on the specified column value.
                matrix[row], matrix[next_row] = matrix[next_row], matrix[row]

# Example usage with a list of lists representing a 2D array:
matrix = [
    [9, 8, 7],
    [6, 5, 4],
    [3, 2, 1]
]
sort_columns_ascending(matrix, col_index=0)

print("Sorted by first column:")
for line in matrix:
    print(line)

上述Python脚本实现了基于指定索引位置上的列值执行升序排列的功能[^3]。