我是在调试，所以想看看中间计算的结果，我想问的是我的代码应该没有什么问题，可是为什么不循环呢

  Dim SAdd As Boolean
  I = 0 '断面
  Open App.Path & "\jilu.txt" For Input As #1

...
        Case Is = 4
          'SAdd = Not (SAdd)
          'If SAdd = False Then I = I + 1
          I = I + 1
          L(I) = Val(temp(1))
...

再把二维数组定义为固定的