提取最值与中介值

     我记得老师的过程好像是这个：

  dim m as integer

dim a(9) as integer

 print str(ubound(a))

 print str (  ( ubound(a)-lbound(a)+1 )  \  2   )

  dim larray() as integer

redim larray(0 to m)

 redim rarry(0 to ubound(a)-m)

 for i= 0 to 9

  a(i)=i

next  i

call copy (a,0,m,larray)

  for i =0 to ubound(larray)

 print str(larray(i))

next i

end sub

sub copy(a()as integer,m as integer, n as integer,b() as integert)

  dim i as integer for i= m to n

b(i-m)=a(i)

next i

end sub

心得体会：按这样来写，可以得出所求结果，但是每次都说“下标越界”我知道 b(i-m)=a(i) 这一行错了，但是不会改，望老师指点。

      另外我觉得这道题只写到第四行就可以得出结果了，为什么还写后面这些？这样写不是更复杂了吗？？