要求代碼輸入後可以直接在VB環境中運行。
向表單添加三個標簽、壹個按鈕和壹個框架，並向框架添加壹個文本框。
私有子窗體_ KeyUp（key code為整數，Shift為整數）
如果鍵碼& lt48或KeyCode & gt57和KeyCode & lt96或KeyCode & gt150和KeyCode & lt& gt109和_
KeyCode & lt& gt189然後發短信1 =““
末端接頭
私有子窗體_Load（）
label 1（0）。可見=假
label 1（0）。對齊= 2
label 1（0）。Top = 100
label 1（0）。Left = 100
label 1（0）。高度= 300
label 1（0）。寬度= 800
label 1（0）。back color = QB color（15）
label 1（0）。FontSize = 12
Caption =“演示“冒泡法”從小到大的排序過程”
Top = 0
左= 200
width = 2 * label 1（0）。左+12 *（label 1（0）。寬度+ 100）
高度= 7000
標簽2。Top = 5700
標簽2。左= 500
標簽2。FontSize = 12
標簽2。寬度=寬度- 2 *標簽2。左邊的
標簽2。WordWrap = True
標簽2。AutoSize = True
a =空格（4）& amp；“數字是從文本輸入的。輸入每個數字後，按Enter鍵，可以更改數字的數量。壹切都在分揀開始之前。”
a = a & amp“所有數字都是黑白的）。單擊“開始”按鈕開始比較（紅色）數字和（黃色）數字。
a = a & amp“如果（紅色背景）數字很大，則交換兩個數字的位置；否則，這兩個數字保持在它們的原始位置。位置被確定為不變的號碼是“
Label2 = a & amp“它是黑色的。“
標簽3 =““
標簽3。FontSize = 15
標簽3。Top =標簽2。500強
標簽3。Left = 1300
標簽3。AutoSize = True
框架1。頂部=高度- 2300
框架1。左=寬度/ 3
框架1。寬度= 2300
框架1。高度= 850
框架1。Caption =“輸入-32768到32767之間的數字“
文本1。Top = 300
文本1。左= 500
文本1。身高= 370
文本1。寬度= 1450
文本1。FontSize = 14
文本1。MaxLength = 6
Text1 =““
命令1。Top = Frame1。Top + 200
命令1。Left = Frame1。左+ Frame1。寬度+ 100
命令1。Caption =“開始排序“
命令1。已啟用=假
末端接頭
私有Sub text 1 _ KeyPress（KeyAscii為整數）
靜態kx為字節，ky為字節
如果KeyAscii = 13那麽
if text 1 & lt；& gt”“那麽
x = Val（text 1）
如果x & gt= -32768和x & lt= 32767那麽
如果n = 0那麽
label 1（0）= x:label 1（0）。可見=真實
其他
加載標簽1（n）:標簽1（n）= x
標簽1（n）。可見=真實
kx = kx + 1
如果kx Mod 12 = 0，則ky = ky + 1: kx = 0
標簽1（n）。left = label 1（0）。left+kx *（label 1（0）。寬度+ 100）
標簽1（n）。top = label 1（0）。top+ky *（label 1（0）。高度+ 100）
命令1。已啟用=真
如果…就會結束
text 1 =““:n = n+1
如果…就會結束
如果…就會結束
如果…就會結束
末端接頭