vb动态数组定义及赋值