vb如何给二维数组赋值