首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
admin
2015-08-28
25
问题
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click()
Dim n%,k%
n=Len(Text1.Text)
For k=0 To Listl.ListCount-1
If Left(List1.List(k),n)=Text1.Text Then
List1.RemoveItem k
End If
Next k
End Sub
在调试时发现,如输入"陈",可以正确删除所有姓"陈"的项目,但输入"刘",则只删除了"刘邦"、"刘备"2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为( )。
选项
A、For k=List1.ListCount-1 To 0 Step-1
B、For k=0 To List1.ListCount
C、For k=1 To List1.ListCount-1
D、For k=1 To List1.ListCount
答案
A
解析
错误原因:每一次删除列表框满足项,列表框的项目数目就会相应地减少,所以就出现了漏删内容,如果把循环变量k改成从List1.ListCout-1到0,从最后一个项目往第一个项目查找,满足条件就删除该项目,从而不会出现遗漏现象,所以正确答案为A。
转载请注明原文地址:https://jikaoti.com/ti/rOJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
用户在组合框中输入或选择的数据可以通过()属性来获得。
以下正确的叙述是______。
面向对象的设计方法与传统的面向过程的方法有本质不同,它的基本原理是______。
若在Shape控件内以FillStyle属性所指定的图案填充区域,而填充图案的线条的颜色由FillColor属性指定,非线条的区域由BackStyle属性填充,则应______。
下列程序的运行结果是______。PrivateSubCommand1_Click()a=1:b=1fori=1To3a=a+b:b=b+aNextiPrinta,bEn
算法一般都可以用哪几种控制结构组合而成______。
变量的类型可以用类型说明符来标识。下列使用类型说明符不正确的是______。
对用MsgBox显示的消息框,下面______是错的。
窗体在屏幕上显示后有______种方法可以清除它。
下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果,例如:若str=”ABCDABCD”,ch=”B”,则函数的返回值为:”ACDACD”Functiondelchar(strAsString,chAsSt
随机试题
关于我国刑事诉讼中起诉与审判的关系,下列哪一选项是正确的?()
对急性阑尾炎诊断最有价值的体征或症状是
A、薏苡仁B、泽泻C、地肤子D、木通E、石韦能清肺止咳的药是()
直径为20mm的管流,平均流速为9m/s。已知水的运动黏性系数v=0.0114cm2/s,则管中水流的流态和水流流态转变的临界流速分别是()。
数字式笔记本电脑,重量5千克(有CPU;有键盘;有显示器)()
腈纶制针织套头衫
案例描述:一个20岁女孩。一日食谱如表1一23所示。 请回答以下问题:针对她的情况,用称重法膳食调查方法是否合适?
《幼儿园管理条例》中规定,具有下列情形之一的单位或者个人,由教育行政部门对直接责任人员给予警告、罚款的行政处罚,或者由教育行政部门建议有关部门对责任人员给予行政处分的是()。
根据下面材料回答问题。2012年末,全国总人口135404万人,出生人口1635万人,人口出生率为12.10‰,比上年提高0.17个千分点;人口死亡率为7.15‰,比上年提高0.01个千分点:人口自然增长率比上年提高0.16个千分点。从
Fireworks,______originatedcenturiesagoinChina,werebroughttoEuropebyMarcoPolo.
最新回复
(
0
)