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

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

admin2019-03-08  43
问题 窗体上有一个名称为Combo1的组合框，一个名称为Command1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列    表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框    中。现有人编写如下程序，以期实现上述功能：
    Private Sub Command l_Click()
         strl=Trim(Combol．Text)
         flag=0
         Ifstrl＜＞””Then
             For i=0 To Combol．ListCount-1
                 If strl=Combo 1．List(i)Then
                      Combol．Removeltem i：Comb01．Text=””
                      flag=1
                 End If
             Next
             If flag=1 Then
             Combo l．Addltem Combo l．Text
          End If
    End Sub
    程序中存在问题，以下关于程序问题的叙述中，正确的是
选项 A、For循环的循环初值i应该从1开始
B、语句Combo l．Removeltem i有错误
C、语句Combol．Addltem Combol．Text有错，Combol．Text的内容已存在于组合框中
D、应把程序倒数第3行中的Ifflag=1改为Ifflag=0
答案D
解析 本题中首先用一个循环遍历组合框的所有列表项，依次取出每一个列表项与str1进行比较，若相同则删除该项，将flag置为1，否则flag为0；循环结束后如果flag的值为0则说明没有任何一个现有的列表项与str1，相同，需要将str1添加到组合框中，否则不需添加。
转载请注明原文地址:https://www.kaotiyun.com/show/K4Fp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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