首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
admin
2015-08-28
82
问题
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click()
Dim n%,k%
n=Len(Text1.Text)
For k=0 To Listl.ListCount-1
If Left(List1.List(k),n)=Text1.Text Then
List1.RemoveItem k
End If
Next k
End Sub
在调试时发现,如输入"陈",可以正确删除所有姓"陈"的项目,但输入"刘",则只删除了"刘邦"、"刘备"2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为( )。
选项
A、For k=List1.ListCount-1 To 0 Step-1
B、For k=0 To List1.ListCount
C、For k=1 To List1.ListCount-1
D、For k=1 To List1.ListCount
答案
A
解析
错误原因:每一次删除列表框满足项,列表框的项目数目就会相应地减少,所以就出现了漏删内容,如果把循环变量k改成从List1.ListCout-1到0,从最后一个项目往第一个项目查找,满足条件就删除该项目,从而不会出现遗漏现象,所以正确答案为A。
转载请注明原文地址:https://kaotiyun.com/show/84Qp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm,包含了所有控件和部分程序,如图1-183所示。要求如下:①利用属性窗口向列表框添加四个项目:Visual.Basic、TurboC、C++、Java。②请编写适当的程
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框架,其名称分别为Fl和F2,标题分别为“交通工具”和“到达目标”。在Fl中画两个单选按钮,名称分别为Opl和Op2,标题分别为“飞机”和“火车”。在F2中画两个单选按钮,名称分别为Op3
数据库的逻辑模型设计阶段的任务是将______转换成关系模式。
下列软件测试基本方法中,______不用测试实例。
软件工程管理包括:______、软件工程经济学、软件心理学等内容。
程序段:x=0Fora=1to5step2x=x+a^2NextaPrinta语句x=x+a^2执行的次数和最后a的值分别为______。
下列不属于结构化分析的常用工具是______。
软件调试的目的是______。
设x=4,y=8,z=7,下列表达式的值是()。x>zOrz<x
数据字典是各类数据描述的集合,它通常包括5个部分,即数据项、数据结构、数据流、【】和处理过程。
随机试题
___________是指政府设立的负责本级财政性资金的集中采购和招标组织工作的专门机构。
下列各项中,属于公司发放股票股利优点的有()
1/4
下列关于小儿五软的叙述,错误的是( )。
涵洞施工宜在枯水季节进行,施工前须在施工范围两端河道或泄道上筑坝阻水,坝顶比施工期间可能出现的最高水位至少要高出()m,以防淹没。
下列措施项目中,应按分部分项工程量清单编制方式编制的有()。【2014年真题】
影响利率水平的因素主要有()。
下列关于市净率的说法中,不正确的是()。
长江的季节性洪水是自然规律,无法扭转。但是人们在开发自然的过程中,乱砍滥伐破坏上游植被,在下游大量侵占天然湖泊等可供分洪蓄洪的水体,这些盲目的开发行为使得长江抗洪越发困难。除了对自然的欠账外,水利工程的一些历史欠账在今年全部暴露出来了。长江中下游中小型防洪
______tellsusthatthegovernmentwillgivesupporttoemployers,whoofferpart-timejobs?______statesthatjob-sharingcan
最新回复
(
0
)