冒泡排序是一种简单的排序算法，思想是从左到右依次比较相邻两个元素，如果顺序不对则交换两个元素的位置，直到所有元素都按照从小到大（或从大到小）的顺序排列。 下面是用易语言编写的冒泡排序算法： ``` // 冒泡排序函数 Procedure BubbleSort(var arr[] as int, n as int) for i = 0 to n-1 for j = 0 to n-1-i if arr[j] > arr[j+1] then Swap(arr[j], arr[j+1]) // 交换元素位置 end if next j next i EndP // 交换函数 Procedure Swap(var a as int, var b as int) var temp as int temp = a a = b b = temp EndP // 测试冒泡排序 var arr[] as int = [5, 2, 8, 3, 1] var n as int = ArrayCount(arr) BubbleSort(arr, n) // 打印排序结果 for i = 0 to n-1 Print(arr[i]) next i ``` 以上代码定义了两个函数，`BubbleSort`用于进行冒泡排序，`Swap`用于交换两个元素的位置。然后定义了一个测试数组`arr`，并调用`BubbleSort`函数对其进行排序。最后打印排序结果。 你可以将上述代码保存为一个易语言的源文件，通过易语言的编译和运行工具编译运行即可看到排序结果。 [2024-01-17 16:57:54 | AI写代码神器 | 763点数解答]