VB6を使用して配列の最後の値を返す方法

Question

配列内の値の最後の出現のインデックスを返す必要があります。 私はこれを試しましたが、動作しません。私は間違って何をしていますか？

最後のインデックスではありません。配列内に含まれる特定の値の最後のインデックスを探しています。あなたはこれを試すことができ、この場合には、それは価値の最後のインデックスとなり3を返す必要があり、ゼロベースの配列で「この」

が、これは3

Dim ary() As Variant 
    Dim stg as string 
    stg = "this,one,is,this,going,to,be,fun" 
    ary = Split(stg, ",") 

    MsgBox (ary.LastIndexOf(ary, "this")) 

Answer 1

を返す必要があります。 Variant配列から文字列に変更し、FindLast関数を作成しました。

Sub test() 

    Dim ary() As String 
    Dim stg As String 
    Dim i As Integer 

    stg = "this,one,is,this,going,to,be,fun" 
    ary = Split(stg, ",") 

    MsgBox FindLast(ary, "this") 

End Sub 

Private Function FindLast(ary() As String, value As String) As Integer 

    For i = UBound(ary) To 0 Step -1 
    If ary(i) = value Then 
     FindLast = i 
     Exit For 
    End If 
    Next 

End Function