次級AAA級()
Dim I壹樣長，N壹樣長，M壹樣長
最大尺寸為單個，Ar，Br
列(“I:M”)。清除內容
ar = Range(" A2:F " & amp；[A65536]。結束(3)。行)
Br = Range("G2:M6 ")
對於I = 1至UBound(Ar)
選擇案例Ar(I，1)
案例Br(1，1)到Br(1，2)
N = 1
案例Br(2，1)至Br(2，2)
N = 2
案例Br(3，1)至Br(3，2)
N = 3
案例Br(4，1)至Br(4，2)
N = 4
案例Br(5，1)至Br(5，2)
N = 5
其他情況
N = 0
結束選擇
如果N & lt& gt那麽0
Br(N，3) = Ar(I，2) + Br(N，3)
Br(N，4) = Ar(I，3) + Br(N，4)
Br(N，5) = Ar(I，4) + Br(N，5)
Br(N，6) = Ar(I，5) + Br(N，6)
Br(N，7) = Ar(I，6) + Br(N，7)
如果…就會結束
然後
對於I = 1到5
最大值= 0
對於N = 3到7
如果Br(I，N)>Max然後Max = Br(I，N)
然後
Br(I，3) = Max
然後
Range("G2:I6") = Br
末端接頭
下面這個就不用了。
次級AAA級()
& ampnbsp& ampnbsp& ampnbsp& ampnbspDim I壹樣長，N壹樣長，M壹樣長
& ampnbsp& ampnbsp& ampnbsp& ampnbsp最大尺寸為單個，Ar，Br
& ampnbsp& ampnbsp& ampnbsp& ampnbsp列(“我”)。清除內容
& ampnbsp& ampnbsp& ampnbsp& ampnbspar = Range(" A2:F " & amp；amp[A65536]。結束(3)。行)
& ampnbsp& ampnbsp& ampnbsp& ampnbspBr = Range("G2:M6 ")
& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 1
& ampnbsp& ampnbsp& ampnbsp& ampnbsp對於I = 1至UBound(Ar)
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp選擇案例Ar(I，1)
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp案例Br(1，1)到Br(1，2)
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 1
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp案例Br(2，1)至Br(2，2)
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 2
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp案例Br(3，1)至Br(3，2)
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 3
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp案例Br(4，1)至Br(4，2)
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 4
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp案例Br(5，1)至Br(5，2)
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 5
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp其他情況
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspN = 0
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp結束選擇
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp如果N & amplt；& ampgt；那麽0
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspBr(N，3) = Ar(I，2) + Br(N，3)
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspBr(N，4) = Ar(I，3) + Br(N，4)
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspBr(N，5) = Ar(I，4) + Br(N，5)
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspBr(N，6) = Ar(I，5) + Br(N，6)
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspBr(N，7) = Ar(I，6) + Br(N，7)
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp如果…就會結束
& ampnbsp& ampnbsp& ampnbsp& ampnbsp然後
& ampnbsp& ampnbsp& ampnbsp& ampnbsp對於I = 1到5
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp最大值= 0
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp對於N = 3到7
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspIf Br(I，N)& amp；gt；Max然後Max = Br(I，N)
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp然後
& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbsp& ampnbspBr(I，3) = Max
& ampnbsp& ampnbsp& ampnbsp& ampnbsp然後
& ampnbsp& ampnbsp& ampnbsp& ampnbspRange("G2:I6") = Br
末端接頭