首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1 Click(
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1 Click(
admin
2016-01-22
80
问题
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能:
Private Sub Command1 Click()
Dim n%.k%
n=Len(Text 1.Text)
For k=0 To List 1.ListCount-1
If Left(List 1.List(k),n)=Textl.Text Then
List 1.RemoveItem k
End If
Next k
End Sub
在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=0 To Listl.ListCount-1改为( )。
选项
A、For k=1 To List1.ListCount-1
B、For k=1 To List1.ListCount
C、For k=0 To List1.LlstCount
D、For k=List1.ListCount-1 To 0 Step-1
答案
D
解析
在程序运行时删除列表框中的项目可以使用RemoveItem方法,其语法为:列表框.Removeltem索引号,列表框的属性Lisflndex返回当前所选项目的索引号,因此删除列表框选中项目的语句为:List1.RemoveltemList1.Listlndex。列表框的List(Index)属性返回指定索引号的列表项内容,第一个列表项的索引为0而最后一个项目的索引为ListCount-1,其中,IAstCount属性返回列表框中当前的列表项总数。
本题原代码错误原因:每执行一次。Removeltem方法后,列表框中被删除项目的后续项目的位置将前移,即其Listlndex属性值将减1。为此可从列表框的最后一个项目开始进行查找,即:For k=List1.ListCount-1 To O Step-1。
转载请注明原文地址:https://kaotiyun.com/show/GwLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画1个命令按钮,其名称为Command1,然后编写如下事件过程:PriVateSubCommandl_CUck()Dimalt(1To100)AsIntegerFori=1To100a
假定有一个名为pic2.gif的图形文件,要在运行期间把该文件装入一个图片框(Picturel),应执行的语句是______。
在窗体上添加一个命令按钮,然后编写如下事件过程:PhvateSubCommanl_Click()Dima(10)AsIntegerDimp(3)AsInteSerk=5Fori=1To10
在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后编写如下事件过程:PrivateSubCommandl_Click()S=0Fori=1To15x=2*i-1
下列数据结构中,能用二分法进行查找的是()。
下列数据结构中,属于非线性的是()。
如果在C盘当前文件夹下已存在名称为studata.dat的顺序文件,那么执行语句Open"C:\studata.dat"ForAppendAs#1之后,将
下列对变量的定义中,不能定义a为变体变量的是
表达式(3/2+1)*(5/2+2)的值是
数据库设计的4个阶段是:需求分析、概念设计、逻辑设计和
随机试题
胃气虚的表现是
孙谦,字长逊,东莞莒人也。年十七为左军行参军,以治干称。父忧去职,客居历阳,躬耕以养弟妹,乡里称其敦睦。出为句容令,清慎强记,县人号为神明。泰始初,事建安王休仁,休仁以为司徒参军,言之明帝,擢为明威将军、巴东、建平二郡太守。郡居三峡,恒以威力镇之。谦将述职
激素
患者,男,56岁。食欲缺乏、乏力、消瘦2个月,近来多次排黑粪,右上腹部出现包块,并出现腹胀等症状。患者有肝炎、肝硬化病史及酗酒史。CT检查见肝右叶低密度肿块,边界不清楚,门静脉右支增粗、不强化,诊断最可能是
患者,女,55岁。反复眼睑、下肢水肿20年,恶心、呕吐1个月,胸闷2天入院。20年前患“肾小球肾炎”后经常出现眼睑、下肢水肿,未进行正规治疗;近5年来夜尿增多,血压140~160/90~110mmHg,血红蛋白60~90g/L,尿蛋白(+~++),尿隐血(
A、 B、 C、 D、 D
下列不属于基金销售机构的职责规范的是()。
《荷拉斯兄弟的宣誓》《苏格拉底之死》等绘画作品的作者,是法国19世纪()画家大卫。
在考察旁观者人数对危机情境救助行为影响的研究中,自变量是()
IhaveavividrecollectionofasummereveningwhenIhadtocarryoutarumenotomyonacow.AsaruleIwasinclinedtoplay
最新回复
(
0
)