第2个回答 2013-08-06
私人小组Form_Load中()
暗淡(4)整数
一(0)= 0
一(1)= 1
一(2)= 2
(3)= 3
对i = 0 UBOUND(removearray(一,2)) -
:Debug.Print removearray(,2)(一)
下一页
END SUB
专用功能removearray(()整数,作为整数的指数)
= 0
对于i = 0到UBOUND (一) - 1
如果我>指数
一(J)= A(I)
当J = J + 1
最后如果
>
removearray =()
端功能本回答被提问者和网友采纳