Private Function ARRAYINDEX(tempStr As String, SCS() As String) As Integer
Dim i As Integer
ARRAYINDEX = -1
For i = LBound(SCS()) To UBound(SCS())
If SCS(i) = tempStr Then
ARRAYINDEX = i
End If
Next iEnd FunctionSCS(1) = "AAA"
SCS(2) = "BBB"
SCS(3) = "CCC"Text1.Text = ARRAYINDEX("CCC", SCS())运行结果为3
Dim i As Integer
ARRAYINDEX = -1
For i = LBound(SCS()) To UBound(SCS())
If SCS(i) = tempStr Then
ARRAYINDEX = i
End If
Next iEnd FunctionSCS(1) = "AAA"
SCS(2) = "BBB"
SCS(3) = "CCC"Text1.Text = ARRAYINDEX("CCC", SCS())运行结果为3
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货