求助 如何将不同文本框内的数据不重复的按大下排到一个新框内？见图；

具体程序不写了，写个思路：
1、建立2个数组，一个保存不同文本框内容、一个保存不重复的文本框内容【数组可以同样大小】
2、文本框内容赋值到数组1【也可以直接用文本框的数值】
3、做一个排重函数，把不同的数据放到数组2，并返回数组元素个数
4、做一个排序函数，参数可以有需要排序数组、升序/降序、文本排序/数字排序，方便同类调用，也可以只有需要排序数组

这个很简单，全部放在一个数组中，然后用冒泡法进行排序。输出的时候，看是否与前一个数相同，不同就输出。
这样就不用管是否重复，如果重复，输出的是相同的几个数中第一个，其他几个不不输出。 所有的操作一个数组就搞定，只是增加了一个判断语句而已。

这样可以吗？
冒泡法排序（递增）
算法思想：(将相邻两个数比较，大的调到后头)
1）有n+1个数（存放在数组a(n)中），第一趟将每相邻两个数比较，大的调到后头，经n次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”；
2）第二趟对余下的n个数（最大的数已“沉底”）按上法比较，经n-1次两两相邻比较后得次大的数；
3）依次类推，n+1个数共进行n趟比较。
For i=0 To n - 1
For j = 0 To n-1-i
If a(j) > a(j+1) Then
temp=a(j)
a(j)=a(j+1)
a(j+1)=temp
End if
Next j
Next i

实例初初稿；（这样会有问题吗？）
下面的是从小到大排序的,从大到小只需改一个“>”号,看下面的注释,整个过程不变的.
Private Sub Command1_Click()
Dim x(1 To 5) As Double, i%, j%, t
x(1) = 123
x(2) = 321
x(3) = 65
x(4) = 234
x(5) = 333
For i = 1 To 5 - 1 '有5个数要排序,需要进行5-1=4次两两比较
For j = 5 To i + 1 Step -1 '从末尾一个元素到第i个元素进行两两比较
If x(j) < x(j - 1) Then '从小到大排序,若需要从大到小排序,将“”
'若次序不对,则马上交换位置
t = x(j)
x(j) = x(j - 1)
x(j - 1) = t
End If
Next j '除了内循环,一轮排序结束,最小（或最大）数已经冒到数组第一位
Next i
End Sub

Text19 = Str$(Val(Text2) + Text6)
Text20 = Str$(Val(Text2) + Text4)
Text21 = Str$(Val(Text2) + Text25)
Text22 = Str$(Val(Text4) + Text6)
Text23 = Str$(Val(Text4) + Text25)
文字框数据按上试计算，请问可以直接将“Text19”放到程序中吗？
x(1) = 123
x(2) = 321
x(3) = 65
x(4) = 234
x(5) = 333
换成：
x(1) = Text19
x(2) = Text20
x(3) = Text21
x(4) = Text22
x(5) = Text23
如果不 行，又如何将文字框中的数据放到冒泡法的程序中呢？
希望能有个最简单的 方法。

[此贴子已经被作者于2018-2-7 19:43编辑过]

这个程序解答可能费点精力，但还盼能解决。目前先用手工排序；一旦能自动排序了就来结帖；

很简单的。

Private Sub Command1_Click()
Text1.Text = ""
K = 0
For I = 0 To 4
    If Check1(I).Value <> 0 Then
        K = K + 1
        AA(K) = Check1(I).Caption
    End If
    If Check2(I).Value <> 0 Then
        K = K + 1
        AA(K) = Check2(I).Caption
    End If
Next I
For I = 0 To 3
    If Check3(I).Value <> 0 Then
        K = K + 1
        AA(K) = Check3(I).Caption
    End If
    If Check4(I).Value <> 0 Then
        K = K + 1
        AA(K) = Check4(I).Caption
    End If
    If Check5(I).Value <> 0 Then
        K = K + 1
        AA(K) = Check5(I).Caption
    End If
Next I
Dim SSA As String
For I = 1 To K - 1
    For J = I + 1 To K
        If AA(I) > AA(J) Then
            SSA = AA(I)
            AA(I) = AA(J)
            AA(J) = SSA
        End If
    Next J
Next I
For I = 1 To K
    If I < K Then
    Text1.Text = Text1.Text & AA(I) & " - "
    Else
    Text1.Text = Text1.Text & AA(I)
    End If
Next I
End Sub

谢谢ZHRXJR版主的详细回复，本人希望对文本框内的数字进行排序，如下图；
将上面的Check1(I).Value直接改为Text11.SetFocus通不过
请问要如何改写？

[此贴子已经被作者于2018-2-14 09:53编辑过]

For I = 0 To 6
    If Check1(I).Value <> 0 Then
        K = K + 1
        AA(K) = Check1(I).Caption
    End If
    If Check2(I).Value <> 0 Then
        K = K + 1
        AA(K) = Check2(I).Caption
    End If
Next I
          '修改为
For I = 0 To 6
    If Text1(I).Text <> "" Then
        K = K + 1
        AA(K) = Text1(I).Text
    End If
Next I

基本的东西应该搞清楚，SetFocus是什么你知道吗？

[此贴子已经被作者于2018-2-16 15:00编辑过]