text1里的十个数用逗号隔开，我怎么把它们取出来转换成数值型来排序啊

vb：在text1中输入任意有限个数，并用逗号隔开，点击command1后，要求该组数字递增排列，并在label1中输出~

Private Sub Command1_Click()
Dim i, j, t As Integer, a() As String
Label1.Caption = ""
a = Split(Text1.Text, ",")
If UBound(a) > 1 Then
For i = 0 To UBound(a)
For j = 0 To i
If Val(a(i)) < Val(a(j)) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
End If
For i = 0 To UBound(a)
Label1.Caption = Label1.Caption & a(i) & " "
Next
End Sub

Private Sub Command1_Click()
Dim b() As String
Dim a(4) As Long
Dim temp As Long
b() = Split(Text1.Text, ",")
For i = 0 To 4
a(i) = b(i)
Next i
For m = 0 To 4
For i = m To 4
If a(m) > a(i) Then
temp = a(m)
a(m) = a(i)
a(i) = temp
End If
Next i
Next m
Label1.Caption = a(0) & "," & a(1) & "," & a(2) & "," & a(3) & "," & a(4)
End Sub

Dim s() As String, n() As Long, i As Integer
s = Split(Text1.Text, ",")
ReDim n(UBound(s))
For i = 0 To UBound(s)
n(i) = Val(s(i))
Next i
'这时候数组n就是转换后的数值型数组，你对它进行排序即可

嘿嘿 谢谢
Private Sub Form_Load()
Dim a() As String
Dim i As Integer, j As Integer
Dim temp As Integer
a = Split(Text1.Text, ",")
For i = 0 To UBound(a) - 1
For j = i + 1 To UBound(a)
If Val(a(i)) > Val(a(j)) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
For i = 0 To UBound(a)
Text2.Text = a(i) + "," + Text2.Text
Next i
End Sub
我弄的是升序 怎么出来是降序啊
If Val(a(i)) > Val(a(j)) Then
这个的意思就是如果前一个数大于后一个数，两个数就对调，这么一来，肯定就是降序啦（小的数逐渐被调到前面去了），改为如下就是升序了：
If Val(a(i)) < Val(a(j)) Then

降序不就是4，3，2，1吗 我的If Val(a(i)) > Val(a(j)) Then排出来应该是1,2,3,4的，可是却是4,3,2,1
还有一个问题啊
有一个列表框、文本框和按钮，要实现修改功能
按“修改”按钮，把选取项送往文本框且“修改”按钮变成“修改确认”，在文本框内容修改好之后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且按钮变回“修改”。
啊，是我搞错了，你那个确实是升序排列，问题出在最后放到Text2的时候，你把本来已经升序排列的数组按反方向放到Text2了，要把
Text2.Text = a(i) + "," + Text2.Text
改为
Text2.Text = Text2.Text & "," & a(i)

最好是把
For i = 0 To UBound(a)
Text2.Text = a(i) + "," + Text2.Text
Next i
改成如下一行即可：
Text2.Text = Join(a, ",")
这样更简洁

第二个问题：
Private Sub Command1_Click()
If Command1.Caption = "修改" Then
Text1.Text = List1.Text
Command1.Caption = "修改确认"
Else
List1.List(List1.ListIndex) = Text1.Text
Command1.Caption = "修改"
End If
End Sub

---

text1里的十个数用逗号隔开，我怎么把它们取出来转换成数值型来排序啊视频