Private Function CountArr(arr)'*****************************'计算数组是几维数组'*****************************Dim i%, j%On Error GoTo errFor i = 1 To 10 j = UBound(arr, i)Next iCountArr = jExit Function err: CountArr = 1 On Error GoTo 0End
专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]
Copyright (C)ICode9.com, All Rights Reserved.
ICode9版权所有