填空题

在窗体上画一个名称为Combo1的组合框,画两个名称分别为Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”,如果存在,则在Label2中给出提示“输入项已在组合框中”。如下图所示:


请将程序补充完整。
Private Sub Combo1 (14) (KeyAscii As Integer)
 If Key Ascii=13 Then
  For i=0 To Combo1.ListCount-1
  If Combo1.Text= (15) then
  Label2.Caption="输入项己在组合框中"
  Exit Sub
  End If
  Next i
  Label2.Caption="已成功添加输入项"
  Combo1.AddItem Combo1.Text
  End If
End Sub

【参考答案】

KeyPress
热门 试题

填空题
定义该变量的窗体
填空题
Until i=2或Until i>=2
相关试题