Question

几天来我一直在努力做家庭作业的最后一部分，但我已经受够了。对于我的作业，我需要从一个列表中取出项目，然后将它们放在另一个已经排序的列表中。问题是对于第二部分，我需要删除重复项，而我似乎做不到。有人可以帮帮我吗？我只想循环。这是下面的代码：

'Private Sub btnRemove_Click(sender As Object, e As EventArgs) Handles btnRemove.Click
    Dim Duplicate As String = lstInitial.Text
    Dim counter As Integer = 0

    lstFinal.Items.Clear()
    lstFinal.Sorted = True

    For i As Integer = 0 To (lstInitial.Items.Count - 1)
        lstFinal.Items.Add(lstInitial.Items(i))

    Next

    For n As Integer = 0 To (lstFinal.Items.Count - 1)
        lstFinal.Items.Remove(n)
    Next
End Sub`

Answer 1

我应该说，您的导师并没有真正向您展示现实世界的良好实践。通常最好在将信息添加到最终列表之前检查重复项。

所以添加数据的代码应该是

For i As Integer = 0 To lstInitial.Items.Count - 1
    If Not lstFinal.Items.Contains(lstInitial.Items(i)) Then
        lstFinal.Items.Add(lstInitial.Items(i))
    End If
Next

哦，您不需要在循环终点参数周围加上括号

我无法从列表中删除重复的项目

1 个答案: