（7 ）设窗体上有一个名称为 Combol 的组合框，并有以下程序：Private Sub Combol_KeyPress（KeyAsci

（7 ）设窗体上有一个名称为 Combol 的组合框，并有以下程序：

Private Sub Combol_KeyPress(KeyAscii As Integer)

If 【 9 】 =13 Then ‘ 回车符的 ASCII 码是 13

For k=0 To Combol.ListCount-1

If Combol.Text= Combol.List(k) Then

Combol.Text= ” ”

Exit For

End If

Next k

If Combol.Text ＜＞ “” Then

Combol.AddItem 【 10 】

End If

End If

End Sub

程序的功能是 ： 在组合框的编辑区中输入文本后按回车键 ， 则检查列表中有无与此文本相同的项目 ， 若有 ，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。