【说明】 在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11、Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键 (ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”；如果存在，则在Labe12中给出提示“输入项已在组合框中”。 【程序】 Private Sub Combo1 (1) (KeyAscii As Integer) If KeyAscii= (2) Then For i=0 To (3) If Combo1. Text= (4) Then Labe12. Caption ="输入项已在组合框中" Exit Sub End IfNext iLabel2. Caption ="已成功添加输入项"Combo1. (5) Combo1.TextEnd If End Sub