首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单机命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单机命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2017-06-21
58
问题
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单机命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编写如下程序,以期实现上述功能:
Private Sub Command1_Click()
strl=Trim(Combo1.Text):flag=0
If strl<>""Then
For i=0 To Combol.ListCount-1
If str1=Combo1.List(i)Then
Combol.RemoveItem i:Combol.Text="":flag=1
End If
Next
If flag=1 Then
Combo1.AddItem Combo1.Text
End If
End Sub
程序中存在问题,以下关于程序问题的叙述中,正确的是
选项
A、For循环的循环初值i应该从1开始
B、语句Combol.RemoveItem i有错误
C、语句Combol.AddItem Combol.Text有错,Combol.Text的内容已存在于组合框中
D、应把程序倒数第3行中的If flag=1改为If flag=0
答案
D
解析
本题中首先用一个循环遍历组合框的所有列表项,依次取出每一个列表项与str1进行比较,若相同则删除该项,将flag置为1,否则flag为0;循环结束后如果flag的值为0则说明没有任何一个现有的列表项与str1相同,需要将str1添加到组合框中,否则不需添加。
转载请注明原文地址:https://kaotiyun.com/show/wXGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下程序:OptionBase1PrivateSubForm_Click()Dimarr,SumSum=0alt=Array(1,3,5,7,9,11,13,15,17,19)
面向对象的模型中,最基本的概念是对象和【】。
在用菜单编辑器设计菜单时,必须输入的项是______。
在VisualBasic中,要使一个窗体从内存中释放,应该使用的语句是______。
已知代数式eXSin(30°)2x/(x+y)Lnx,则正确的VisualBasic表达式为()。
设已打开5个文件,文件号分5U为1,2,3,4,5。要关闭所有文件,以下语句正确的是
如果要在任何新建的模块中自动插入optionExplicit语句,则应采用下列______操作步骤。
设有变量声明DimTestDateAsDate,为变量TestDate正确赋值的表达方式是______。
符号%是声明______类型变量的类型定义符。
设组合框Combo1中有3个项目,则以下能删除最后一项的语句是______。
随机试题
重症肺炎因二氧化碳潴留导致酸碱平衡紊乱,可发生
课堂上人际关系出现双方相互亲近、认知协调、情感和谐、行动一致。这是一种()
A.丙氨酸和谷氨酰胺B.谷氨酸和丙氨酸C.瓜氨酸和精氨酸D.半胱氨酸和瓜氨酸E.组氨酸和赖氨酸氨在肝中合成尿素的主要中间产物是
下列哪个脂类代谢途径不出现乙酰乙酰辅酶A
常伴有抽搐的甲状腺癌为
对于小王的辞职申请,()。小王辞职后,()。
在无权代理中,相对人可以催告被代理人在()内予以追认。
根据以下课堂实录,回答问题:师:面对如此严重的经济危机,如果你是当时的政治家、经济学家,你会采取什么措施克服当时的经济危机?(学生思维活跃,课堂气氛热烈……)学生交流:生1:首先应该恢复银行信誉。经济危机期间,银行倒闭,市民的存款化为
Ⅱ.论述教育观察研究方法的优缺点。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommandlClick()DoUntilb<0a=InputBox("输入a的值")a=Val(a)b=InputBox("输入b的值")b=Val(b)a=a
最新回复
(
0
)