从1-9中选择3个数字的所有组合，怎么计算呢？急！

[totocn]

有从1到9共计9个数字，请问，如果三个一组，可以组合成多少个“三国联盟”？

备注：213组合和312组合，代表同一个组合，只要有三个数字在一起即可。

请问用vb如何实现，把所有组合都算出來？

[砸死牛顿的苹果]

dim i as long,j as long,k as long
for i=1 to 7
for j=i+1 to 8
for k=j+1 to 9
debug.print i,j,k
next
next
next

[贝隆]

1、9选3＝84
2、6选3＝20
3、3选3＝1

总的组合数：84*20*1＝1680

[vbman2003]

Option Explicit

Sub Carry(a() As Long, ByVal m As Long, ByVal n As Long)
    Dim Idx As Long
    Idx = n
    While a(Idx) = m
        Idx = Idx - 1
        m = m - 1
    Wend
    a(Idx) = a(Idx) + 1
    While Idx < n
        Idx = Idx + 1
        a(Idx) = a(Idx - 1) + 1
    Wend
End Sub

Sub PrintCom(a() As Long, n As Long)
    Dim i As Long
    ReDim tmp(n)
    For i = 1 To n
        tmp(i) = a(i)
    Next
    Debug.Print Trim(Join(tmp))
End Sub

Private Sub Command1_Click()
    Dim m As Long, n As Long
    Dim i As Long
    m = 9
    n = 3
    ReDim a(m) As Long
    For i = 1 To m
        a(i) = i
    Next
    
    Do
        DoEvents
        Call PrintCom(a, n)
        Call Carry(a, m, n)
    Loop Until a(0) = 1  
End Sub

[vbman2003]

以上只是思路，代码不完善....

[vbman2003]

稍改一下：

Option Explicit

Sub Carry(a() As Long, ByVal m As Long, ByVal n As Long)
    Dim Idx As Long
    Idx = n
    While a(Idx) = m
        Idx = Idx - 1
        m = m - 1
    Wend
    a(Idx) = a(Idx) + 1
    While Idx < n
        Idx = Idx + 1
        a(Idx) = a(Idx - 1) + 1
    Wend
End Sub

Sub PrintCom(a() As Long, n As Long)
    Dim i As Long
    ReDim tmp(n)
    For i = 1 To n
        tmp(i) = a(i)
    Next
    Debug.Print Trim(Join(tmp))
End Sub

Private Sub Command1_Click()
    
    Dim m As Long, n As Long
    Dim i As Long
    m = 9
    n = 3
    ReDim a(m) As Long
    For i = 1 To m
        a(i) = i
    Next
    a(0) = -1
    Do
        DoEvents
        Call PrintCom(a, n)
        Call Carry(a, m, n)
    Loop Until a(0) = 0
    
End Sub

[砸死牛顿的苹果]

我看错题意了
原来要分成3组 每组3个
应该是1680种组合

[totocn]

有那么多吗？只是三个数字一组而已哦

[wozhidaode]

xuexi

[slowgrace]

3个数字要求互不相同么？

[yy830024]

UP

[砸死牛顿的苹果]

问题描述的有点不清楚

到底 "3个一组" 是算整个 "三国联盟" 还是算三国联盟中的一国

你的问题如果意思是 1~9 9个数字中 任取3个数字 有多少种组合 那就是 c(9,3)=84种
我1楼就是按照这个意思来解答的

[yuan027]

三个数字都不相同的话有53种，111、222、333、444、555、666、777、888、999、、112、113、114、115、116、117、118、119、、122、123、124、125、126、127、128、129、、133、134、135、136、137、138、139、、144、145、146、147、148、149、、155、156、157、158、159、、166、167、168、169、177、178、179、、188、189、、199