首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2018-05-08
38
问题
窗体上有一个名称为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/ycGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在下图中,要在窗体的标签Label1上显示“二级VB等级考试”字样,标签属性应设置为______。
当用_____________方式打开文件时,如果对文件进行写操作,则写入的数据附加到原文件的后面。
下列关于菜单的说法错误的是()。
下述关于数据库系统的叙述中正确的是______。
冒泡排序在最坏情况下的比较次数是
下列叙述中正确的是
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
(1)请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Forml的窗体上画一个名称为Pic的图片框,通过属性窗口将考生文件夹下的文件Tul-1.jpg添加到图片框,然后编写适当的事件过程。运行程序时,单击窗体,在图片
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为”取数”、”排序”、”存盘”。”取数”按钮的功能是把考生目录下的in5.dat文件中的5
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
随机试题
汽车电路的基本特点有哪些?
A.腹痛具有疼痛一便意一便后缓解的特点B.腹痛具有周期性、节律性特点C.腹痛于餐后发生,排便后可暂时缓解D.腹痛于弯腰抱膝时减轻E.腹痛为无规律性隐痛溃疡性结肠炎的临床表现是
2004年6月8日,公民李甲因意外受轻伤人院治疗,大夫误诊致使李甲成为植物人。其姐李乙愤而向人民法院起诉,请求医院赔偿财产损失和精神损害。则下列何种说法是正确的?()
瓦斯隧道爆破施工前,应检测放炮地点附近50m以内风流中甲烷浓度。()
土地增值税实行四级超率累进税率。()
请从所给的四个选项中选出一个,使之与已知图形保持相同的变化规律。()
《中法停战条约》
优秀运动员全程性多年训练过程中,训练负荷始终保持在高水平区间起伏的是()
抗日民族统一战线正式形成的标志是( )
A.benefitsB.differentC.eventuallyD.instrumentsE.movingF.multipleG.unsalariedH.numberI.paid
最新回复
(
0
)