Question

vb中如何将list1中和list2中重复的项删除

例如list1中有100行的值，list2中有50行的值，如何先将list2中重复的值删除，再将将list1中和删除重复值后的 list2 中重复的部分删除，且list1中只保留不重复的部分 要求设计一个command的控件，可以重复执行删除重复项，直到没有重复项为止。应该得用到timer控件，给出详细代码，最好能有简要的注释。谢谢啦

Answer 1

''本函数用于删除某个List中重复的项，第二个参数是否区分大小写Private Sub DeleteItem(Byref lst As ListBox, Byval isUl As Boolean) Dim i As Integer, j As Integer For i = 0 To lst.ListCount \ 2 If i > lst.ListCount \ 2 Then Exit For For j = i + 1 To lst.ListCount - 1 If j = lst.ListCount Then Exit For If lst.List(i) = lst.List(j) Or (isUl And UCase(lst.List(i)) = UCase(lst.List(j))) Then lst.RemoveItem j j = j - 1 End If Next NextEnd Sub Private Sub Command1_Click() DeleteItem List2, True Dim i As Integer, j As Integer, isUl As Boolean isUl = True '不区分大小写 For i = 0 To List2.ListCount - 1 For j = 0 To List1.ListCount - 1 If j = List1.ListCount Then Exit For If List1.List(j) = List2.List(i) Or (isUl And UCase(List1.List(j)) = UCase(List2.List(i))) Then List1.RemoveItem j j = j - 1 End If Next NextEnd Sub