Imports System
Imports System.Collections
Imports Microsoft.VisualBasic
Public Class MainClass
Public Shared Sub Main()
Dim myAL As New ArrayList()
myAL.Add("the")
myAL.Add("quick")
myAL.Add("brown")
myAL.Add("fox")
myAL.Add("jumps")
myAL.Add("over")
myAL.Add("the")
myAL.Add("lazy")
myAL.Add("dog")
myAL.Add("in")
myAL.Add("the")
myAL.Add("barn")
Console.WriteLine("The ArrayList contains the following values:")
PrintIndexAndValues(myAL)
Dim myString As [String] = "the"
Dim myIndex As Integer = myAL.IndexOf(myString)
Console.WriteLine("The first occurrence of ""{0}"" is at index {1}.", myString, myIndex)
myIndex = myAL.IndexOf(myString, 4)
Console.WriteLine(myIndex)
myIndex = myAL.IndexOf(myString, 6, 6)
Console.WriteLine(myIndex)
myIndex = myAL.IndexOf(myString, 11)
Console.WriteLine(myIndex)
End Sub
Public Shared Sub PrintIndexAndValues(ByVal myList As IEnumerable)
Dim i As Integer
Dim obj As [Object]
For Each obj In myList
Console.WriteLine("[{0}]:{1}", i, obj)
i = i + 1
Next obj
End Sub
End Class
|