求解最大子序列和

問題如下，在這串連續數列中 : -7、8、2、9、3、-4、-8、7、9、-5，請找出最大的子序列之和、以及最小的子序列之和，求最大子序列和 ~ MaxSubSum，是用途很廣的敘述統計工具，例如應用於求解 MDD、描述價格資料期間內最大的累積上漲點數...等

Public Function MaxSubArraySum(ByVal InputData As Range, ByVal Output As Variant) As Variant
'Output=1 求解最大子序列和
'Output=-1 求解最小子序列和
Dim ArrDataX() As Variant
Dim DataCount As Variant
Dim ii As Variant
Dim thisSum As Variant
Dim MaxSum As Variant

ArrDataX = InputData '抓取Excel 欄位的數據，存入VBA控制的陣列
DataCount = InputData.Count '記錄抓取的資料筆數

thisSum = 0
MaxSum = 0

For ii = 1 To DataCount
thisSum = thisSum + (Output) * ArrDataX(ii, 1)
If thisSum > MaxSum Then MaxSum = thisSum
If thisSum < 0 Then thisSum = 0
Next 'For ii = 1 To DataCount
MaxSubArraySum = (Output) * MaxSum '求解最大子序列和
End Function