动态规划一例

题目（http://topic.youkuaiyun.com/u/20081208/16/672693a2-ce8e-462a-ba07-a70ff2f0c5a2.html?seed=2109433475）：有一个蛋糕，被切成了100份，现将这个100份装到12个盘子中，要求每个盘子中的份数不能为0，并且份数中必须还有数字3，不论个位或者十位，例如13份，37份等。
请给出每个盘子中各装多少份的所有答案。

分析：盘子里的份数只能为 3,13,23,30,31,32,33,34,35,36,37,38,39,43,53,63 等16种情况，递归比较复杂，使用动态规划要好些，代码如下：

1. Subgetit()
2. Dims(2To12,3To100)AsString,i&,j&,k
3. t=Array(3,13,23,30,31,32,33,34,35,36,37,38,39,43,53,63)
4. Fori=0ToUBound(t)
5. Forj=0ToUBound(t)
6. Ift(i)+t(j)<=100Thens(2,t(i)+t(j))=Trim(s(2,t(i)+t(j))&""&t(i)&","&t(j))
7. Nextj,i
8. Forj=3To12
9. Fork=3To100
10. Ifs(j-1,k)>""Then
11. Fori=0ToUBound(t)
12. Ifk+t(i)<=100Thens(j,k+t(i))=Trim(s(j,k+t(i))&""&Replace(s(j-1,k),"",","&t(i)&"")&","&t(i))
13. Next
14. EndIf
15. Next
16. Next
17. Debug.PrintReplace(s(12,100),"",vbCrLf)
18. EndSub

以上代码返回4554种排列情况：

