首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2016-06-23
38
问题
窗体上有一个名称为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
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果希望定时器控件每秒产生10个事件,则要将Interval属性的值设为()。
在运行时,MDI父窗体中的子窗体最小化时,其图标将显示在______。
执行下面的程序段后,变量S的值为______。S=5Fori=2.6To4.9Step0.6S=S+1Nexti
阅读程序:FunctionFun(aAsInteger)StaticC b=0:b=b+2:c=c+2 F=a*b*cEndFunctionPrivateSubCommand1_Click(
当循环队列非空且队尾指针等于队头指针时,说明循环队列已满,不能进行人队运算,这种情况称为______。
对象.cls方法对()控件有效。
在面向对象方法中,属性与操作相似的一组对象称为______。
线性表的顺序存储结构和线性表的链式存储结构分别是
设一棵完全二叉树共有700个结点,则在该二叉树中有______个叶子结点。
结构化程序设计的3种结构是()。
随机试题
对制造费用进行分析时,一般遵循的步骤顺序是
男性,60岁,进行性消瘦,低热,食欲缺乏,伴右上腹胀痛3个月。查体:皮肤黏膜无黄染,浅表淋巴结无肿大,心肺检查无异常,肝肋下1.5cm,剑突下4cm可触及,白细胞4×109/L,B超显示右叶有直径5cm的强回声团块,中央可见液性暗区,正确的诊断是
下列关于亚急性感染性心内膜炎的描述,正确的是
属于甲类法定管理传染病的是
ABC公司的相关信息如下所示,该公司的经营周期为6个月:在本经营周期结束时,ABC公司的商业应收款应为
企业价值评估中,确定各种资本权数的方法包括()。
下列选项中,属于我国经济法渊源中的行政法规的是()。
QE是QuantitativeEasing的缩写或简称,汉语译为“量化宽松”,是一种【31】政策,由中央银行通过公开市场操作加大货币供应量,可视之为“无中生有”创造出指定金额的货币,也被简化地形容为间接【32】钞票。其操作是中央银行通过公开市场操作【3
(2010年上半年)有多年开发经验的赵工被任命为某应用软件开发项目的项目经理,客户要求10个月完成项目。项目组包括开发、测试人员共10人,赵工兼任配置管理员的工作。按照客户的初步需求,赵工估算了工作量,发现工期很紧。因此,赵工在了解客户的部分需
(1)Greeceisalandofruggedmountains,shadyolivetrees,morevarietiesofwildflowersmananyotherEuropeancountry,andis
最新回复
(
0
)