首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Corn-mandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command l_Click()
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Corn-mandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command l_Click()
admin
2020-07-22
56
问题
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Corn-mandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能:
Private Sub Command l_Click()
Dim n%.k%
n=Len(Textl.Text)
For k=0 To Listl.ListCount-l
If Left(Listl.List(k),n)=Textl.Text Then
List 1.Removeltem k
End If
Next k
End Sub
在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=0To Listl.ListCount-1改为( )。
选项
A、For k=Listl.ListCount-l To 0 Step-1
B、For k=0 To Listl.ListCount
C、Fok=l To Listl.ListCount-1
D、For k=1 To Listl.ListCount
答案
A
解析
错误原因:每一次删除列表框满足项,列表框的项目数目就会相应地减少,所以就出现了漏删内容,如果把循环变量k改成从Listl.ListCout-l到0,从最后一个项目往第一个项目查找,满足条件就删除该项目,从而不会出现遗漏现象,所以正确答案为A。
转载请注明原文地址:https://kaotiyun.com/show/2XHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
现有语句:y=IIf(x>0,XMod3,0)设x=10,则y的值是
编写如下程序:PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=2:n=1SelectCasemCase1SelectC
在窗体画一名为CommonDialog1,则下列与CommonDialog1.ShowOpen方法等效的语句是
为了使文本框同时具有垂直和水平滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
在结构化程序设计中,模块划分的原则是
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是
为了实现对象的自动拖放,应该设置该对象的一个属性。下面设置中正确的是()。
某完全二叉树按层次输出(同一层从左到右)的序列为ABCDEFGH。该完全二叉树的前序序列为()。
在深度为7的满二叉树中,度为2的结点个数为
随机试题
甲状腺功能亢进经抗甲状腺药物治疗后,如疗效显著,可出现以下现象
贫血的治疗原则首先是
依据我国民事诉讼法和相关司法解释的规定,下列关于管辖问题的哪一项表述是错误的?()
以募集设立方式设立股份有限公司的,发起人认购的股份不得少于公司股份总数的25%。()
共情在咨询活动中的重要性体现在()。
法兰西第一帝国的皇帝是世界历史上的一位传奇人物,人们对他褒贬不一。这位皇帝是()。
影响资本周转速度的因素有哪些?
下面程序的运行结果是include<stdio.h>main(){inta=28,b;chars[10],*p;p=s;do{b=a%16;if(b<
Whatarethemanandthewomandoing?
Waterprobleminthefuturewillbecomemoreintenseandmorecomplex.Ourincreasingpopulationwilltremendouslyincreaseurba
最新回复
(
0
)