主题：自定义函数的问题

参考金字塔系统里的自定义均线函数的格式，自己编了一个序列模式下的一个自定义函数，结果输出为0，请高手给看看问题出在哪里。

Function chan_biduan(Formula,high,low)

 
 '防止公式逐周期模式时调用
    If Formula.WorkMode = 0 Then
        Exit Function
    End If
   
    'high数组数据长度一定会与Formula.DataSize-1相等
    DataCount = UBound(high)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function
    End If
 
    '定义计算返回的数组
    Dim Highxiu
    Redim Highxiu(EndPos)
    Dim Lowxiu
    Redim Lowxiu(EndPos)
    Dim Bi
    Redim Bi(EndPos)
   
 xiangbao=0
 
   For Shift = 0 To DataCount
      Bi(Shift)=0   '初始化Bi数组
   Highxiu=High(Shift)
   Lowxiu=Low(Shift)
    
      If Shift>=1 and xiangbao=0 then
          if Highxiu(Shift)>Highxiu(Shift-1) and Lowxiu(Shift)>Lowxiu(Shift-1) then xiangbao=1
          if Highxiu(Shift)<Highxiu(Shift-1) and Lowxiu(Shift)<Lowxiu(Shift-1) then xiangbao=-1
      end if
      if xiangbao=1 then
          if Highxiu(Shift)>=Highxiu(Shift-1) and Lowxiu(Shift)<Lowxiu(Shift-1)  then
             Lowxiu(Shift)=Lowxiu(Shift-1)
          End if
          if Highxiu(Shift)<Highxiu(Shift-1) and Lowxiu(Shift)>=Lowxiu(Shift-1)  then
             Highxiu(Shift)=Highxiu(Shift-1)
          End if
          if Highxiu(Shift)<Highxiu(Shift-1) and Lowxiu(Shift)<Lowxiu(Shift-1)   then
              xiangbao=-1
          end if
      end if
      If xiangbao=-1  then
          if Highxiu(Shift)>Highxiu(Shift-1) and Lowxiu(Shift)<=Lowxiu(Shift-1)  then
             Highxiu(Shift)=Highxiu(Shift-1)
          End if
          if Highxiu(Shift)<=Highxiu(Shift-1) and Lowxiu(Shift)>Lowxiu(Shift-1) then
             Lowxiu(Shift)=Lowxiu(Shift-1)
          End if
          if Highxiu(Shift)>Highxiu(Shift-1) and Lowxiu(Shift)>Lowxiu(Shift-1)  then
             xiangbao=1
          end if
      end if
   Next
  
 
  chan_biduan=Highxiu

End Function

另外试了一下系统举得序列模式下的自定义均线函数，也是输出为0，不知为什么。