首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Corn-mandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command l_Click()
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Corn-mandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command l_Click()
admin
2020-07-22
54
问题
窗体如图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全国计算机二级
相关试题推荐
工程中有Forml、Form2两个窗体(Forml中有文本框Textl;Form2中有Textl文本框和Commandl命令按钮)。Forml是启动窗体。在这些模块中编写下面的程序代码:Forml中的代码如下:Private
下列选项中,不属于模块间耦合的是()。
对于文本框Text1,能够获得按键的ASCII码值的事件过程是
若要使文本框能够输入多行文本,应该设置的属性是
窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程:PrivateSubText1.KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintTextl.Text;EndSub运行程序,并
在窗体画一名为CommonDialog1,则下列与CommonDialog1.ShowOpen方法等效的语句是
下列能将输入焦点置于名称为txtAdd文本框中的语句是
有如下语句序列:Dima,bAsIntegerPrintaPrintb执行以上语句序列,下列叙述中错误的是
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
下面不属于软件设计阶段任务的是
随机试题
价值型股票基金与成长型股票基金相比()。
患者,男性,34岁,右下颌下区无痛性质软肿物发现3个月,表面皮肤正常,口内检查亦未见异常。行下颌下手术时见肿物呈囊性,术中囊壁破裂。流出黏稠而略带黄色蛋清样液体,遂将囊壁及下颌下腺一并摘除,但术后不久囊肿复发。该病的最佳治疗方法是
妇科检查前护理错误的是()。
案情:甲欲购买房屋若干,遂于2005年5月1日到乙房地产公司售楼处了解乙开发建设的A楼盘情况。乙的销售人员称楼盘销售火爆,房屋成交量已达房屋总量的80%以上,如果甲不及时购买,可能再也买不到该楼盘的房屋,即使能买到,也要多支付10%以上的房款。甲领取了楼盘
环境噪声现状评价中,需图示说明的内容有()。
票据基础关系是形成票据关系的原因和前提,但是,票据关系一经形成,就与基础关系相分离。()
下图甲示突触的亚显微结构,a、d分别表示两个神经元的局部。下列与此相关的表述中正确的是()。
对多血质的学生,教师在教育时应着重注意培养其当机立断的性格。()
宋朝初年的最高行政机构是()。
A—TopStoriesB—E-newslettersC—CurrentSpecialD—What’sNewE—Editor’sPicksF—LatestInJobsG—HighlightsH—LetterstoEdito
最新回复
(
0
)