数组里面有trim函数么？

Question

数组里面有trim函数么？怎么把数组里面所有为0的开头和结束的数据从数组中删除呢？

Answer 1

 dim newarr(lbound(arr) to ubound(arr))
dim j as integer = 0
for i = lbound(arr) to ubound(arr)
if arr(i) <> 0 then newarr(j) = arr(i) : j = j + 1
next
redim newarr(lbound(arr), j - 1)