在vba中给输入文本框中的数字从大到小排序的程序代码怎么写？

Question

题目是这样的：输入a，b，c三个数，按从大到小的次序显示，运行效果如下：
（只要求程序代码就 好了）

Answer 1

Private Sub CommandButton1_Click()
Dim Myint
Dim iLb, iUb, iTmp As Integer
Myint = Array(TextBox1.Text, TextBox2.Text, TextBox3.Text)
iLb = LBound(Myint)
iUb = UBound(Myint)
For i = iUb To iLb + 1 Step -1
For ii = iLb To i - 1
If Myint(ii) < Myint(ii + 1) Then
iTmp = Myint(ii)
Myint(ii) = Myint(ii + 1)
Myint(ii + 1) = iTmp
End If
Next ii
Next i
Label1.Caption = Join(Myint, ">")

End Sub

Answer 2

Private Sub CommandButton1_Click()
Dim arr
arr = Array(TextBox1.Value, TextBox2.Value, TextBox3.Value)
For x = 0 To 1
For y = x + 1 To 2
If arr(x) < arr(y) Then
a = arr(x)
arr(x) = arr(y)
arr(y) = a
End If
Next y
Next x
TextBox4.Value = Join(arr, ">")
End Sub追问

额，排出来顺序不对。。。。。。。。。。。。。。。。

追答

怎么不对了？从大到小用>连接，不是吗？
是因为你的数据类型不对吗？

本回答被提问者采纳