首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击”删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub CommandI_Click( ) D
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击”删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub CommandI_Click( ) D
admin
2018-05-08
23
问题
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击”删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能:
Private Sub CommandI_Click( )
Dim n%,k%
n=Len(Textl.TeXt)
For k=0 To Listl.ListCount_1
IfLeft(Listl.List(k),n)=Textl.TextThen
Listl.Removeltem k
EndIf
Nextk
End Sub
在调试时发现,如输入”陈”,可以正确删除所有姓“陈”的项目,但输入”刘”,则只删除了”刘邦”、“刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=oTo Listl.ListCount-1改为( )。
选项
A、For k=1 To Listl.ListCount.1
B、For k=1 To Listl.LiStCotmt
C、For k=0 To Listl.ListCount
D、For k=List1.ListCount-1 To 0 Step-1
答案
D
解析
在程序运行时删除列表框中的项目可以使用Removeltem方法,其语法为:列表框.Removeltem索引号,列表框的属性Listlndex返回当前所选项目的索引号,因此删除列表框选中项目的语句为:Listl.RemoveltemListl.Listindex。列表框的List(Index)属性返回指定索引号的列表项内容,第一个列表项的索引为0而最后一个项目的索引为ListCount-1,其中,ListCount属性返回列表框中当前的列表项总数。
原代码错误原因:每执行一次Removeltem方法后,列表框中被删除项目的后续项目的位置将前移,即其Listindex属性值将减1。为此可从列表框的最后一个项目开始进行查找,即:For k=Listl.ListCount-1 To 0 Step-1。
转载请注明原文地址:https://jikaoti.com/ti/F9y0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在用Open语句打开文件时,如果省略”For方式”,则打开的文件的存取方式是()。
输入VB源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开”对话框时,希望在该对话框的“文件类型”栏中显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Fiher属性设置为()。
窗体上有名称为Commandl的命令按钮和名称为Textl的文本框PrivateSubCommandl—Click()Textl.Text=“程序设计”Text1.SetFocusEndSubPri
面向对象方法中,继承是指()。
下列关于菜单的说法中,错误的是
下面不属于软件测试实施步骤的是
某个工厂有若干个仓库,每个仓库存放有不同的零件,相同零件可能放在不同的仓库中。则实体仓库和零件间的联系是
下面不属于软件测试实施步骤的是
随机试题
InPrideandPrejudice,JaneAustenexploredthreekindsofmotivationsofmarriagethemiddle-classpeoplehadinthesecondha
除鼠证自签发之日起( )个月内有效。因故不宜按期除鼠,且该船舶又开往便于实施鼠患检疫或熏蒸除鼠的港口,可以准许证书有效期延长( )个月,并签发延长证明。
根据《公司法》的规定,股份有限公司董事会行使的职权包括()。
党要管党,主要包括()。
列出并简述至少三种研究语言产生的方法。
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是
IsEarthGettingWarmer?TheNationalAcademyofSciencesclaimedrecentlythatpeopleshouldcautionratherthanpanicabou
WhatisthenetincomeofMicrosoftfortheyear?
A—scopeofbusinessB—managementbuyoutsC—competeforsurvivalD—processingtradeE—favorabletreat
A、Computerclasses.B、Trainingsessions.C、Laserprinting.D、Packageborrowing.C“Thereisachargeforusingthelaserprinter”
最新回复
(
0
)