求助三个数的排序

Private Sub Form_click()
Dim a(2) As Integer
a(0) = 11
a(1) = 2
a(2) = 5
Call PaiXu(a())
End Sub
Private Sub PaiXu(a() As Integer) '小到大
Dim U%, L%, d%
U = UBound(a): L = LBound(a) '数组的上下界
Dim i%, j%
For i = L To U - 1
For j = L + 1 To U
If a(j) < a(i) Then
d = a(i)
a(i) = a(j)
a(j) = d
End If
Next
Next
For i = L To U
Print a(i),
Next
End Sub

只要改变 If a(j) < a(i) Then 就可以变成从大到小

在窗体上左边竖着放text1、text2、text3，输入排序前的数，中间竖着放command1、command2，用来执行排序命令，右边竖着放text4、text5、text6，输出排序后的数

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
If a < b Then d = a: a = b: b = d
If a < c Then d = a: a = c: c = d
If b < c Then d = b: b = c: c = d
Text4 = a
Text5 = b
Text6 = c
End Sub