将数组中多余的没有初始化的元素或者连续重复的都删除，组成一个新的数组，VB代码怎么写？
http://www.360doc.com/content/13/0905/16/4545623_312422078.shtml