Mega Code Archive
Searches for the first occurrence of the duplicated value in a section of the Array
<![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)
Dim myString As String = "4"
Dim myIndex As Integer = Array.IndexOf(myArray, myString, 6, 5)
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
]]>