递归实现 动态规划 并找出一个最优解 从V中选一些数据，使之和与另一给定值j最接近，（不大于j)对于V中的某个元素，用选或不选进行分析，选用此数时放右子树 不选时放左子树，并进行递归 。 # -*- coding:utf-8-*- ###从V中选一些数，使之和与另一给定值j 最接近（不大于j）。 动态规划时，对于V中的某个元素，选或不选进行递归，选此数时放右子树，不选放左子树 ###利用二叉树递归处理，动态规划 v ，并把每个右子树的值保存在的r_list中。 v=[1...

Sub m_loss() Dim d_m, r, r_loss As Integer Dim date_new As Date r = Range("a65536").End(xlUp).Row r_loss = Sheets("LOSS").Range("a65536").End(xlUp).Row zyname = InputBox("請輸入廠名") d_m = Int(InputBox("請輸入月份date_m")) '注意數據轉換　　2003，2007　好像版本不一樣 Sheets("LOSS").Cells(r_loss + 4, 1) = zyn...