Mega Code Archive
Searches for the object and returns the index of the last occurrence
<![CDATA[
Imports System
Imports Microsoft.VisualBasic
Public Class SamplesArray
Public Shared Sub Main()
Dim myArray As Array = Array.CreateInstance(GetType(String), 12)
myArray.SetValue("1", 0)
myArray.SetValue("2", 1)
myArray.SetValue("3", 2)
myArray.SetValue("4", 3)
myArray.SetValue("5", 4)
myArray.SetValue("6", 5)
myArray.SetValue("7", 6)
myArray.SetValue("8", 7)
myArray.SetValue("4", 8)
myArray.SetValue("10", 9)
myArray.SetValue("11", 10)
myArray.SetValue("12", 11)
PrintIndexAndValues(myArray)
' Searches for the last occurrence of the duplicated value.
Dim myString As String = "4"
Dim myIndex As Integer = Array.LastIndexOf(myArray, myString)
Console.WriteLine(myIndex)
End Sub
Public Shared Sub PrintIndexAndValues(myArray As Array)
Dim i As Integer
For i = myArray.GetLowerBound(0) To myArray.GetUpperBound(0)
Console.WriteLine(myArray.GetValue(i))
Next i
End Sub
End Class
]]>