VB查找与排序问题，请高手帮忙！

来源：百度知道 编辑：UC知道 时间：2024/06/15 12:53:27
在一个文本框中输入一行数，例如“8,2,5,9,6”，每个数用“,”隔开，然后单击一个命令按钮实现VB中的“冒泡排序”，也就是从小到大的排序，并重新显示在这个文本框中！

以上是题目，现在小弟问题出在不知道如何让程序查找到每个“,”，并且把前面的数提出来……请高手帮帮我……！！

Private Sub Command1_Click()
a = Split(Text1, ",")
For i = 0 To UBound(a) - 1
For j = i To UBound(a)
If Val(a(i)) > Val(a(j)) Then
t = a(j)
a(j) = a(i)
a(i) = t
End If
Next
Next
Text1 = Join(a, ",")

End Sub

Private Sub Command1_Click()
Dim a As Long
a = 0
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "," Then
a = a + 1
End If
Next
aaa = Split(Text1.Text, ",")
For i = 1 To a
MsgBox aaa(i - 1) '把这句改成相应的"冒泡排序"语句就可以了
Next
End Sub