首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combol的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combol的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2020-04-18
46
问题
窗体上有一个名称为Combol的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编写如下程序,以期实现上述功能:
flag=0
For i=0 To Combol.ListCount=1
If strl=Combol.List(i)Then
flag=1
End If
End If
程序中存在问题,以下关于程序问题的叙述中,正确的是
选项
A、For循环的循环初值i应该从1开始
B、语句Combol.RemoveItem i有错误
C、语句Combol.AddItem Combol.Text有错,Combol.Text的内容己存在于组合框中
D、应把程序倒数第3行中的Ifflag=1改为If flag=0
答案
D
解析
本题中首先用一个循环遍历组合框的所有列表项,依次取出每一个列表项与str1进行比较,若相同则删除该项,将flag置为1,否则flag为0;循环结束后如果flag的值为0则说明没有任何一个现有的列表项与str1相同,需要将str1添加到组合框中,否则不需添加。
转载请注明原文地址:https://kaotiyun.com/show/nlTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生目录下有一个工程文件sit5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Tex1和Text2。其中Text1用来输入口令(输入时,显示“*”),无初始内容;Text2
以下变量名中合法的是( )。
当用()方式打开文件时,如果对文件进行写操作,则写入的数据附加到原文件的后面。
以下叙述中错误的是()。
单击命令按钮执行以下程序,输出结果为()。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=32CallProc(x,y)
函数过程F1的功能是:如果参数a为奇数,则返回值为1,否则返回值为0。以下能正确实现所述功能的代码的是()。
下列表达式中不能判断x的是否为偶数的是
窗体上有一个名称为Timer1的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Circle)。编写程序如下:PrivateSubForm_Load()Shapel.Top=0:Timerl.Interval=100
设某二叉树的前序序列与中序序列均为ABCDEFGH,则该二叉树的后序序列为
有两个关系R和T如下图所示:则由关系R得到关系T的运算是()。
随机试题
手工钨极氩弧焊时,若钨极直径dw为1.2mm,则与之相应的喷嘴的圆柱通道内径Dn为多少?
在出生后头10年内迅速发育,12岁达高峰,以后逐渐萎缩是
既能活血定痛、清热利湿,又能化痰止咳解毒的药物是
低碳钢的含碳量应为下列哪项?[2010年第57题]
安全生产责任制是指企业对( )各级领导、各个部门、各类人员所规定的在他们各自职责范围内对安全生产应负责任的制度。
学校工作必须坚持以()
设f(x)的导数在x=a处连续,又=-1,则().
Theuseofdeferential(敬重的)languageissymbolicoftheConfucianidealofthewoman,whichdominatesconservativegendernormsi
AtatimewhenstandardsforITandartificialintelligenceriskbysplittingintoaChinesecampandanAmericanone,Europeca
AWalkinthePark在公园散步Exercisinginnaturalareasisnotonlygoodforyourphysicalhealth/—itcanimproveyourmood/
最新回复
(
0
)