首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2015-11-24
41
问题
窗体上有一个名称为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全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Text1.Text=p2(p1
下列程序段的运行结果是()。Subsele()DimnAsIntegeri=21:n=3DoWhilei>ni=i-nLoopPrintiEndSub
按照“先进先出”组织数据的数据结构是()。
假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项不可见,应使用的语句为()。
若要设置文本框中所显示的文本颜色,使用的属性是()。
下列()符号不能作为VB中的变量名。
Jackson方法是一种面向______的结构化方法。
下列选项中,不属于模块间耦合的是
在一个容量为32的循环队列中,若头指针front=3,尾指针rear=2,则该循环队列中共有______个元素。
队列是限定在表的一端进行插入和在另一端进行删除操作的线性表。允许插入的一端称作______。
随机试题
Recentyearshavewitnessedanincreaseinthenumberofpeoplewhofeelguiltyorashamedaboutwhattheyperceivetobenegati
在多式联运合同中,各实际承运人在运送中造成迟延或者旅客或货物的损害时,承担赔偿责任的主体是()
痉挛对患者的不利影响不包括
给予研究对象某种干预措施的研究是一般而言,流行病学研究的起点是
地籍图属于大比例尺图,()不适应其比例尺。
某商品单价为“每件CIF净价伦敦30英镑”指的是()。
甲股份有限公司(本题下称“甲公司”)为上市公司,20×7年至20×9年与企业合并、长期股权投资有关的资料如下:(1)20×7年1月20日,甲公司与无关联关系的丙公司(非上市公司)签订购买其20%股权的合同,支付购买价款2000万元。(2)
城市是人类文明精华的汇聚之地,数千年来政治、经济、文化和科技的光芒在此交相辉映,然而演进至今,城市却遭遇各种挑战,诸如人口膨胀、饮水卫生、安全隐患、环境污染和交通拥挤等问题日益凸显。如果不加以有效解决,这些问题终将严重制约城市的发展。这段文字的主旨是(
某ARM汇编语言程序要调用子程序,子程序名为MySubrutine,则调用该子程序的指令为__________【55】,子程序返回调用程序的指令为__________【56】。
Whatdoweknowabouttheoriginoflanguage?
最新回复
(
0
)