窗体上有一个文本框（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 IfEnd Sub
窗体上有一个文本框（Text1）和一个列表框（List1）。下面的程序在按Enter（回车）键后，将文本框的内容加到列表框，如果列表框已经有相同的项目则不添加。
（1）List1.ListCount-1 （2）List1.List（i）=Text1.Text （3）Text1.Text
