首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combol的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combol的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2020-04-18
27
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
下列程序的功能是调用字体对话框来设置文本框中的字体,单击Commandl按钮弹出对话框,进行相应的字体、字号等的设置,然后单击“确定”按钮退出对话框,则文本框中将发生哪些变化()。PrivateSubCommand1_Click()
窗体上有Text1、Text2两个文本框及一个命令按钮Commandl,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2
在窗体上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()x=0doWhilex<50
为了使窗体的大小可以改变,必须把它的BorderStyle属性设置为()。
在一棵二叉树上,第5层的结点数最多是()。
设R是一个2元关系,有3个元组,S是一个3元关系,有3个元组。如T=R×S,则T的元组的个数为()。
下面程序运行时,若输入“VisualBasicProgramming”,则在窗体上输出的是()。PrivateSubCommand1_Click()DimNum(25)AsInteger,ChrlAsStrin
设x=4,y=6,则以下不能在窗体上显示出“A=10”的语句是
以下合法的VB变量名是
设有如图所示窗体和以下程序:PirintSubCommandl_Click()Text1.Text=”VisualBasic”EndSubPrivateSubText_LostFocusOIfText1.
随机试题
李工于2019年6月13日完成一项发明创造,并于2019年6月15日下午到当地的国家知识产权局专利代办处面交了专利申请。王教授于2019年6月10日完成了同样的发明创造,并于2019年6月15日通过邮政快递提交申请文件,国家知识产权局受理处于次日上午收到该
The________fortonightisrainchangingtosnow.
城镇化水平明显超过工业化和经济发展水平的城镇化是()
男孩,2岁,发热,咳嗽4天,咳喘加重1天。查体:双肺可闻及散在中小水泡音。血白细胞10×109/L,中性0.65,淋巴0.35。最可能的诊断是
对硅沉着症具有诊断意义的病变是
某双代号网络计划中,计算各项工作的时间参数,某项工作的6项时间参数如图3所示,则B位置应填写的数字是()。
公示催告的期间不得少于()日。
根据连续反映某一时期内不断重复发生而分次进行的特定业务编制的原始凭证有()。
DothefollowingstatementsagreewiththeinformationgiveninReadingPassage1?Inboxes5-13onyouranswersheet,writeT
Anothertermforidenticaltwinsis______.
最新回复
(
0
)