Существует перегрузка Select, которая добавляет индекс к каждому элементу последовательности:
Dim Letters = new string() {"a","b","c","d","e"}
Dim IndexedLetters = Letters.Select(function (aLetter, index) new with {.Index = index + 1, .Letter = aLetter})
' For LINQPad users : IndexedLetters.Dump
Может ли этот запрос быть записан в нотации запроса?