VB或vbs算法问题？输入4个数字(可能包含小数)，经过比较后按由大到小(或由小到大)排列输出。

更新时间2021-02-15 23:34:11

随机输入4个数字(可能包含小数)，比较大小并将4个数按由大到小(或由小到大)排列输出。
如输入(12.8,4.1,161,12) 输出(161,12.8,12,4.1)，再如输入(15.6,5,12,361.79) 输出(361.79,15.6,12,5)
 
算法越是简单有效越好。求高人指点思路。

用冒泡排序法

Dim a(4) As Single 

Dim m As Single '定义临时变量

 For i = 1 To 4
   

a(i) = Val(InputBox("请输入第" & i & "个数字"))

 Next i 

 For i = 1 To 3
   

For j = 1 To 4 - i
   

If a(j) > a(j + 1) Then '比较
  

 '交换
       

m = a(j)
       

a(j) = a(j + 1)
       

a(j + 1) = m
   

End If              

Next j 

Next i 

 For i = 1 To 4
   

Print a(i)

 Next i

运行时把窗体autoredraw调为True