数学好的进来，算法优的得分！！

Question

如何将足彩复式投注单分解成单注？
    比如 310-31-10-310-3-30-310-3-1-1-31-30-310-31
附带程序最好。

Answer 1

Private Sub Command1_Click()
Dim cnt() As String
sou = "310-31-10-310-3-30-310-3-1-1-31-30-310-31"
cnt = Split(sou, "-")
For a = 1 To Len(cnt(0))
For b = 1 To Len(cnt(1))
For c = 1 To Len(cnt(2))
For d = 1 To Len(cnt(3))
For e = 1 To Len(cnt(4))
For f = 1 To Len(cnt(5))
For g = 1 To Len(cnt(6))
For h = 1 To Len(cnt(7))
For i = 1 To Len(cnt(8))
For j = 1 To Len(cnt(9))
For k = 1 To Len(cnt(10))
For l = 1 To Len(cnt(11))
For m = 1 To Len(cnt(12))
For n = 1 To Len(cnt(13))
Debug.Print Mid(cnt(0), a, 1) + Mid(cnt(1), b, 1) + Mid(cnt(2), c, 1) + Mid(cnt(3), d, 1) + Mid(cnt(4), e, 1) + Mid(cnt(5), f, 1) + Mid(cnt(6), g, 1) + Mid(cnt(7), h, 1) + Mid(cnt(8), i, 1) + Mid(cnt(9), j, 1) + Mid(cnt(10), k, 1) + Mid(cnt(11), l, 1) + Mid(cnt(12), m, 1) + Mid(cnt(13), n, 1)
DoEvents
ti = ti + 1
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Debug.Print ti
End Sub

Answer 2

to  lsftest() :哈哈，和我写的除了
cnt() 
sou
名字不一样，其余一模一样，哈哈~~汗。。晚贴一步。。

Answer 3

感谢lsftest()， DooDu(杜霖:I want,I can.(MmMVP马甲)(准备闭关……)) ！！！！！没想到要这么多层循环。