动态规划一例

 题目（http://topic.csdn.net/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. Sub getit()
2. Dim s(2 To 12, 3 To 100) As String, i&, j&, k
3. t = Array(3, 13, 23, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 43, 53, 63)
4. For i = 0 To UBound(t)
5. For j = 0 To UBound(t)
6. If t(i) + t(j) <= 100 Then s(2, t(i) + t(j)) = Trim(s(2, t(i) + t(j)) & " " & t(i) & "," & t(j))
7. Next j, i
8. For j = 3 To 12
9. For k = 3 To 100
10. If s(j - 1, k) > "" Then
11. For i = 0 To UBound(t)
12. If k + t(i) <= 100 Then s(j, k + t(i)) = Trim(s(j, k + t(i)) & " " & Replace(s(j - 1, k), " ", "," & t(i) & " ") & "," & t(i))
13. Next
14. End If
15. Next
16. Next
17. Debug.Print Replace(s(12, 100), " ", vbCrLf)
18. End Sub

以上代码返回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