集合已修改；可能无法执行枚举操作 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

你的问题应该不是顺着删还是倒着删，

而是不能对同一个字典同时进行遍历+删除

你改进的代码里，遍历和删除分离了，所以就没事了

Dim zd As New Dictionary(Of Integer, String)

zd.Add(1,"苹果")

zd.Add(2,"香蕉")

zd.Add(3,"波罗")

zd.Add(4,"桔子")

zd.Add(5,"桃子")

Dim kList As new List(of Integer)

For Each k As Integer In zd.keys

If k Mod 2 = 0 Then

kList.add(k)

End If

For i As Integer = 0 To kList.Count-1 //改成这样，结果也一样正常

zd.Remove(i)

For Each k As Integer In zd.keys

output.show(zd(k))

主题：集合已修改；可能无法执行枚举操作