题目
一个文本框，一个列表框，一个按钮

在文本框内输入文本，点击按钮添加至列表框，如果文本内容与列表框中的某一项重复则不能输入，求代码。

本人初学者，手头资料极为有限，请各位不吝赐教。

会循环不?

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
If Text1.Text = List1.List(i) Then Exit Sub
Next
List1.AddItem Text1.Text
End Sub

会
可是代码不会打，我想象的与正确的差距太大

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1 如果我将这里的ListCount - 1改为listindex，为什么结果就不对？
If Text1.Text = List1.List(i) Then Exit Sub
Next
List1.AddItem Text1.Text
End Sub

listindex 返回或设置控件中当前选择项目的索引

这些东西 要自己到MSDN查 任何基础教材都有 在这里问 大多都懒的理你的