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

高老师1年前 (2024-09-25)Visual Basic程序设计(07759)14

窗体上有一个文本框（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