vb中array函数怎么赋值