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)稳定性:稳定性是不管考虑时间和空间必须要考虑的问题,往往也是非常重要的影响选择的因素。
参考资料来源:百度百科-排序算法