Question

vb文本框数组的组合问题

文本框1有如下数组：
1 2 5 7 8 11 12
2 3 6 7 9 10 15
4 5 6 10 13 17 19等数组，每组7个数，数与数之间有一个空格，怎么用一个按钮就把上面所有数组，按5个数一组的所有组合显示到text2呢？上面三组7个数的组合可分解成63组5个数一组的所有组合。如text2这样显示：
2 3 6 7 9
2 3 6 7 10
2 7 9 10 15
4 10 13 17 19
2 6 7 9 10等等数组，数与数之间有一个空格，感谢老师能帮我解开这个谜团！！！

Answer 1

Private Sub Command1_Click()
Dim s() As String, i As Long, t() As String
Dim n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer, n5 As Integer
Text2.Text = ""
s = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(s)
    t = Split(s(i), " ")
    If UBound(t) = 6 Then
        For n1 = 0 To 2
            For n2 = n1 + 1 To 3
                For n3 = n2 + 1 To 4
                    For n4 = n3 + 1 To 5
                        For n5 = n4 + 1 To 6
                            Text2.Text = Text2.Text & t(n1) & " " & t(n2) & " " & t(n3) & " " & t(n4) & " " & t(n5) & vbCrLf
                        Next
                    Next
                Next
            Next
        Next
    End If
Next
End Sub

Answer 2

你的问题估计没几个人看得懂.都不明白,你说的什么..
1 3 8 9 16,
1 3 8 15 16,
1 3 9 15 16,
3 9 15 16 20
你给的这4组每个都有4个相同的.怎么合并? 合并过就不能再合并?按顺序?
如
1 3 8 9 16
与1 3 8 15 16
合并得到数组1 3 8 16 9 15
1 3 9 15 16
3 9 15 16 20合并，
得到3 9 15 16 1 20
其实也不难但是.你的数组是怎么样个结构?变量?还是单独的一组数据还是?

求采纳为满意回答。