Private Sub Form_Click()

Dim a(1 To 10) As Integer

For i = 1 To 10

a(i) = InputBox("請輸入")

Next i

For i = 10 To 2 Step -1 "剩下排序資料變數i，限定當前要查詢的資料，剛剛開始是所有即10，每迴圈一次，得到剩下資料裡的極值，最大或最小由後面置換條件決定

For j = 1 To i - 1 " 剩下資料內部查詢變數j，所有資料都透過該變數查詢。

If a(j) > a(j + 1) Then "? 替換條件，這裡是前一個比後一個大時替換，所有從小到大排序

temp = a(j + 1) "? 替換開始

a(j + 1) = a(j)

a(j) = temp "? 替換結束

End If

Next j

Next i

For i = 1 To 10

Print a(i); " "; "? 將排序後的資料打印出來，並用空格隔開。

Next i

End Sub。