Question

vb将list1和list2相同数字移至list3

Answer 1

Private Sub Form_Load()
   For i = 1 To 10
      List1.AddItem i
      List2.AddItem 2 * i
   Next i
End Sub
Private Sub Command1_Click()
    For i = 0 To List1.ListCount - 1
       For j = 0 To List2.ListCount - 1
          If List1.List(i) = List2.List(j) Then
             List3.AddItem List1.List(i)
             Exit For
          End If
       Next j
    Next i
End Sub

Answer 2

依次遍历两个字符串，遇到相同的字符就取出来存到list3中区。【嵌套循环】

Answer 3

这个list1和list2是数组吗？