Private Sub Command1_Click()For i = 0 To List2.ListCount - 1 If List2.List(i) = List1.Text Then Exit SubNextList2.AddItem List1.TextEnd SubPrivate Sub Form_Load()For i = 1 To 10 List1.AddItem iNextEnd Sub
添加和删除时候循环判断啊