2. 计算机
  3. 窗体上有一个名称为Combo1的组合框，一个名称为Command1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编

窗体上有一个名称为Combo1的组合框，一个名称为Command1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编

admin2015-08-28  57
问题 窗体上有一个名称为Combo1的组合框，一个名称为Command1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能：
Private Sub Command1_Click()
    str1 = Trim(Combo1.Text)
    flag=0
    If str1
= 0 To Combo1.ListCount - 1
            If str1 = Combo1.List(i) Then
                Combo1.RemoveItem i
                Combo1.Text = ""
                fl<> "" Then
        For i ag=1               
            End If
        Next
        If flag=1 Then Combo1.AddItem Combo1.Text
    End If
End Sub
程序中存在问题，以下关于程序问题的叙述中，正确的是
选项 A、For循环的循环初值i应该从1开始
B、语句Combo1.RemoveItem i有错误
C、语句Combo1.AddItem Combo1.Text有错，Combo1.Text的内容已存在于组合框中
D、应把程序倒数第3行中的If flag=1 改为 If flag=0
答案D
解析 组合框的ListCount从0开始；RemoveItem和AddItem后面跟的是索引。根据题意，在没有相同列表项时需要添加，所以语句应该为flag = 0。选D）。
转载请注明原文地址:https://www.kaotiyun.com/show/SeQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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