首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Com.mand1),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Commandl_Click() Dim n
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Com.mand1),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Commandl_Click() Dim n
admin
2010-04-08
51
问题
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Com.mand1),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能:
Private Sub Commandl_Click()
Dim n%.k%
n=Len(Textl.Text)
For k=0 To Listl.ListCount-1
If Left(Listl.List(k),n)=Text1.Text Then
Listl.Removeitem k
End If
Next k
End Sub
在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k:0 To Listl.ListCount-1改为
选项
A、For k=Listl.ListCount-1 To 0 Step-1
B、For k=0 To Listl.ListCoulit
C、For k=1 To List1.ListCount-1
D、For k=1 To List1.ListCount
答案
A
解析
错误原因:每一次删除列表框满足项,列表框的项目数目就会相应地减少,所以就出现了漏删内容,如果把循环变量k改成从Lis他.ListCout-1到0,从最后一个项目往第一个项目查找,满足条件就删除该项目,从而不会出现遗漏现象,所以正确答案为A)。
转载请注明原文地址:https://kaotiyun.com/show/GQmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要向Applet传递参数,应该在下列drawing.html文件的下划线处填入的选项是 …… ……
下列关于boolean类型的叙述中,正确的是
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
执行下面的程序段,输出结果为______。publicclassQ{publicstaticvoidmain(Stringargv[]){intanar[]=newint[5];System.out.println
在结构化设计方法中,数据流图表达了问题中的数据流与加工间的关系,并且每一个______实际上对应一个处理模块。
下面的程序执行后,屏幕上显示的应是()。publicclassExam{publicstaticvoidmain(String[]args){charcharl[]={’t’,’e’,’s’,’t’};charcha
下列不是表达式语句的是( )。
在软件设计中,不属于过程设计工具的是
在面向对象方法中,______描述的是具有相似属性与操作的一组对象。
随机试题
制动时制动器_______,制动器摩擦力矩显著下降的现象称制动器热衰退。
(2008年10月)韦伯指出,现代官僚组织主体的构成部分为_________。
教师劳动的创造性表现在哪几个方面?
胸痛伴呼吸困难常见于
下列关于存货监盘内容的说法中,错误的是()。
下述哪项不是慢性增生性骨髓炎的表现()。
辛亥革命后,一些有识之士倡导发展实业,______和______成为当时并存的两大社会潮流。
EatMore,WeighLess,LiveLongerClevergeneticdetectiveworkmayhavefoundout.thereasonwhyanear-starvationdietpr
WhentheyfirstarrivedinEuropeover500yearsago,theRomawerecalledGypsiesinthemistakenbeliefthattheyhadcomefro
Manycurrentdiscussionsofimmigrationissuestalkaboutimmigrantsingeneral,asiftheywereabstractpeopleinanabstract
最新回复
(
0
)