我需要排数字的冒泡排序

以下是冒泡排序的Python代码：

def bubble_sort(arr):
    n = len(arr)
    for i in range(n):
        # 最后 i 个元素已经排好序了，不需要再比较
        for j in range(n-i-1):
            # 如果前一个元素大于后一个元素，就交换它们的位置
            if arr[j] > arr[j+1]:
                arr[j], arr[j+1] = arr[j+1], arr[j]
    return arr

使用示例：

arr = [5, 2, 8, 4, 7]
sorted_arr = bubble_sort(arr)
print(sorted_arr)  # 输出 [2, 4, 5, 7, 8]

相关问题

c语言十个数字排大小冒泡排序

冒泡排序是一种简单的排序算法，它重复地遍历待排序的数列，一次比较两个元素，如果他们的顺序错误就把他们交换过来。对于十个数字的C语言版本，以下是基本的冒泡排序算法：

#include <stdio.h>

void bubble_sort(int arr[], int n) {
    for (int i = 0; i < n - 1; i++) { // 遍历所有数组元素
        for (int j = 0; j < n - 1 - i; j++) { // 内层循环从第一个到倒数第二个
            if (arr[j] > arr[j + 1]) { // 如果前一个大后一个小，则交换
                int temp = arr[j];
                arr[j] = arr[j + 1];
                arr[j + 1] = temp;
            }
        }
    }
}

int main() {
    int numbers[10] = {5, 3, 8, 6, 1, 9, 4, 7, 2, 0}; // 十个初始数字
    int size = sizeof(numbers) / sizeof(numbers[0]);

    printf("Before sorting:\n");
    for (int i = 0; i < size; i++) {
        printf("%d ", numbers[i]);
    }

    bubble_sort(numbers, size);

    printf("\nAfter sorting:\n");
    for (int i = 0; i < size; i++) {
        printf("%d ", numbers[i]);
    }

    return 0;
}

这个程序首先定义了一个包含十个数字的数组，然后调用`bubble_sort`函数对它们进行排序，并在排序前后分别打印数组内容。

ACCESS里面将text2的数字冒泡排序再将排好的数字输出到text4里

好的，以下是实现冒泡排序的代码片段：

Sub BubbleSort()
    Dim arr() As Integer
    Dim i As Integer, j As Integer, temp As Integer
    Dim lastRow As Long
    
    ' 获取text2中数字的总行数
    lastRow = Range("text2").Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 将数字存储到数组中
    ReDim arr(lastRow - 1)
    For i = 0 To lastRow - 1
        arr(i) = Range("text2").Cells(i + 1, 1).Value
    Next i
    
    ' 冒泡排序
    For i = LBound(arr) To UBound(arr) - 1
        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
    
    ' 将排好序的数字输出到text4
    Range("text4").ClearContents
    For i = 0 To lastRow - 1
        Range("text4").Cells(i + 1, 1).Value = arr(i)
    Next i
End Sub

你可以将以上代码复制到你的VBA编辑器中，然后在需要运行的地方调用BubbleSort()函数即可。注意，这里假设text2和text4是单列的，如果不是，需要修改代码中的Cells参数。