如何计算数组元素个数?

jianluo56 2004-04-22 06:44:07
我用split(array1,",")将一个字符窜分隔到array1中,现要求array1中元素个数,如何求?谢谢!
...全文
767 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2004-04-23
  • 打赏
  • 举报
回复
元素个数:ubound(split(array1,","))+1
KiteGirl 2004-04-22
  • 打赏
  • 举报
回复
我目前用的取数组元素数量的函数写法。(下面是一个Long数组的例子)

Function ArrayCountGet(ByRef pArray() As Long) as Long
Dim tOutCound As Long

Dim tArray_Start As Long
Dim tArray_End As Long

Error.Clear
On Error Resume Next '遭遇空数组时刻的错误处理。

tArray_Start=LBound(pArray())
tArray_End=UBound(pArray())

tOutCound=Abs(tArray_End-tArray_Start)+1 '取绝对值加一。

ArrayCountGet=tOutCound
End Function

上述函数对于一个已经指定下标的数组返回至少为1,如果为0则数组是没有被指定下标的。下面是利用该性质来判断数组是否已经被指定下标。

Function ArrayCheck(ByRef pArray() As Long) As Boolean
ArrayCheck=CBool(ArrayCountGet(pArray()))
End Function
flc 2004-04-22
  • 打赏
  • 举报
回复
x学习
jianluo56 2004-04-22
  • 打赏
  • 举报
回复
如何给分?
hhjjhjhj 2004-04-22
  • 打赏
  • 举报
回复
=ubound(array1)-Lbound(array1)+1
jianluo56 2004-04-22
  • 打赏
  • 举报
回复
谢谢诸位!
Ringfo 2004-04-22
  • 打赏
  • 举报
回复
ubound求上标
Lbound求下标

一般情况下,上标+1就是个数
ukyoxh 2004-04-22
  • 打赏
  • 举报
回复
同上

遇到这种情况最好是在帮助中进行搜索!!
lsftest 2004-04-22
  • 打赏
  • 举报
回复
ubound(array1)

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