求助一函數:可求出一數組中某值的下標值

---涛声依旧--- 2003-12-03 10:46:40
求助一函數:可求出一數組中某值的下標值。
eg:數組 A(3)
A(0) 管理1部
A(1) 管理2部
A(2) 管理3部
A(3) 管理4部
現在我要通過函數求出 管理3部 在A數組中的下標值2,如何求?
謝謝!
...全文
70 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2003-12-03
  • 打赏
  • 举报
回复
你的问题用集合比数组容易操作:
Private Sub Command1_Click()
Dim a As New Collection
a.Add 0, "管理1部"
a.Add 1, "管理2部"
a.Add 2, "管理3部"
a.Add 3, "管理4部"
MsgBox a("管理3部")
End Sub
飘零风 2003-12-03
  • 打赏
  • 举报
回复
虽然楼上这个方法很笨,但几乎是唯一可行的办法。
3661512 2003-12-03
  • 打赏
  • 举报
回复
for i=0 to ubound(a)
if a(i)="管理3部" then msgbox "管理3部下标为" & i:exit for
next i

7,759

社区成员

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

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