请教：我想对text1中的数字进行从小到大排序，用vb怎样写？

VB程序设计，将一个TEXT文本框内的数据从小到大排列！~

文本框内的数据是什么格式的，如12,3,4,23,543,345
思路：用split函数将字符串转变为独立的数字，如a=split(text1.text,",")
编写一个数字排序的函数
将结果重新组合为字符串，并返回给text1.text
难点是数字排序函数，这里面有不同的算法。

如果不考虑编程的方法，可以通过电子表格来实现：
将你上面的数字复制到记事本中，然后用替换功能将所有的x替换为“，”（英文的逗号，不包括双引号）。然后保存，默认的扩展名名是“txt”，改为“csv”。然后打开，应该变为电子表格了。电子表格的A列，B列应该是你上面的数据，现在在第一行的C列输入公式：“=A*B”回车，通过鼠标拖拽功能，把第一行的C列的值复制到下面所有数据，这样就计算出来乘积了，然后选中C列，在单元格设置中将单元格选为数值，然后还是选中C列，用电子表格的排序功能排序，完成。
200 300 60000
200 400 80000
200 500 100000
200 600 120000
200 750 150000
250 700 175000
300 600 180000
250 800 200000
300 700 210000
300 750 225000
250 1100 275000
400 700 280000
400 750 300000
400 800 320000
400 900 360000
400 900 360000
400 1000 400000
600 700 420000
400 1100 440000
400 1150 460000
400 1200 480000
700 700 490000
400 1300 520000
700 900 630000

这里有两种方法。第一种，直接交换，代码比较多，容易出错。
第二种，把交换部分写成一个独立过程，中间调用。便于阅读，书写方便，不易出错。
用户的关于从大到小和从小到大排序选择，使用Option控件（）如图。
Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim tmp As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If Option1.Value = True Then If a a Then tmp = b b = c c = tmp tmp = a a = b b = tmp ElseIf c > b Then tmp = b b = c c = tmp End If Else If a > b Then tmp = a a = b b = tmp End If If c < a Then tmp = b b = c c = tmp tmp = a a = b b = tmp ElseIf c < b Then tmp = b b = c c = tmp End If End If Text1.Text = CStr(a) Text2.Text = CStr(b) Text3.Text = CStr(c) End Sub
Sub swap(x, y) Dim tmp tmp = x x = y y = tmpEnd Sub
Private Sub Command2_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim tmp As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If Option1.Value = True Then If a a Then swap b, c swap a, b ElseIf c > b Then swap b, c End If Else If a > b Then swap a, b End If If c < a Then swap b, c swap a, b ElseIf c < b Then swap b, c End If End If Text1.Text = CStr(a) Text2.Text = CStr(b) Text3.Text = CStr(c) End Sub

再添加一个按钮command2
Private Sub Command2_Click()
dim a$(),i%,j%,n%
a=split(text1," ")
n=ubound(a)
for i=0 to n-1
for j=i+1 to n
if a(i)>a(j) then t=a(i):a(i)=a(j):a(j)=t
next j
next i
text1=""
for i=0 to n
text1=text1 & a(i) & " "
next i
end sub

你把要求写明白点，看不懂你的代码。。。。

---

请教：我想对text1中的数字进行从小到大排序，用vb怎样写？视频