阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在对应栏内。 【说明】 在窗体上画一个名称为Combo1的组合框,画两个名称分别Labe11、Labe12及Caption属性分别为“城市名称”和空白的标签。程序运

admin2009-02-15  29

问题 阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在对应栏内。
   【说明】
   在窗体上画一个名称为Combo1的组合框,画两个名称分别Labe11、Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键 (ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Labe12中给出提示“已成功添加输入项”;如果存在,则在Labe12中给出提示“输入项已在组合框中”。
  【程序】
    Private Sub Combo1  (1)  (KeyAscii As Integer)
       If KeyAscii=(2)  Then
           For i=0 To  (3)  
               If Combo1. Text=(4)  Then
                   Labe12. Caption ="输入项已在组合框中"
                   Exit Sub
               End If
         Next i
         Label2. Caption ="已成功添加输入项"
         Combo1.  (5)  Combo1.Text
        End If
   End Sub

选项

答案(1)KeyPress (2) 13 (3) Combol.ListCount-1 (4) Combol. List (i) (5) AddItem

解析 根据题意,“在组合框中输入一个新项后按回车键(ASCII码为13)时…”,因此Combol的事件名称应是Combol_KeyPress,即(1)空填"KeyPress”;(2)空判断按键是否是回车键,填“13”;如果是,再穷举组合框的所有列表项(即、(3)空填“Combol.ListCount-1”),查看是否有等于输入项Combol.Text(即(4)空填“Combol.LisL(i)”),有则在 Labe12中给出提示“输入项已在组合框中”,否则在Labe12中给出提示“已成功添加输入项”,并将输入项(Combol.Text)添加到组合框中,即 (5)空填"AddItem”。
转载请注明原文地址:https://jikaoti.com/ti/ZkW7FFFM
0

最新回复(0)