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

admin2015-11-24 29

问题窗体上有一个名称为Combo1的组合框，一个名称为Command1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能：
Prirate Sub Commandl ClickO
strl=Trim(Combol．Text)
flag=0
If strl<>“”Then
For i=0 To Combol．ListCount-1
Ifstrl=

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

答案D

解析本题中首先用一个循环遍历组合框的所有列表项，依次取出每一个列表项与strl进行比较，若相同则删除该项，将flag置为1，否则flag为0；循环结束后如果flag的值为0则说明没有任何一个现有的列表项与strl相同，需要将strl添加到组合框中，否则不需添加。

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

二级VB

NCRE全国计算机二级

某程序列表框中有许多项，现在用Timer控件控制时间，0.1秒删除一项，直到删完为止，用一滚动条来显示删除的项目，请选择合适的语句，完成此程序()。PrivateSubCommand2_Click()HSeroll1.Min=0HScro

程序运行时，用户向文本框输入内容时，将触发文本框的()事件。

假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项不可见，应使用的语句为()。

下列叙述中正确的是()。

如果A为整数，且|A|＞=100，则打印"OK"，否则打印"Error"，表示这个条件的单行格式If语句是()。

DefSnga定义的变量a是______类型的变量。

VisualBasic中有一种控件组合了文本框和列表框的特性，这种控件是______。

下面子过程语句说明合法的是()。

下面程序执行时，输出的结果是()。PrivateSubForm_Click()DimiASInteger,jAsIntegeri=10Doi=i+jforj=10

队列是限定在表的一端进行插入和在另一端进行删除操作的线性表。允许插入的一端称作______。

WefindthefollowinglanguagesintheCelticexcept______.()

硅胶／氧化铝作为吸附剂用于分离化合物时，具有的特点为

下列各组物质在一定条件下反应，可以制得比较纯净的1，2-二氯乙烷的是：

杠杆比率包括()。

Themotoristhadto______toavoidknockingtheoldwomandowninthemiddleoftheroad.[2000]

某金矿公司预计三个月后将出售黄金，故先卖出黄金期货，价格为298美元，出售黄金时的市价为308美元，同时以311美元回补黄金期货，其有效黄金售价为()。