一个动态数组 a，如果你已经使用redim 语句给它设定了大小，那么在此之后使用 ubound(a) 就可以得到它的上边界。 如果你没有使用 redim 语句给它设定大小，直接使用 ubound(a) 函数，那么运行时会报错，并会中断程序的执行.我们恰恰利用这一点，可以知道这个数组还没有任何元素。于此同时，我们却不想程序中断执行，那么可以在 ubound(a) 函数执行前加上一句 复制代码 代码如下: on error resume next
把本功能写成一个函数 function get_element_count_of_one_aray(name_of_aray) 复制代码 代码如下: on error resume next uper_bound_of_aray=ubound(name_of_aray) if err then get_element_count_of_one_aray=0 else get_element_count_of_one_aray=uper_bound_of_aray+1 end if end function
