首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1 Click( )
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1 Click( )
admin
2018-09-29
19
问题
窗体如图所示。要求程序运行时,在文本框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
EndIf
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.ListCotmt
D、For k=List1.ListCount-1 To 0 Step-1
答案
D
解析
在程序运行时删除列表框中的项目可以使用Removeltem方法,其语法为:列表框.Removeltem索引号,列表框的属性Listlndex返回当前所选项目的索引号,因此删除列表框选中项目的语句为:List1.RemoveItem List1.ListIndex。列表框的List(Index)属性返回指定索引号的列表项内容,第一个列表项的索引为0而最后一个项骨的索引为ListCount-1,其中,ListCount属性返回列表框中当前的列表项总数。
本题原代码错误原因;每执行一次RemoveItem方法后,列表框中被删除项目的后续项目的位置将前移,即其ListIndex属性值将减1。为此可从列表框的最后一个项目开始进行查找,即:Fork=List1.ListCount-1 To 0 Step-1。
转载请注明原文地址:https://jikaoti.com/ti/P6m0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框,其Text属性值为"VBProgramming"。运行程序后,选中其中的"VB",并执行如下事件过程:PrivateSubCommand1_Click()
某系统结构图如下图所示该系统结构图的宽度是
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:PrivateTypeRecord IDAsInteger NameAsString*20EndTypePrivateSubCommand1_Click()
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是( )。
下面不属于对象主要特征的是
下列数组定义语句中错误的是
如果希望向一个顺序文件写入数据,但又要保留文件中的原有内容,应采取的文件打开方式是
执行以下程序段后,输出结果不为2的是
数据库设计中反映用户对数据要求的模式是( )。
某二叉树共有7个结点,其中叶子结点只有1个,则该二叉树的深度为(假设根结点在第1层)( )。
随机试题
患者,女,33岁。因发热、咽喉痛口服维C银翘片,3次/日,每次3片,服药3天后,体温未降反而上升至39℃,伴厌食、上腹部不适。前往医院就诊,实验室检查报告显示:谷丙转氨酶364U/L,谷草转氨酶265U/L,γ-谷氨酰转肽酶189U/L,碱性磷酸酶2
为伤寒病人灌肠时,液面与肛门之间的距离不超过()。
目前诊断伤寒,血象检查最有价值的是( )
从理论上讲,当()时,生产厂商的利润取得最大值。
处理异地劳动争议时,被派遣劳动者与派遣机构的劳动争议由()所在地管辖。[2011年5月二级真题]
为了挽救清政府的统治危机,封建统治阶级中的部分成员如奕诉、曾国藩、李鸿章、左宗棠、张之洞等洋务派官员兴办洋务事业。下列不是洋务派兴办的洋务事业的是()。
试述19世纪末以来西方国家现代报业的演变。(中国传媒大学,2009年)
下列选项中属于实践合同的是()。
INTELICOMKingston,OntarioOctober22Ms.SusanNewman320VictoriaStreetToronto,OntarioM5H3
FederalExpressisacompanythatspecializesinrapidovernightdeliveryofhigh-prioritypackages.Thefirstcompanyofitsty
最新回复
(
0
)