> ## 实例:递归冒泡排序
![](https://box.kancloud.cn/dada2e645074ac121e0952f4aca404c3_473x282.png)
> #### 1>创建窗口
组件>列表框1个,按钮2个,图片框1个
* * * * *
> #### 2>创建子程序
![](https://box.kancloud.cn/106c54c46bced5df72b6d682873e80d0_346x410.png)
![](https://box.kancloud.cn/fdd017a2cc18036d8b25b34925608210_356x239.png)
* * * * *
> #### 3>按钮事件
![](https://box.kancloud.cn/3ae8fa5d7d6ee3102e2d54025a506585_396x214.png)
![](https://box.kancloud.cn/9c9f5652717b7531eaff89f7dfa4b7d0_467x196.png)
* * * * *
> #### 4>子_冒泡排序 (手动复制↓↓)
~~~
.版本 2
.子程序 子_递归冒泡排序
.参数 参文本数组, 文本型, 数组
.参数 参最后位置, 整数型, 可空
.局部变量 i, 整数型
.局部变量 临时文本, 文本型
.如果真 (是否为空 (参最后位置))
参最后位置 = 取数组成员数 (参文本数组)
.如果真结束
.如果真 (参最后位置 < 2)
返回 ()
.如果真结束
.计次循环首 (参最后位置 - 1, i)
.如果真 (参文本数组 [i] > 参文本数组 [i + 1])
临时文本 = 参文本数组 [i]
参文本数组 [i] = 参文本数组 [i + 1]
参文本数组 [i + 1] = 参文本数组 [i]
.如果真结束
.计次循环尾 ()
子_递归冒泡排序 (参文本数组, 参最后位置 - 1)
~~~