批量将数组中的数据向前移动，把前面空0的位置补齐，应该怎么用VB实现？

批量将数组中的数据向前移动，把前面空0的位置补齐，应该怎么用VB实现？

可以先找到不为0的位置，下标-1，直接从前往后复制数组