> [填空题] 在窗体上画一个名称为Combo1的组合框,然后画两个名称分别为Labe1、Label2,标题分别为"城市名称"和空白的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在Label2中给出提示"已成功添加新输入项。",如图所示。如果输入的项目已存在,则在Label2中给出提示"输入项已在组合框中。"。 请填空。Private Sub Combol_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then For i=0 To Combo1.ListCount-1If Combo1.Text=【 】ThenLabel2.Caption="输入项已在组合框中。"Exit SubEnd IfNext i Label2.Caption="已成功添加新输入项。"Combo1.【 】Comb01.TextEnd If End Sub
问题：
发布时间：2022-07-01
[填空题] 在窗体上画一个名称为Combo1的组合框,然后画两个名称分别为Labe1、Label2,标题分别为"城市名称"和空白的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在Label2中给出提示"已成功添加新输入项。",如图所示。如果输入的项目已存在,则在Label2中给出提示"输入项已在组合框中。"。 请填空。Private Sub Combol_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then For i=0 To Combo1.ListCount-1If Combo1.Text=【 】ThenLabel2.Caption="输入项已在组合框中。"Exit SubEnd IfNext i Label2.Caption="已成功添加新输入项。"Combo1.【 】Comb01.TextEnd If End Sub
请填空。Private Sub Combol_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then For i=0 To Combo1.ListCount-1If Combo1.Text=【 】ThenLabel2.Caption="输入项已在组合框中。"Exit SubEnd IfNext i Label2.Caption="已成功添加新输入项。"Combo1.【 】Comb01.TextEnd If End Sub