首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
admin
2020-07-22
55
问题
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:
Private Sub Command1_Click()
Dim n%.k%
n=Len(Text1.Text)
For k=0 To List1.ListCount-1
IfLeft(List1.List(k),n)=Text1.Text Then
List1.Removeltem k
End If
Nextk
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、Fork=List1.ListCount-1 To 0 Step-1
答案
D
解析
在程序运行时删除列表框中的项目可以使用RemoveItern方法,其语法为:列表框.RemoveItem索引号,列表框的属性ListIndex返回当前所选项目的索引号,因此删除列表框选中项目的语句为:List1.RemoveItemList1.ListIndex。列表框的List(Index)属性返回指定索引号的列表项内容,第一个列表项的索引为0而最后一个项目的索引为ListCount-1,其中,ListCount属性返回列表框中当前的列表项总数。
本题原代码错误原因:每执行一次RemoveItem方法后,列表框中被删除项目的后续项目的位置将前移,即其ListIndex属性值将减1。为此可从列表框的最后一个项目开始进行查找,即:For k=List1.ListCount-1 To 0 Step-1。
转载请注明原文地址:https://kaotiyun.com/show/w8Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设工程中有Form1、Form2两个窗体,要求单击Form2上的Command1命令按钮,Form2就可以从屏幕上消失,下面的事件过程中不能实现此功能的是()。
下面关于数据库三级模式结构的叙述中,正确的是()。
以下关于VB文件的叙述中,正确的是( )。
A、自然连接B、交C、投影D、并A关系R和关系S有公共域,关系T是通过公共域的等值进行连接的结果,符合自然连接,选A。
数据库技术的根本目标是()。
以下关于窗体的叙述中错误的是()。
对下列二叉树进行前序遍历的结果为()。
能得到组合框Combo1中最后一个列表项序号的表达式是()。
文本框的Locked属性被设置为True后产生的效果是
下列选项中,不属于数据管理员(DBA)职责的是()。
随机试题
下述对于引物酶的描述恰当的为
SAA病情恶化,临床、血象及骨髓象达SAA-Ⅰ型诊断标准时称
关于摄影中减小运动模糊的叙述,错误的是
下列哪一种核苷酸不是RNA的组分
李某,男性,上午停止胃肠减压,其引流瓶和引流管正确的处理是()
【2013年第4题】题36~40:有一栋写字楼,地下1层,地上10层,其中1~4层带有裙房,每层建筑面积3000m2;5~10层为标准办公层,每层面积2000m2。标准办公层每层公共区域面积占盖层面积的30%。其余为纯办公区域。请回答以下问题,并列出解答过
下列不属于取得国有土地使用费的是()。
精讲善练原则
已知方程x3+2x2-5x-6=0的根为x1=-1,x2,x3,则1/x2+1/x3=().
符号%是声明______类型变量的类型定义符。
最新回复
(
0
)