易语言实现冒泡排序算法详解

以下是易语言实现冒泡排序算法的代码：

// 定义冒泡排序函数
Sub BubbleSort(arr[], n)
    Dim i, j, temp, flag
    flag = 1
    For i = 0 To n - 1
        flag = 0
        For j = 0 To n - i - 2
            If arr[j] > arr[j + 1] Then
                temp = arr[j]
                arr[j] = arr[j + 1]
                arr[j + 1] = temp
                flag = 1
            EndIf
        Next j
        If flag = 0 Then
            Break
        EndIf
    Next i
EndSub

// 测试冒泡排序
Dim arr[10] = {5, 2, 8, 6, 1, 9, 3, 7, 10, 4}
BubbleSort(arr, 10)
For i = 0 To 9
    Print(arr[i])
Next i

该代码中，'BubbleSort' 函数接受一个数组和数组长度，实现冒泡排序。在排序过程中，使用了一个 'flag' 标志位来判断当前轮次是否发生了交换，如果没有交换说明已经有序，可以提前结束排序。最后，测试代码中定义了一个数组，调用 'BubbleSort' 函数进行排序，并输出排序结果。