VB.NET中如何移除ListBox内的非重复项？新手编程求助

嘿，我来帮你排查代码里的问题，顺便给你靠谱的解决方案！

你的代码为什么出错？ #

你的思路是想成对检查元素，但这里有两个关键问题：

1. 索引越界与循环逻辑缺陷
   你用了Step 2来跳着遍历，但删除元素后，ListBox1.Items.Count会立刻减少，可你的循环上限还是初始的Count-1。比如你的示例列表有7个元素，当删除索引4的58后，列表只剩6个元素，接下来循环到i=6时，i+1=7就超出了列表的实际范围，程序会直接抛出索引错误，导致代码没执行完，58可能根本没被成功移除。

2. 容错性不足
   你的代码默认所有重复元素都是连续成对的，而且列表长度是偶数。但如果非重复条目出现在列表末尾（比如只剩最后一个元素），Step 2的循环根本不会处理到它。

两种靠谱的解决方案 #

方案1：统计次数法（通用且清晰，推荐新手） #

先统计每个条目的出现次数，再反向遍历ListBox移除只出现一次的条目（反向遍历能避免删除元素后索引混乱的问题）：

' 第一步：统计每个条目的出现次数
Dim countDict As New Dictionary(Of String, Integer)()
For Each item In ListBox1.Items
    Dim itemStr As String = item.ToString()
    If countDict.ContainsKey(itemStr) Then
        countDict(itemStr) += 1
    Else
        countDict(itemStr) = 1
    End If
Next

' 第二步：反向遍历移除非重复条目
For i = ListBox1.Items.Count - 1 To 0 Step -1
    Dim currentItem As String = ListBox1.Items(i).ToString()
    If countDict(currentItem) = 1 Then
        ListBox1.Items.RemoveAt(i)
    End If
Next

这个方法不管条目是否连续重复都能正确工作，容错性很强，适合你的场景。

方案2：针对连续重复条目的优化版 #

如果你的ListBox条目始终是连续成对重复的（像示例那样），可以用While循环动态调整索引：

Dim i As Integer = 0
While i < ListBox1.Items.Count
    ' 处理最后一个单独的元素
    If i = ListBox1.Items.Count - 1 Then
        ListBox1.Items.RemoveAt(i)
    ' 当前元素和下一个不相等，删除当前元素
    ElseIf ListBox1.Items(i).ToString() <> ListBox1.Items(i + 1).ToString() Then
        ListBox1.Items.RemoveAt(i)
    ' 元素成对，跳过这两个
    Else
        i += 2
    End If
End While

这个方法不需要额外统计次数，直接遍历处理，适合你这种固定连续重复的场景。

内容的提问来源于stack exchange，提问作者topi