一个动态数组 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