首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click() Dim n
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click() Dim n
admin
2017-08-22
45
问题
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:
Private Sub Command1_Click()
Dim n%.k%
n=Len(Text1.Text)
For k=0 To List1.ListCount-1
If Lefl(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
解析
在程序运行时删除列表框中的项目可以使用Removeltem方法,其语法为:列表框.Removeltem索引号,列表框的属性IAstlndex返回当前所选项目的索引号,因此删除列表框选中项目的语句为:IAstl.Removeltem List1.IAstlndex。列表框的List(Index)属性返回指定索引号的列表项内容,第一个列表项的索引为0而最后一个项目的索引为ListCount-1,其中,ListCount属性返回列表框中当前的列表项总数。
本题原代码错误原因:每执行一次RemoveItem方法后,列表框中被删除项目的后续项目的位置将前移,即其ListIndex属性值将减1。为此可从列表框的最后一个项目开始进行查找,即:Fork=List1.ListCount-1 To 0 Step-1。
转载请注明原文地址:https://jikaoti.com/ti/fzy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当用__________________方式打开文件时,如果对文件进行写操作,则写入的数据附加到原文件的后面。
下面程序的功能是统计字符串中"i"的个数,请填空。SubCOU()DimnAsInteger a$="BeijingUniversityofTechnology" n=Len(a$) Fori=
设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮,并有以下事件过程:PrivateSubCommandl一Click()x!==Val(Textl.Text)SelectCasexCas
设有变量声明DimTestDateAsDate,为变量TestDate正确赋值的表达方式是______。
编写如下事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If(ButtonAnd3)=3ThenPrint"AAAA
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFuncdonf(mAsInteger)IfmMod2=0Thenf=mE1Se
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timed。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimerl_______TextTime.text=TimeEndSu
下列叙述中,错误的是
下列程序功能是,产生10个0~100的随机数,输出其中的最大值。请将程序补充完整。PrivateSubForm_Click()Diman(10)AsIntegerDimmaxAsInteger Randomi
以下叙述不正确的是______。
随机试题
管制的期限为()。
男性,35岁。左肾切除术2年半,抗结核治疗后,尿频30次/天,现出现恶心呕吐。B超见右肾积水,行右肾穿刺造影,可见上段输尿管狭窄。尿常规:正常,血Cr620μmol/L,该患者适合于哪种治疗()
支气管哮喘发作的主要病理基础是
与茶碱合用对小儿哮喘有协同作用,使茶碱用量减半的药物是()
基金销售机构办理基金的销售业务,应当由基金销售机构与基金管理人签订书面销售协议,明确双方的权利义务,并至少包括()。Ⅰ.反洗钱义务履行及责任划分Ⅱ.销售费用分配的比例和方式Ⅲ.对基金持有人的持续服务责任Ⅳ.基金持有人联系方式等客
发给26周岁至45周岁居民的居民身分证的有效期为( )。
①因此,必须广泛宣传生态平衡知识②如捕捉青蛙喂鸭使虫灾日益严重③破坏它,实际上是危及人类自身④生态平衡是人类生存的重要条件⑤滥伐森林使野生动物日益减少,造成水土流失等⑥以求人与自然和谐地相处将以上6个句子重新排列,语序正确的是:
法治思维是指以法治价值和法治精神为导向,运用法律原则、规则和方法思考和处理问题的思维模式。培养法治思维的途径有
下列选项中,不是Access数据库对象的是()。
Childrenhavetheirown【C1】______inplayinggames.Theyseldomneeda【C2】______and【C3】______troubletokeepscore.Theydon’tca
最新回复
(
0
)