首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1 Click(
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1 Click(
admin
2016-01-22
70
问题
窗体如图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全国计算机二级
相关试题推荐
数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是()。
结构化程序设计主要强调的是()。
能够改变窗体边框线类型的属性是()。
3在文本框Textl中输入一个键盘键,将会发生4个事件,这4个事件的顺序是()。
执行下面的程序段后,x的值为()。x=50Fori=1To20Step2x=X+i\5Nexti
下面说法不正确的是()。
设有语句Open"C:\Test.Dat"ForOutPutAs#1,则下列叙述错误的是()。
下列叙述中正确的是
一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示[2]文件;包含ActiveX控件的文件扩展名为[3]。
以下程序的功能是:先将随机产生的10个不同的整数放人数组a中,再将这10个数按升序方式输出。请填空。PrivateSubFormClick()Dima(10)AsInteger,iASIntegerRandomi
随机试题
某物品的年需求量为3000单位,物品的单位成本为12元,平均订货成本为20元/次,持有成本库存费用率为25%,则该物品的经济订购批量为()
调节血Ca2+浓度的激素有
痄腮热毒蕴结型的首选方是:
膀胱造影的方法不包括
短效口服避孕药含
教师的知识结构中,小学英语教师所拥有的英语学科知识属于()。
设f(x)有界,且f’(x)连续,对任意的x∈(-∞,+∞)有|f(x)+f’(x)|≤1.证明:|f(x)|≤1.
Inrecentyearsmanycountriesoftheworldhavebeenfacedwiththeproblemofhowtomaketheirworkersmoreproductive.Some
SheisoneofthefewpeoplehereIcanunderstandproperly;shepronouncesallherwordsso______.
Evenamodestamountofstepsisassociatedwithlowermortality.
最新回复
(
0
)