首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
admin
2020-06-30
55
问题
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:
Private Sub Command1_Click()
Dim n%,k%
n=Len(Text1.Text)
For k=0 To List1.ListCount-1
If Left(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
解析
在程序运行时删除列表框中的项目可以使用RemoveItem方法,其语法为:列表框.Removeltem索引号,列表框的属性ListIndex返回当前所选项目的索引号,因此删除列表框选中项目的语句为:List1.Removeltem List1.List1ndex。列表框的List(Index)属性返回指定索引号的列表项内容,第一个列表项的索引为0而最后一个项目的索引为ListCount-1,其中,ListCount属性返回列表框中当前的列表项总数。
本题原代码错误原因:每执行一次Removeltem方法后,列表框中被删除项目的后续项目的位置将前移,即其List1ndex属性值将减1。为此可从列表框的最后一个项目开始进行查找,即:Fork=List1.ListCount-1 To 0 Step-1。
转载请注明原文地址:https://kaotiyun.com/show/qIHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Label1的标签,然后画一个名称为HScroll1的水平滚动条,其Min和Max属性分别设置为0和255。程序运行后,如果用鼠标移动滚动框,则在标签Label1中显示滚动条的当前值,以下能实现上述操作的程序段是
下列循环能正常结束的是()。
以下关于VB特点的叙述中,错误的是
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得f(x0)=0(该点称为"零点")。设有VB函数:PrivateFunctionf(xAsSingle)AsSingle可以返
数据库的故障恢复一般是由()来执行恢复。
假定有以下循环结构:DoUntil条件表达式 循环体Loop则以下正确的描述是( )。
将E-R图转换为关系模式时,实体和联系都可以表示为( )。
数据库中对概念模式内容进行说明的语言是()。
下面不能作为软件设计工具的是()。
要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目,则应把该列表框的MultiSelect属性设置为()。
随机试题
双面开门的交接箱临街箱门为()。
在道路上遇到这种情况可以从两侧超车。
成就需要理论的提出者是()
生态系统中的分解者包括细菌、真菌和苔藓。()
某地面散养成年蛋鸡群中,发现鸡产蛋量下降,下痢,消瘦,食欲缺乏,部分病鸡冠、髯部发绀。调查发现鸡场地面存在蚯蚓,剖检发现盲肠肿大,肠壁发炎和增厚,有溃疡。蚯蚓是该寄生虫的
王某怀孕期间到医院进行产前检查,此时医生如果发现一些情况存在,就会提出终止妊娠的医学意见,这些情况中不包括
财务杠杆作用的大小通常用( )表示。
小学生的主导活动是()
体育即身体教育,因此体育课的目的无非就是发展身体素质,提高运动能力。()
Todaywetakeforgrantedthatthemailwillbedelivereddailyatourdoor.Butmanyyearsagoitmighthavebeenplacedina
最新回复
(
0
)