3,3,3,3,3,3,3,3,3,3,31,39
3,3,3,3,3,3,3,3,3,31,3,39
3,3,3,3,3,3,3,3,31,3,3,39
3,3,3,3,3,3,3,31,3,3,3,39
3,3,3,3,3,3,31,3,3,3,3,39
3,3,3,3,3,31,3,3,3,3,3,39
3,3,3,3,31,3,3,3,3,3,3,39
3,3,3,31,3,3,3,3,3,3,3,39
3,3,31,3,3,3,3,3,3,3,3,39
3,31,3,3,3,3,3,3,3,3,3,39
31,3,3,3,3,3,3,3,3,3,3,39
3,3,3,3,3,3,3,3,3,3,32,38
3,3,3,3,3,3,3,3,3,32,3,38
3,3,3,3,3,3,3,3,32,3,3,38
3,3,3,3,3,3,3,32,3,3,3,38
3,3,3,3,3,3,32,3,3,3,3,38
3,3,3,3,3,32,3,3,3,3,3,38
3,3,3,3,32,3,3,3,3,3,3,38
3,3,3,32,3,3,3,3,3,3,3,38
3,3,32,3,3,3,3,3,3,3,3,38
3,32,3,3,3,3,3,3,3,3,3,38
32,3,3,3,3,3,3,3,3,3,3,38
3,3,3,3,3,3,3,3,3,3,33,37
3,3,3,3,3,3,3,3,3,13,23,37
3,3,3,3,3,3,3,3,13,3,23,37
3,3,3,3,3,3,3,13,3,3,23,37
3,3,3,3,3,3,13,3,3,3,23,37
3,3,3,3,3,13,3,3,3,3,23,37
3,3,3,3,13,3,3,3,3,3,23,37
3,3,3,13,3,3,3,3,3,3,23,37
3,3,13,3,3,3,3,3,3,3,23,37
3,13,3,3,3,3,3,3,3,3,23,37
13,3,3,3,3,3,3,3,3,3,23,37
3,3,3,3,3,3,3,3,3,23,13,37
3,3,3,3,3,3,3,3,13,13,13,37
3,3,3,3,3,3,3,13,3,13,13,37
3,3,3,3,3,3,13,3,3,13,13,37
3,3,3,3,3,13,3,3,3,13,13,37
3,3,3,3,13,3,3,3,3,13,13,37
3,3,3,13,3,3,3,3,3,13,13,37
3,3,13,3,3,3,3,3,3,13,13,37
3,13,3,3,3,3,3,3,3,13,13,37
13,3,3,3,3,3,3,3,3,13,13,37
3,3,3,3,3,3,3,3,23,3,13,37
3,3,3,3,3,3,3,13,13,3,13,37
3,3,3,3,3,3,13,3,13,3,13,37
3,3,3,3,3,13,3,3,13,3,13,37
3,3,3,3,13,3,3,3,13,3,13,37
3,3,3,13,3,3,3,3,13,3,13,37
3,3,13,3,3,3,3,3,13,3,13,37
3,13,3,3,3,3,3,3,13,3,13,37
13,3,3,3,3,3,3,3,13,3,13,37
3,3,3,3,3,3,3,23,3,3,13,37
3,3,3,3,3,3,13,13,3,3,13,37
3,3,3,3,3,13,3,13,3,3,13,37
3,3,3,3,13,3,3,13,3,3,13,37
3,3,3,13,3,3,3,13,3,3,13,37
3,3,13,3,3,3,3,13,3,3,13,37
3,13,3,3,3,3,3,13,3,3,13,37
13,3,3,3,3,3,3,13,3,3,13,37
3,3,3,3,3,3,23,3,3,3,13,37
3,3,3,3,3,13,13,3,3,3,13,37
3,3,3,3,13,3,13,3,3,3,13,37
3,3,3,13,3,3,13,3,3,3,13,37
3,3,13,3,3,3,13,3,3,3,13,37
3,13,3,3,3,3,13,3,3,3,13,37
13,3,3,3,3,3,13,3,3,3,13,37
3,3,3,3,3,23,3,3,3,3,13,37
3,3,3,3,13,13,3,3,3,3,13,37
3,3,3,13,3,13,3,3,3,3,13,37
3,3,13,3,3,13,3,3,3,3,13,37
3,13,3,3,3,13,3,3,3,3,13,37
13,3,3,3,3,13,3,3,3,3,13,37
3,3,3,3,23,3,3,3,3,3,13,37
3,3,3,13,13,3,3,3,3,3,13,37
3,3,13,3,13,3,3,3,3,3,13,37
3,13,3,3,13,3,3,3,3,3,13,37
13,3,3,3,13,3,3,3,3,3,13,37
3,3,3,23,3,3,3,3,3,3,13,37
3,3,13,13,3,3,3,3,3,3,13,37
3,13,3,13,3,3,3,3,3,3,13,37
13,3,3,13,3,3,3,3,3,3,13,37
3,3,23,3,3,3,3,3,3,3,13,37
3,13,13,3,3,3,3,3,3,3,13,37
13,3,13,3,3,3,3,3,3,3,13,37
3,23,3,3,3,3,3,3,3,3,13,37
13,13,3,3,3,3,3,3,3,3,13,37
23,3,3,3,3,3,3,3,3,3,13,37
3,3,3,3,3,3,3,3,3,33,3,37
3,3,3,3,3,3,3,3,13,23,3,37
3,3,3,3,3,3,3,13,3,23,3,37
3,3,3,3,3,3,13,3,3,23,3,37
3,3,3,3,3,13,3,3,3,23,3,37
3,3,3,3,13,3,3,3,3,23,3,37
3,3,3,13,3,3,3,3,3,23,3,37
3,3,13,3,3,3,3,3,3,23,3,37
3,13,3,3,3,3,3,3,3,23,3,37
13,3,3,3,3,3,3,3,3,23,3,37
3,3,3,3,3,3,3,3,23,13,3,37
3,3,3,3,3,3,3,13,13,13,3,37
3,3,3,3,3,3,13,3,13,13,3,37
3,3,3,3,3,13,3,3,13,13,3,37
3,3,3,3,13,3,3,3,13,13,3,37
3,3,3,13,3,3,3,3,13,13,3,37
3,3,13,3,3,3,3,3,13,13,3,37
3,13,3,3,3,3,3,3,13,13,3,37
13,3,3,3,3,3,3,3,13,13,3,37
3,3,3,3,3,3,3,23,3,13,3,37
3,3,3,3,3,3,13,13,3,13,3,37
3,3,3,3,3,13,3,13,3,13,3,37
3,3,3,3,13,3,3,13,3,13,3,37
3,3,3,13,3,3,3,13,3,13,3,37
3,3,13,3,3,3,3,13,3,13,3,37
3,13,3,3,3,3,3,13,3,13,3,37
13,3,3,3,3,3,3,13,3,13,3,37
3,3,3,3,3,3,23,3,3,13,3,37
3,3,3,3,3,13,13,3,3,13,3,37
3,3,3,3,13,3,13,3,3,13,3,37
3,3,3,13,3,3,13,3,3,13,3,37
3,3,13,3,3,3,13,3,3,13,3,37
3,13,3,3,3,3,13,3,3,13,3,37
13,3,3,3,3,3,13,3,3,13,3,37
3,3,3,3,3,23,3,3,3,13,3,37
3,3,3,3,13,13,3,3,3,13,3,37
3,3,3,13,3,13,3,3,3,13,3,37
3,3,13,3,3,13,3,3,3,13,3,37
3,13,3,3,3,13,3,3,3,13,3,37
13,3,3,3,3,13,3,3,3,13,3,37
3,3,3,3,23,3,3,3,3,13,3,37
3,3,3,13,13,3,3,3,3,13,3,37
3,3,13,3,13,3,3,3,3,13,3,37
3,13,3,3,13,3,3,3,3,13,3,37
13,3,3,3,13,3,3,3,3,13,3,37
3,3,3,23,3,3,3,3,3,13,3,37
3,3,13,13,3,3,3,3,3,13,3,37
3,13,3,13,3,3,3,3,3,13,3,37
13,3,3,13,3,3,3,3,3,13,3,37
3,3,23,3,3,3,3,3,3,13,3,37
3,13,13,3,3,3,3,3,3,13,3,37
13,3,13,3,3,3,3,3,3,13,3,37
3,23,3,3,3,3,3,3,3,13,3,37
13,13,3,3,3,3,3,3,3,13,3,37
23,3,3,3,3,3,3,3,3,13,3,37
3,3,3,3,3,3,3,3,33,3,3,37
3,3,3,3,3,3,3,13,23,3,3,37
3,3,3,3,3,3,13,3,23,3,3,37
3,3,3,3,3,13,3,3,23,3,3,37
3,3,3,3,13,3,3,3,23,3,3,37
3,3,3,13,3,3,3,3,23,3,3,37
3,3,13,3,3,3,3,3,23,3,3,37
3,13,3,3,3,3,3,3,23,3,3,37
13,3,3,3,3,3,3,3,23,3,3,37
3,3,3,3,3,3,3,23,13,3,3,37
3,3,3,3,3,3,13,13,13,3,3,37
3,3,3,3,3,13,3,13,13,3,3,37
3,3,3,3,13,3,3,13,13,3,3,37
3,3,3,13,3,3,3,13,13,3,3,37
3,3,13,3,3,3,3,13,13,3,3,37
3,13,3,3,3,3,3,13,13,3,3,37
13,3,3,3,3,3,3,13,13,3,3,37
3,3,3,3,3,3,23,3,13,3,3,37
3,3,3,3,3,13,13,3,13,3,3,37
3,3,3,3,13,3,13,3,13,3,3,37
3,3,3,13,3,3,13,3,13,3,3,37
3,3,13,3,3,3,13,3,13,3,3,37
3,13,3,3,3,3,13,3,13,3,3,37
13,3,3,3,3,3,13,3,13,3,3,37
3,3,3,3,3,23,3,3,13,3,3,37
3,3,3,3,13,13,3,3,13,3,3,37
3,3,3,13,3,13,3,3,13,3,3,37
3,3,13,3,3,13,3,3,13,3,3,37
3,13,3,3,3,13,3,3,13,3,3,37
13,3,3,3,3,13,3,3,13,3,3,37
3,3,3,3,23,3,3,3,13,3,3,37
3,3,3,13,13,3,3,3,13,3,3,37
3,3,13,3,13,3,3,3,13,3,3,37
3,13,3,3,13,3,3,3,13,3,3,37
13,3,3,3,13,3,3,3,13,3,3,37
3,3,3,23,3,3,3,3,13,3,3,37
3,3,13,13,3,3,3,3,13,3,3,37
3,13,3,13,3,3,3,3,13,3,3,37
13,3,3,13,3,3,3,3,13,3,3,37
3,3,23,3,3,3,3,3,13,3,3,37
3,13,13,3,3,3,3,3,13,3,3,37
13,3,13,3,3,3,3,3,13,3,3,37
3,23,3,3,3,3,3,3,13,3,3,37
13,13,3,3,3,3,3,3,13,3,3,37
23,3,3,3,3,3,3,3,13,3,3,37
3,3,3,3,3,3,3,33,3,3,3,37
3,3,3,3,3,3,13,23,3,3,3,37
3,3,3,3,3,13,3,23,3,3,3,37
3,3,3,3,13,3,3,23,3,3,3,37
3,3,3,13,3,3,3,23,3,3,3,37
3,3,13,3,3,3,3,23,3,3,3,37
3,13,3,3,3,3,3,23,3,3,3,37
13,3,3,3,3,3,3,23,3,3,3,37
3,3,3,3,3,3,23,13,3,3,3,37
3,3,3,3,3,13,13,13,3,3,3,37
3,3,3,3,13,3,13,13,3,3,3,37
3,3,3,13,3,3,13,13,3,3,3,37
3,3,13,3,3,3,13,13,3,3,3,37
3,13,3,3,3,3,13,13,3,3,3,37
13,3,3,3,3,3,13,13,3,3,3,37
3,3,3,3,3,23,3,13,3,3,3,37
3,3,3,3,13,13,3,13,3,3,3,37
3,3,3,13,3,13,3,13,3,3,3,37
3,3,13,3,3,13,3,13,3,3,3,37
3,13,3,3,3,13,3,13,3,3,3,37
13,3,3,3,3,13,3,13,3,3,3,37
3,3,3,3,23,3,3,13,3,3,3,37
3,3,3,13,13,3,3,13,3,3,3,37
3,3,13,3,13,3,3,13,3,3,3,37
3,13,3,3,13,3,3,13,3,3,3,37
13,3,3,3,13,3,3,13,3,3,3,37
3,3,3,23,3,3,3,13,3,3,3,37
3,3,13,13,3,3,3,13,3,3,3,37
3,13,3,13,3,3,3,13,3,3,3,37
13,3,3,13,3,3,3,13,3,3,3,37
3,3,23,3,3,3,3,13,3,3,3,37
3,13,13,3,3,3,3,13,3,3,3,37
13,3,13,3,3,3,3,13,3,3,3,37
3,23,3,3,3,3,3,13,3,3,3,37