首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2016-09-19
70
问题
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编写如下程序,以期实现上述功能:
Private Sub Command1_Click()
str1=Trim(Combo1.Text)
flag=0
If str1<>""Then
For i=0 To Combo1.ListCount-1
If str1=Combo1.List(i) Then
Combo1.RemoveItem i:Combo1.Text=""
flag=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、语句Conabo1.AddItemCombo1.Text有错,Combo1.Text的内容已存在于组合框中
D、应把程序倒数第3行中的If flag=1改为If flag=0
答案
D
解析
本题中首先用一个循环遍历组合框的所有列表项,依次取出每一个列表项与str1进行比较,若相同则删除该项,将flag置为1,否则flag为0;循环结束后如果flag的值为0则说明没有任何一个现有的列表项与str1相同,需要将str1添加到组合框中,否则不需添加。
转载请注明原文地址:https://kaotiyun.com/show/EdLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
长度为n的顺序存储线性表中,当在任何位置上插入一个元素概率都相等时,插入一个元素所需移动元素的平均个数为______。
测试的目的是暴露错误,评价程序的可靠性,而______的目的是发现错误的位置,并改正错误。
以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是()
编程实现加法运算,在两个文本框中输入加数,用标签表示结果,单击按钮进行计算,完成下列计算过程。PrivateSubCommand1_Click()DimAAsInteger,BAsIntegerA=_________
确定复选框是否选中,可访问的属性是
下列程序段的执行结果为m=2n=3Do m=m+n n=n+1LoopWhilem<10Printm;n
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为M1。设窗体Form1标题为“myform1”,双击控件数组中的第3个按钮,打开代码编辑器,写下如下代码:PrivaeSubM1_Click(IndexAsInteger)
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是
下列叙述中,正确的是()。
下面的程序执行完毕后,组合框中数据项的值是()。PrivateSubForm_Click()Fori=1To6Combo1.AddItemiNexti
随机试题
复关节
男性,60岁,出现无痛性血尿半年余。膀胱镜检查:膀胱三角区可见一乳头状肿物、有蒂,活检报告为乳头状瘤。符合此诊断的病变是
咳血方主治证候的病机是
不可抗力
某设计合同,业主支付定金10万元后,设计人不履行义务,业主有权要求设计人返还()万元。
某企业每增加500万元的销售额,需增加销售人员10人,预计1年后销售额将增加2,000万元,如果在新增人员中管理人员、销售人员和客服人员的比例是1:6:3,则1年后该企业需要增加客服人员()人。
涉及到合营企业的一些事项必须经出席董事会会议的董事一致通过方可作出决议,这些事项包括()。
社会治安综合治理的领导力量是各级党委和政府。()
心理学实验中因变量的测量指标既有主观指标也有客观指标,下列属于主观指标的是
ThearomaofchocolateperfumestheairoftheRued’AssasinParis.EnteringChristianConstant’sstate-of-the-artboutique,yo
最新回复
(
0
)