level 5
![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
要判断是否重复，需要写个循环：
For i = 0 To List1.ListCount - 1
If n = List1.List(List1.ListIndex) Then Exit For
Next i
If i = List1.ListCount Then MsgBox "重复" Else List1.AddItem n
当然，题目还要判断输入内容是否为空，那么条件改成 i = List1.ListCount Or n = "" 就可以了
level 15
n=n笑死，这不就是个恒等式么
要判断是否重复，需要写个循环：
For i = 0 To List1.ListCount - 1
If n = List1.List(List1.ListIndex) Then Exit For
Next i
If i = List1.ListCount Then MsgBox "重复" Else List1.AddItem n
当然，题目还要判断输入内容是否为空，那么条件改成 i = List1.ListCount Or n = "" 就可以了
2021年11月27日 02点11分
2
要判断是否重复，需要写个循环：
For i = 0 To List1.ListCount - 1
If n = List1.List(List1.ListIndex) Then Exit For
Next i
If i = List1.ListCount Then MsgBox "重复" Else List1.AddItem n
当然，题目还要判断输入内容是否为空，那么条件改成 i = List1.ListCount Or n = "" 就可以了
可是弹出提示框后 输入重复的内容依旧会输入到列表框 这是为什么啊
2021年11月27日 02点11分
@a530687112 好吧，我把条件写错了，应该是i<List1.ListCount才有重复
2021年11月27日 02点11分
2021年11月27日 03点11分
![[泪]](/static/emoticons/u6cea.png)
@a530687112 嘛，我这次写的代码错误有点多……前一个If的条件应该是n=List1.List(i)，怎么写了个ListIndex上去
2021年11月27日 03点11分
level 5
a530687112
楼主
你可以输入一个不重复的，看看是不是会不弹窗但是一下子添加进去两个同样的内容如果是，请自行思考原因；如果不是，请发出你的完整代码
2021年11月27日 04点11分
如果是，请自行思考原因；如果不是，请发出你的完整代码