有两种方式：DIM和REDIM。
DIM定义的是固定个数、数据类型的数组；而REDIM则不同，它可以定义不同类型的数据，也可以定义个数并非固定的数据。比较下面几个例子。 都合法的例子：
Dim myarray(5,2)
Redim myarray(5,2)
前者错误而后者合法的例子：
n=10 n=10
Dim myarray(n)
Redim myarray(n,2)
另外REDIM还可以定义未定类型的数组，如：Redim myarray(10)
B 数组个数
在以DIM或REDIM定义数组时指定的下标，表示的是访问该数组时所容许的最大下标，却不是该数组的个数。实际上，一维数组个数总是等于（最大下标+1），访问时是通过下标从0开始逐个访问的。
比如：Dim myarray(5) 定义的数组元素有6个，分别是：myarray(0)、myarray(1)、myarray(2)、myarray(3)、myarray(4)、myarray(5)。
再如：Redim thisarray(2,5)实际上定义了一个(2+1)*(5+1)=1 8的二维数组。
既然如此，那么，可不可义定义一个只有一个元素的数组呢？答案是：不可以。
如前所说，Redim thisarray(1)定义的数组实际上有(1+1)个数组元素，但类似于: Redim thisarray(0)的语法，错误的。所以，不能定义一个只有一个数组元素的数组。 其实，以上说的只是其默认状况。其实，定义数组可以通过定义下标的起止从而达到定义数组的个数甚至下标的起止编号的。比如：Redim thisarray(1980 to1990)就 定义了一个含有11个元素的数组，下标从1980到1990。
C 关于UBOUND函数
UBOUND返回的是一维数组的最大下标，而不是元素个数。 比如：Dim Myarray(5)，那么UBOUND(Myarray)返回的值是5，而不是6。 UBOUND也可以应用于二维数组。应用于二维数组时，它返回的是第一个下标的最大值。
比如：Dim Myarray(6,3)，
那么UBOUND(Myarray)返回的值是6，而不是7，更不是18（6*3=18）。
若要返回第二个下标的最大值，则使用：UBOUND(Myarray,2)。
与UBOUND相对应的是另外一个函数：LBOUND，它返回数组的最小下标。与UBOUND类似，LBOUND(Myarray,2)则返回数组MYARRAY的第二个下标的最小值。所以，准确地说，一维数组Myarray的元素个数为：UBOUND(Myarray)-LBOUND(Myarray)+1，而二维数组的元素个数则为：
(UBOUND(Myarray)-LBOUND(Myarray)+1)*(UBOUND(Myarray,2)-LBOUND(Myarray,2)+1)
多维数组依此类推。
呵呵，希望加入精华。
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
