在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11和Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按(Enter)键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自

admin2009-02-13 59

问题在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11和Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按(Enter)键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”，如图20-3所示；如果存在，则在Labe12中给出提示“输入项已在组合框中”。请在【】、【】和【】处将程序补充完整。

Private Sub Combo1【  】(KeyAscii As Integer)
   If KeyAscii=13 Then
      For i=0 To Combo1；ListCount-1
         If Combo1．Text=【  】Then
            LabeCaption="输入项已在组合框中"
            Exit Sub
         End If
      Next i
      LabeCaption="已成功添加输入项"
      Combo1．【  】Combo1．Text
   End If
End Sub

选项

答案KeyPress , Comb01．List(i) , AddItem

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

转载请注明原文地址:https://kaotiyun.com/show/Z61p777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

0

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)