用array函數，壹個array可以代表壹個壹維數組，相互嵌套就可以表示多維，如下面創建壹個兩維數組。
Dim hz
hz = Array(Array(1, 6, 37, 38, 39, 40), Array(1, 6, 37, 38, 39, 40))
特別註意：引用時不能用壹般的二維數組比如 hz(1,2) 的方式去引用，而是用 hz(1)(2)的方式。而且數組下標都是默認從0開始的。如果要方便從1開始，我感覺也只能用循環逐個賦值的方法，如樓下的做法。