首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2015-08-28
63
问题
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编写如下程序,以期实现上述功能:
Private Sub Command1_Click()
str1 = Trim(Combo1.Text)
flag=0
If str1
= 0 To Combo1.ListCount - 1
If str1 = Combo1.List(i) Then
Combo1.RemoveItem i
Combo1.Text = ""
fl<> "" Then
For i ag=1
End If
Next
If flag=1 Then Combo1.AddItem Combo1.Text
End If
End Sub
程序中存在问题,以下关于程序问题的叙述中,正确的是
选项
A、For循环的循环初值i应该从1开始
B、语句Combo1.RemoveItem i有错误
C、语句Combo1.AddItem Combo1.Text有错,Combo1.Text的内容已存在于组合框中
D、应把程序倒数第3行中的If flag=1 改为 If flag=0
答案
D
解析
组合框的ListCount从0开始;RemoveItem和AddItem后面跟的是索引。根据题意,在没有相同列表项时需要添加,所以语句应该为flag = 0。选D)。
转载请注明原文地址:https://kaotiyun.com/show/ldQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据库的物理设计是为一个给定的逻辑结构选取一个适合应用环境的______的过程,包括确定数据库在物理设备上的存储结构和存取方法。
设在菜单编辑器中定义了—个菜单项,名为menu1。为了在运行时项,应使用的语句是______。
下列关于栈的叙述中正确的是______。
假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项不可见,应使用的语句为()。
在窗体上画一个文本框和一个列表框,然后编写如下两个事件过程:PrivateSubForm_Load()List1.Addltem"357"List1.Addltem"246"List1
在窗体上画一个名称为List1的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。
软件维护活动包括以下几类:改正性维护、适应性维护、【】维护和预防性维护。
二分法查找仅限于这样的表:表中的数据元素必须有序,其存储结构必须是______。
下面叙述中不正确的是______。
下列说法中错误的是()。
随机试题
请简述柔性的含义。
为下列句子中划线的词释义外面下雨了,好在下得不大,下课你们回宿舍也不会淋湿的。
具有降气祛痰平喘、温肾纳气功效的方是
当工程规模较大或分期建设时,为方便工程施工和验收使用,现场施工控制测量应设()。
在完全竞争的情况下,价格曲线与平均成本曲线相切是()。
小朱担任技术开发部门主管之后,预见到今后5年IT业的技术开发业务会持续增长,他建议董事长派几名年轻技术人员到国外学习新的技术。指示人力资源部进行详细的决策分析之后,董事长最后采纳了他的建议。根据以上资料,回答下列问题:董事长采纳了小朱的建议是因为(
下面所述正确的是()。
()对于四边形相当于整数对于()
蓝星航线上所有货轮的长度都大于100米,该航线上所有客轮的长度都小于100米。蓝星航线上的大多数轮船都是1990年以前下水的。金星航线上的所有货轮和客轮都是1990年以后下水的,其长度都小于100米。大通港一号码头只对上述两条航线的轮船开放,该码头设施只适
Averyimportantworldproblemistheincreasingnumberofpeoplewhoactuallyinhabitthisplanet.Thelimitedamountoflanda
最新回复
(
0
)