主要用到了ubound(數組的名稱) 這個函數，這個函數用來求數組的上邊界。一個動態數組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