请将程序补充完整。 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