首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
admin
2020-06-30
47
问题
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:
Private Sub Command1_Click()
Dim n%,k%
n=Len(Text1.Text)
For k=0 To List1.ListCount-1
If Left(List1.List(k),n)=Text1.Text Then
List1.Removeltem k
End If
Next k
End SUb
在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=0 To
List1”ListCount-1改为( )。
选项
A、For k=1 To List1.ListCount-1
B、For k=1 To List1.ListCount
C、For k=0 To List1.ListCount
D、For k=List1.ListCount-1 To 0 Step-1
答案
D
解析
在程序运行时删除列表框中的项目可以使用RemoveItem方法,其语法为:列表框.Removeltem索引号,列表框的属性ListIndex返回当前所选项目的索引号,因此删除列表框选中项目的语句为:List1.Removeltem List1.List1ndex。列表框的List(Index)属性返回指定索引号的列表项内容,第一个列表项的索引为0而最后一个项目的索引为ListCount-1,其中,ListCount属性返回列表框中当前的列表项总数。
本题原代码错误原因:每执行一次Removeltem方法后,列表框中被删除项目的后续项目的位置将前移,即其List1ndex属性值将减1。为此可从列表框的最后一个项目开始进行查找,即:Fork=List1.ListCount-1 To 0 Step-1。
转载请注明原文地址:https://kaotiyun.com/show/qIHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序:PrivateSubCommand1_Click()Dimcount(10)AsInt
设窗体上有名称为Option1的单选按钮,且程序中有语句:IfOption1.Value=TrueThen下面语句中与该语句不等价的是( )。
设窗体上有一个名称为Check1的复选框,并有下面程序代码:PrivateSubCheck1_MouseDown(ButtonAsInteger,ShiftAsInteger,
假设用复制、粘贴的方法建立了一个命令按钮数组Commandl,以下对该数组的说法错误的是()。
在关系模型中,每一个二维表称为一个
下列关于水平滚动条的叙述中,错误的是()。
下列关于类、对象、属性和方法的叙述中,错误的是()。
将E-R图转换为关系模式时,实体和联系都可以表示为( )。
能够存放组合框的所有项目内容的属性是( )。
随机试题
视野(visualfield)
新工资制度最主要的特点是()
下列可行腹腔镜胆囊切除术的有
准确度表示测量值与真值的差异,制剂中常以下列哪项验证
对于接受氨基糖苷类抗生素治疗的患者,护士应注意监测的实验室指标为下列哪项
外部经济的内部化是指()。
武汉长江电子科技有限公司(420133××××)利用企业自有资金进口电焊机(法检、自动进口许可证管理)。货物于2008年5月20日运抵上海浦东国际机场(2233),办理相关手续后,经海关批准于次日直接转运至武汉,委托武汉中远货运代理有限公司向武汉机场海关(
根据公司法律制度的规定,下列各项中,属于公司减少注册资本时应当执行的程序有()。
disambiguation
Secondhandsmokeisaccountablefor42,000deathsannuallytononsmokersintheUnitedStates,includingnearly900infants,acc
最新回复
(
0
)