vb.net:“for each”中的索引号

IndexOf method .

For Each El in Collection
   Write(Collection.IndexOf(El) & " = " & El)
Next

Dim i as Integer = 0
For Each obj In myList
    'Do stuff
    i+=1
Next

如果您需要索引,那么for循环是最直接的选项,并且具有很好的性能。除了你提到的备选方案之外,你还可以使用 Select

Dim list = Enumerable.Range(1, 10).Reverse() ''# sample list
Dim query = list.Select(Function(item, index) _
                           New With { .Index = index, .Item = item })
For Each obj In query
    Console.WriteLine("Index: {0} -- Item: {1}", obj.Index, obj.Item)
Next