首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2019-03-14
58
问题
窗体上有一个名称为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/wZFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有名称为List1的列表框。以下能够将列表框当前选定的列表项替换为字符串"Basic"的语句是
编写如下程序:PrivateSubForm_Click()k=0Forj=1To2Fori=1To3k=i+1Nexti
为了返回或设置磁盘驱动器的名称,应使用的驱动器列表框的属性是
语句x=x+1的正确含义是
类模块文件的扩展名为
下列关于顺序文件的描述中,正确的是( )。
如下数据定义语句:DimX,YAsInteger以上语句表明( )。
为了读取数据,需打开顺序文件"D:\data5.txt",以下正确的命令是
在数据库系统中,用于对客观世界中复杂事物的结构及它们之间的联系进行描述的是
负责数据库中查询操作的数据库语言是
随机试题
=___________.
A.止嗽散B.定喘汤C.麻杏石甘汤D.小青龙汤E.苏子降气汤主治痰涎壅肺,上实下虚之喘咳的方剂是
A、肺孢子菌感染B、病毒性肺炎C、大叶性肺炎D、肺结核病E、小叶性肺炎真菌感染引起的疾病是
施工中发现古墓、古建筑遗址时,承包人应于()内以书面形式通知工程师。
ST制度自()起实行。
下列选项中,属于19世纪欧洲雕塑家的是()。
商圈:能有效吸引顾客来店的商业地理区域,可分为核心商圈、次级商圈、边缘商圈三个层次,下列符合本概念的是()。
跑步:口渴:饮水
无论是在自己心中勾画出一个脱离现实的恋爱偶像,还是片面追求外在形象,或者只看重经济条件,或者仅仅把恋爱看成是摆脱孤独寂寞的方式,都无法产生真挚的情感,也得不到真正的爱情,这告诫我们()
•Readthetextbelowabouttimemanagement.•Inmostofthelines(41-52)thereisoneextraword.Itiseithergrammatically
最新回复
(
0
)