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

[---涛声依旧---]

求助一函數:可求出一數組中某值的下標值。
eg:數組 A(3)
A(0) 管理1部
A(1) 管理2部
A(2) 管理3部
A(3) 管理4部
現在我要通過函數求出 管理3部 在A數組中的下標值2,如何求?
謝謝!

[3661512]

for i=0 to ubound(a)
if a(i)="管理3部" then msgbox "管理3部下标为" & i:exit for
next i

[飘零风]

虽然楼上这个方法很笨，但几乎是唯一可行的办法。

[northwolves]

你的问题用集合比数组容易操作：
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