填空题

在窗体上画一个名称为Comb01的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示“已成功添加新输入项”，如下图所示。如果输入的项目已存在，则在Label2中给出提示“输入项已在组合框中”。请填空。


Private Sub Combo1_KeyPress(KeyAscii As Integer)
　If KeyAscii=13 Then
　　For i=0 To Combo1.ListCount-1
　　　If Combo1.Text= (10) Then
　　　　Label2.Caption="输入项已在组合框中"
　　　　Exit Sub
　　　End If
　　Next i
　　Label2.Caption="已成功添加新输入项"
　　Combo1. (11) Combo1.Text
　End If
End Sub

点击查看答案