窗体上有一个文本框（Text1）和一个列表框（List1）。下面的程序在按Enter（回车）键后，将文本框的内容加到列表框，如果列表框已经有相同的项目则不添加。
Private Sub Text1_KeyPress（KeyAscii As Integer)
Dim I As Integer
 
If KeyAscii = 13 Then
‘查找是否有相同的项目
For I =O To (l)________
If(2)__________Then
Exit Sub
End If
Next
List1.Addltem(3)________
End If
End Sub
 

窗体上有一个文本框（Text1）和一个列表框（List1）。下面的程序在按Enter（回车）键后，将文本框的内容加到列表框，如果列表框已经有相同的项目则不添加。