VB怎么把二维数组转换为多个一维数组，然后分别作为参数传给调用的函数中？