循环内删除数组中为零或为负的元素

我写的一段程序需要删除数组中为零或为负的元素，整个程序大致的结构如下：
For number = nmin To nmax
   '第一段
   For j = 1 To popsize  
      For i=1 To number
        q(j,i)=...
      Next i
   Next j
   ...'其它操作
   '第二段
   For i=1 To number
      Write #1,q(j,i)=...
   Next i
Next number

所有变量已经定义，现在我需要将第一段循环得到的数组q(number)中为零或为负的元素删除，得到的新数组作为结果输出。但是删除元素后number大小在变，好像又会影响到最外层的循环。所以在纠结删除元素应在第一段程序中完成，还是第一段程序结束后完成。求高手解答，给出具体程序，非常感谢。


     

[ 本帖最后由 tuqin2575 于 2014-1-24 19:58 编辑 ]