首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Commandl_Click() Dim
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Commandl_Click() Dim
admin
2018-07-11
40
问题
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能:
Private Sub Commandl_Click()
Dim n%.k%
n=Len(Text1.Text)
For k=0 To List 1.ListCount-1
If Left(Listl.List(k),n)=Text1.Text Then
List 1.RemoveItem k
End If
Nextk
End Sub
在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=0To List1.ListCount一1改为( )。
选项
A、For k=1 To Listl.ListCount-1
B、For k=1 To List1.ListCount
C、For k=0 To Llst 1.L1stCount
D、For k=List1.ListCount-1 To 0 Step一1
答案
D
解析
在程序运行时删除列表框中的项目可以使用Removeltem方法,其语法为:
列表框.RemoveItem索引号,列表框的属性Listlndex返回当前所选项目的索引号,因此删除列表框选中项目的语句为:Listl.ReraoveltemList1.Listlndex。
列表框的IAst(Index)属性返回指定索引号的列表项内容,第一个列表项的索引为0而最后一个项目的索引为IAstCount-1,其中,IAstCount属性返回列表框中当前的列表项总数。
本题原代码错误原因:每执行一次Removeltem方法后,列表框中被删除项目的后续项目的位置将前移,即其IAsflndex属性值将减1。
为此可从列表框的最后一个项目开始进行查找,即:For k=Listl.ListCount-1 To 0 Step一1。
转载请注明原文地址:https://kaotiyun.com/show/Q7Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列合法的变量名是
执行以下程序段a$="VisualBasicProgramming":b$="C++"c$=UCase(Left$(a$,7))&b$&RightS(a$,12)变量c$的值为
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是
为了使命令按钮的Picture、DownPicture或DisabledPicture属性生效,必须把它的Style属性设置为
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是
函数表达式Sgn(-10)的值是
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读人数据”、“计算并输出”和“存盘”),然后添加一个文本框(名称为Text1,可显示多行,ScrollBars属性设置为2)(如图所示)。程序运行后,如果执行“读人数据”命令,则读入
下面描述中不属于数据库系统特点的是
随机试题
根据以下案情,回答下列问题甲以自己为受益人给妻子购买了人身意外伤害险,后设计杀害了妻子,并以妻子意外死亡为由,申请并获得保险金80万元。甲骗取保险金和杀害妻子的犯罪行为属于
发生血细胞最早的部位是()
用汽油一空气吹管熔金器熔化中熔合金时,熔化金属的最佳火焰层是
资产包括固定资产和流动资产两部分。()
新华公司为增值税一般纳税人,购买和销售商品适用的增值税税率为17%。其记账本位币为人民币,外币业务采用交易发生日的即期汇率折算,每季度末计算汇兑差额。2016年6月30日和9月30日的即期汇率均为1美元=6.25元人民币,2016年12月31日的即期汇率为
根据外汇管理法律制度的规定,我国对企业和个人经常项目下用汇的管理,主要体现为()。(2012年)
Recently,IflewtoLasVegastoattendameeting.Aswewereabouttoarrive,thepilotannouncedwithapologythattherewould
2009年全球发生了甲型H1N1流感,经过科研人员的连续攻关,最终生产出了疫苗,并使疫情得到有效控制。这一事实说明
Americaisoneofmanycountrieswherethestategivesaleg-uptomembersofcertainracial,ethnic,orothergroups【C1】______h
派生类的成员一般分为两部分,一部分是______,另一部分是自己定义的新成员。
最新回复
(
0
)