2. 计算机
  3. 窗体上有一个名称为Combo1的组合框。在组合框的文本输入区输入字符串并按回车后，检查该字符串是否在组合框中已存在。若不存在，则将其添加到组合框中。相关的事件过程如下： Private Sub Combo1_KeyPress(KeyAscii As Int

窗体上有一个名称为Combo1的组合框。在组合框的文本输入区输入字符串并按回车后，检查该字符串是否在组合框中已存在。若不存在，则将其添加到组合框中。相关的事件过程如下： Private Sub Combo1_KeyPress(KeyAscii As Int

admin2015-06-30  47
问题 窗体上有一个名称为Combo1的组合框。在组合框的文本输入区输入字符串并按回车后，检查该字符串是否在组合框中已存在。若不存在，则将其添加到组合框中。相关的事件过程如下：
Private Sub Combo1_KeyPress(KeyAscii As Integer)
    Dim flag As Boolean
    If KeyAscii = 13 Then
       flag = False
       For i = 0 To Combo1.ListCount - 1
          If Combo1.Text = Combo1.List(i) Then
            flag = True
            Exit For
          End If
        Next i
        If flag = False Then
          Combo1.AddItem Combo1.Text
        End If
    End If
End Sub
对于上述事件过程，以下叙述中错误的是
选项 A、程序有错，不应该使用Exit For
B、flag为True时，表明输入的字符串已存在
C、参数KeyAscii表示输入字符的ASCII码
D、flag = False的含义是组合框中没有与输入字符串相同的表项
答案A
解析 判断是否回车，可通过判断当前按键ASCII码是否为13, C选项表述正确。通过For循环，利用 If Combo1.Text = Combo1.List(i)语句，依次将输入的文本与组合框中的选项逐一比较，若输入文本和其中一个选项相同，那么flag赋值为True，表明该字符串在组合框中已存在。如果For循环完毕，flag仍为False，意味着字符串在组合框中不存在，则通过Combo1.AddItem Combo1.Text语句将其添加到组合框中。这个程序中，For循环是必要的，A选项表述错误，B，D选项表述正确。
转载请注明原文地址:https://kaotiyun.com/show/0yQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)