> ## 實例：遞歸冒泡排序  > #### 1>創建窗口 　組件>列表框1個,按鈕2個,圖片框1個 * * * * * > #### 2>創建子程序   * * * * * > #### 3>按鈕事件   * * * * * > #### 4>子_冒泡排序 （手動復制↓↓） ~~~ .版本 2 .子程序 子_遞歸冒泡排序 .參數 參文本數組, 文本型, 數組 .參數 參最后位置, 整數型, 可空 .局部變量 i, 整數型 .局部變量 臨時文本, 文本型 .如果真 (是否為空 (參最后位置)) 參最后位置 ＝ 取數組成員數 (參文本數組) .如果真結束 .如果真 (參最后位置 ＜ 2) 返回 () .如果真結束 .計次循環首 (參最后位置 － 1, i) .如果真 (參文本數組 [i] ＞ 參文本數組 [i ＋ 1]) 臨時文本 ＝ 參文本數組 [i] 參文本數組 [i] ＝ 參文本數組 [i ＋ 1] 參文本數組 [i ＋ 1] ＝ 參文本數組 [i] .如果真結束 .計次循環尾 () 子_遞歸冒泡排序 (參文本數組, 參最后位置 － 1) ~~~