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

admin2016-06-23  35

问题 窗体上有一个名称为Combo1的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编写如下程序,以期实现上述功能:
Private Sub Command1_Click()
str1=Trim(Combo1.Text)
flag=O
If str1< >""Then
For i=0 To Combo1.ListCount-1
If str1=Combo1.List(i) Then
Combo1.RemoveItem i
Combo1.Text=""
flag=1
End If
Next
If flag=1 Then Combo1.Addhem
Combo1.Text
End If
End Sub
程序中存在问题,以下关于程序问题的叙述中,正确的是

选项 A、For循环的循环初值i应该从1开始
B、语句Combo1.Removeltem i有错误
C、语句Combo1.Addltem Combo1.Text有错,Combo1.Text的内容已存在于组合框中
D、应把程序倒数第3行中的If flag=1改为If flag=0

答案D

解析 组合框的LastCount从0开始;RemoveItem和AddItem后面跟的是索引。根据题意,在没有相同列表项时需要添加,所以语句应该为flag=0。选D。
转载请注明原文地址:https://kaotiyun.com/show/1vLp777K
0

最新回复(0)