首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单机命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单机命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2017-06-21
53
问题
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单机命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编写如下程序,以期实现上述功能:
Private Sub Command1_Click()
strl=Trim(Combo1.Text):flag=0
If strl<>""Then
For i=0 To Combol.ListCount-1
If str1=Combo1.List(i)Then
Combol.RemoveItem i:Combol.Text="":flag=1
End If
Next
If flag=1 Then
Combo1.AddItem Combo1.Text
End If
End Sub
程序中存在问题,以下关于程序问题的叙述中,正确的是
选项
A、For循环的循环初值i应该从1开始
B、语句Combol.RemoveItem i有错误
C、语句Combol.AddItem Combol.Text有错,Combol.Text的内容已存在于组合框中
D、应把程序倒数第3行中的If flag=1改为If flag=0
答案
D
解析
本题中首先用一个循环遍历组合框的所有列表项,依次取出每一个列表项与str1进行比较,若相同则删除该项,将flag置为1,否则flag为0;循环结束后如果flag的值为0则说明没有任何一个现有的列表项与str1相同,需要将str1添加到组合框中,否则不需添加。
转载请注明原文地址:https://kaotiyun.com/show/wXGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的执行结果为 a=10 b=20 Ifa<>bThena=a+bElseb=b-a Printa,b
若窗体上的图片框中有一个命令按钮,则此按钮的Left属性是指()。
程序运行时,用户向文本框输入内容时,将触发文本框的()事件。
设有如下程序:PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=
以下关于图片框控件的说法中,错误的是
不能触发滚动条Change事件的操作是______。
代数|3e+lgx+arctgy|对应的VisualBasic表达式是
设当前日期为2008年4月28日,星期一,则执行下面语句后的输出结果为______。PrintDay(Now)PrintMonth(Now)PrintYear(Now)PrintWeekday(Now)
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量:DimPaintStartAsBoolean编写如下事件过程:PrivateSubForm_Load
随机试题
患者,男性,56岁。因高血压行输液治疗,输液过程中体温升高达38.6℃,伴有寒战,首先考虑
安全管理的10个特征是:()。
我国城市道路分为()。
银行向个人发放的、用于解决市民及其配偶或直系亲属伤病就医时的资金短缺问题的贷款是()。
房地产市场状况分析不包括()分析。
分层教学是因材施教原则的具体应用。()
公安机关作出吊销许可证及处()以上罚款的治安管理处罚决定前,应当告知违反治安管理行为人有权要求举行听证。
a与b的算术平均值为8.
Clearlyifwearetoparticipateinthesocietyinwhichwelivemustcommunicatewithotherpeople.Agreatdealofcommunicati
Whydidshechoosepsychology?
最新回复
(
0
)