[填空题] 在窗体上画一个名称为Combol的组合框,画两个名称分别为Label1和Label2及 Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按<Ente

26 查阅

[填空题] 在窗体上画一个名称为Combol的组合框,画两个名称分别为Label1和Label2及 Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按<Enter>键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”,如下图所示:如果存在,则在 Label2中给出提示“输入项已在组合框中”。请将程序补充完整。 Private Sub Combol_KeyPress(KeyAscii As Integer) If KeyAscii=13 ThenFor i=0 To Combol.ListCount-1 If Combol.Text= 【2】 Then Label2.Caption= "输入项已在组合框中" Exit SubEnd If Next i Label2. Caption = "已成功添加输入项" Combol. 【3】 Combol. Text End If End Sub

参考答案:

Combol. List(i) AddItem

考查对组合框控件的使用,当输入新项后按下<Enter>键,要捕捉键盘的ASCII码应在KeyPress事件中。在Combol的KeyPress事件过程中通过循环判断用户的输入是否已在列表中,所以第二空因填Combol.List(i)。如果用户输入的文本为新的内容,就应该添加到组合框中,应使用AddItem方法。

计算机考试