LIST1和LIST2对比，找出LIST1在LIST2中没有的，然后加到LIST3中

LIST1中的内容
list1.list(0)="张三"
list1.list(1)="李四"
list1.list(2)="小明"

LIST2中的内容
list2.list(0)="小李"
list2.list(1)="张三"
list2.list(2)="李四"

COMMAND1代码
Private Sub Command1_Click()
Dim a, b

For a = 0 To List1.ListCount - 1
  For b = 0 To List2.ListCount - 1
   
    If List1.List(a) <> List2.List(b) Then
       List3.AddItem List1.List(a)
    End If
  Next
  Next

End Sub

现在是点了COMMAND1 LIST3中有相同的
LIST3中的内容
list3.list(0)="张三"
list3.list(1)="张三"
list3.list(2)="李四"
list3.list(3)="李四"
list3.list(4)="小明"
list3.list(5)="小明"
list3.list(6)="小明"

我想要的结果是：LIST3
应该只有
list3.list(0)="小明"

不知道怎么写代码，小弟是新手，想了3天也没有想到。

没有人回复我，还是我没有表达清楚？？？

你算法有问题，你再想想。

Private Sub Command1_Click()
Dim a, b,flag
flag=0
For a = 0 To List1.ListCount - 1
  For b = 0 To List2.ListCount - 1
    If List1.List(a) = List2.List(b) Then
       flag=1
    End If
  Next
  if flag=0 then
    List3.AddItem List1.List(a)
  end if
 Next
End Sub
这段应该就行了，我没试

反正List3.AddItem 的执行次数应该是某个List的ListCount，或者更少

突然发现上面错了应该是这个
Private Sub Command1_Click()
Dim a, b,flag
For a = 0 To List1.ListCount - 1
  flag=0
  For b = 0 To List2.ListCount - 1
    If List1.List(a) = List2.List(b) Then
       flag=1
    End If
  Next
  if flag=0 then
    List3.AddItem List1.List(a)
  end if
Next
End Sub

谢谢 wangtuan7788 和所有给我回复的朋友.

思路很好,学习..