Private?Sub Command1_Click()
a = Val(InputBox("請輸入第壹個數:"))
b = Val(InputBox("請輸入第二個數:"))
c = Val(InputBox("請輸入第三個數:"))
s = "輸入的三個數為：" & a & ", " & b & ", " & c & vbCrLf
If a > b Then t = a: a = b: b = t
If a > c Then t = a: a = c: c = t
If b > c Then t = b: b = c: c = t
MsgBox s & "三個數從小到大為：" & a & ", " & b & ", " & c
End?Sub
擴展資料：
所以往往評價壹個排序算法的好壞往往可以從下邊幾個方面入手：
（1）時間復雜度：即從序列的初始狀態到經過排序算法的變換移位等操作變到最終排序好的結果狀態的過程所花費的時間度量。
（2）空間復雜度：就是從序列的初始狀態經過排序移位變換的過程壹直到最終的狀態所花費的空間開銷。
（3）使用場景：排序算法有很多，不同種類的排序算法適合不同種類的情景，可能有時候需要節省空間對時間要求沒那麽多，反之，有時候則是希望多考慮壹些時間，對空間要求沒那麽高，總之壹般都會必須從某壹方面做出抉擇。
（4）穩定性：穩定性是不管考慮時間和空間必須要考慮的問題，往往也是非常重要的影響選擇的因素。?
百度百科-排序算法