如果你没有使用 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