在窗体上画一个名称为Combo1的组合框,然后画两个名称分别为Label1、Label2,标题分别为“城市名称”和“空白”的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在La

admin2012-09-07  23

问题 在窗体上画一个名称为Combo1的组合框,然后画两个名称分别为Label1、Label2,标题分别为“城市名称”和“空白”的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在Label2中给出提示“已成功添加新输入项”,如图所示。如果输入的项目己存在,则在Label2中给出提示“输入项已在组合框中。”。请填空。
   
Private Sub Combol KeyPress(KeyAscii As Integer)
    If______________=13 Then
         For i=0 To Combol.ListCount-1
               If Combol.Text=______________Then
                    Label2.Caption=“输入项已在组合框中。”
                    ExitSub
               EndIf
         Nexti
         Label2.Caption=”已成功添加新输入项”
         Combol._____________Combol.Text
     EndIf
End Sub

选项

答案KeyAscii Combol.list(i) Admtem

解析 本题考查组合框操作。在组合框的键盘按下事件中,如果按下了回车键,也就足KeyAscii的值为13时,开始扫描整个组合框中现有的列表项信息,如果在组合框的Text属性输入的字符串和Combol.List(i)相同,则不需要加入到组合框中,否则利用AddItem方法加入到组合框中。
转载请注明原文地址:https://kaotiyun.com/show/CRhp777K
0

最新回复(0)