首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2015-06-30
74
问题
窗体上有一个名称为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/2MQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下程序:OptionBase0PrivateSubFormClick()DimaDimiAsIntegera=Array(1,2,3,4,5,
在窗体上面有一个文本框,其名称为Text1,编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrAsStringstr=Chr(KeyAscii)
将文本框的PasswordChar属性设置为一个星号*,运行时,在文本框中输入的字符仍然显示出来,而不显示星号,原因可能是()。
设当前日期为2007年12月27日,星期四,则执行下面语句后的输出结果为______。PrintDay(Now)PrintMonth(Now)PrintYear(Now)PrintWeekday(Now)
在窗体上画一个命令按钮,然后编写如下程序:SubS1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=rEndSub
对长度为N的线性表进行顺序查找,在最坏情况下所需要的比较次数为______。
在面向对象方法中,信息隐蔽是通过对象的【】性来实现的。
为了对多个控件执行操作,必须选择这些控件。下列不能选择多个控件的操作是
VisualBasic布尔运算符Xor,Or,Eqv,And中,级别最高的运算符是()。
随机试题
下列矩阵系统中,最复杂的解决问题的方案是()。
Ifyou’redrivinginBrooklyn,Ohio,andfindyourselfattractedbyyoursurroundings,resisttheurgetogetholdofyourcell
反射回声频率的改变,取决于反射体的运动,这称为
按民用建筑设计要求,建筑基地地面坡度的最小值应为:[2007-74]
出现( )等情况,经中国证监会、财政部批准,期货交易所、期货公司可以暂停缴纳保障基金。
Manychildrenwould______watchTVthandosports.
感性认识向理性认识飞跃的条件有()。
关于单项资产风险的度量,下列说法不正确的是()
简述影响无形资产评估价值的因素。
Acarismadeupofmorethan30000parts.Eachpartinanewcarisasweakasababy.Soanewcarrequirespropercareands
最新回复
(
0
)