好久没来，今天在群里遇到一个很好的问题，又有人叫我吧主了，特意吧问题发到这里来，让大家试试手。
问题是这样的，求各位数字和为11且不含0的所有整数。
即如果这个数，他的各位数的数字之和为11，且各位数字中又没有0，即是解，列出所有的解。
大家可以用你自己的方法解出来，提示一下，解共1021个。期待你能解出来，并附上你解决的方法。

vba 看成11个1 从多到少开始取几个1 再加起来 除开10个1 这是我思路 不想去写代码
比如 1 1 1 1 1 1 1 1 1 1 1 取3个1 再取4个1 还剩4个1 这个数就是344

MARK，没想到啥思路

If temp > Csum Then里增加了i = Left(i, j - 1) + 1 & String(Len(i) - j + 1, "1") - 1终于改善了速度，不加这句根本算不出来，直接卡死
Sub xxx()
Csum = 11
n = 0
Dim jg()
For i = 29 To 11111111115#
i = Replace(i, 0, 1)
temp = 0
For j = 1 To Len(i)
If Mid(i, j, 1) = "0" Then Exit For
temp = temp + Mid(i, j, 1)
If temp > Csum Then
i = Left(i, j - 1) + 1 & String(Len(i) - j + 1, "1") - 1
Exit For
End If
If temp = 11 And j = Len(i) Then
ReDim Preserve jg(n)
Debug.Print i
jg(n) = i
n = n + 1
End If
Next
Next
End Sub

这个应该算是类似3楼的吧，用的递归，用时0.43-0.46秒的样子，跟5楼效率区别不大
Dim Count
Sub yyy()
t = Timer
jg = xxx(11)
Debug.Print Timer - t & "-" & Count
End Sub
Function xxx(n, Optional str = "")
For i = 1 To IIf(n < 9, n, 9)
If n = i Then
xxx = str & i
Debug.Print xxx
Count = Count + 1
Exit Function
Else
tstr = str & i
xxx n - i, tstr
End If
Next
End Function

我似乎想到一个用二进制数模拟隔板有无的方法。。等会试试。。

我的循环次数为1022*10次，测试可行，但因使用隔板法，结果不是按大小排序的：

11个1之间共有10个位置，可任意放置1-10个隔板，如果把有隔板计为1，没有记为0，其实就是0000000001到1111111111之间的二进制数，共1023个，但需要去掉0000000001和1000000000，因为一个位置不能是10。于是剩下1021个，换成十进制，就是2-1023之间的数，去掉512。于是流程如下：
循环2-1023，不要512——转为10位的二进制——1的数量+1即是数字位数——循环1-10，还原出被1隔开的原数。