从10个数字中选择6个，求所有的组合

从10个数字中选择6个，求所有的组合

Dim a()
        Dim temp As String = ","
        Dim n As Integer
        Dim i, j, k, t, y, u As Integer
        a = Split("1,2,3,4,5,6,7,8,9,10", temp)
        n = UBound(a)
        Dim cou As Integer = 0
        If Trim(a(UBound(a))) = "" Then n = UBound(a) - 1
        TextBox6.Text = ""
        For i = 0 To n - 5
            For j = i + 1 To n - 4
                For k = j + 1 To n - 3
                    For t = k + 1 To n - 2
                        For y = t + 1 To n - 1
                            For u = y + 1 To n
                                TextBox6.Text = TextBox6.Text & a(i) & " " & a(j) & " " & a(k) & " " & a(t) & " " & a(y) & " " & a(u) & vbCrLf
                                cou += 1
                            Next u
                        Next y
                    Next t
                Next k
            Next j
        Next i
        MsgBox(cou)

如果数字可以重复使用的话是：9×10×10×10×10×10＝900000个组合；如果数字不可以重复使用的话是：9×9×8×7×6×5＝136080个组合。不用想的太复杂，就是简单的排列组合问题。