动态规划_整数拆分

'给定一个正整数 n，将其拆分为至少两个正整数的和，并使这些整数的乘积最大化。 返回你可以获得的最大乘积。
'示例 1:
'输入: 2
'输出: 1
'解释: 2 = 1 + 1, 1 × 1 = 1。
'示例 2:
'
'输入: 10
'输出: 36
'解释: 10 = 3 + 3 + 4, 3 × 3 × 4 = 36。
Sub main()
    Debug.Print (integerBreak(13))
End Sub
Public Function integerBreak(n)
    Dim dp()
    ReDim dp(n + 1)
    dp(2) = 1
    For i = 3 To n
        For j = 1 To i - j
            dp(i) = Application.WorksheetFunction.Max(dp(i), Application.WorksheetFunction.Max(j * (i - j), j * dp(i - j)))
        Next
    Next
    integerBreak = dp(n)
End Function