新手急求一个最简单的循环

Question

listbox1中有（1,2,4,）listbox2中有（1,3） 一个button按钮。如何实现listbox3中出现相同的数字（1），listbox4中出现（2,4,），listbox5中出现（3）
会写其中相同的数字。
  Dim i As Integer
        Dim j As Integer
        Dim ss
        Dim bb
        For i = 0 To ListBox1.Items.Count - 1
            For j = 0 To ListBox2.Items.Count - 1
                ss = ListBox1.Items(i)
                bb = ListBox2.Items(j)
                If ss = bb Then
                    ListBox3.Items.Add(ss)
                End If
            Next j
        Next i

Answer 1

Option Explicit
Private Declare Function SendMessagebyString Lib "user32" Alias "SendMessageA" (ByVal hWND As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As LongPrivate Const LB_FINDSTRINGEXACT = &H1A2Private Sub Command1_Click()
Dim i As Long
    
    List3.Clear
    List4.Clear
    For i = 0 To List1.ListCount - 1
        If -1 = SendMessagebyString(List2.hWND, LB_FINDSTRINGEXACT, -1, List1.List(i)) Then
            List4.AddItem List1.List(i)
        Else
            List3.AddItem List1.List(i)
        End If
    Next i
    
    List5.Clear
    For i = 0 To List2.ListCount - 1
        If -1 = SendMessagebyString(List3.hWND, LB_FINDSTRINGEXACT, -1, List2.List(i)) Then
            List5.AddItem List2.List(i)
        End If
    Next i
End Sub