[已解决]数组求非空数量

simengzhixia

qq（0 to 5）=(1,2,3,88,0,0)
我想知道非零数组元素的个数，即   4  怎样求？

最佳答案

月排行榜 / 总排行榜

wayy

2011-7-28 08:51

sub aa
for i = 0 to 5
if qq(i) <> 0 then
   js=js+1
end if
next
msgbox "非零个数：" & js
end sub

跳转到最佳答案楼层

那么的帅

回复 simengzhixia 的帖子

VBA 可以使用循环计数方式完成。

wayy

sub aa
for i = 0 to 5
if qq(i) <> 0 then
   js=js+1
end if
next
msgbox "非零个数：" & js
end sub