首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Commandl_Click()
窗体如图1所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Commandl_Click()
admin
2016-06-30
100
问题
窗体如图1所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:
Private Sub Commandl_Click()
Dim n%.k%
n=ten(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://kaotiyun.com/show/ueLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对象.cls方法对()控件有效。
如果在一新建的工程中使用其他工程已设计好的窗体,可以采用()步骤将其添加到当前工程中。
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubForm
下列程序的执行结果为()。n=0j=1DoUntiln>2 n=n+1 j=j+n*(n+1)LoopPrintn;j
当文本框ScrollBars属性设置了非零值,却没有效果,原因是
执行下列程序后,鼠标单击窗体,输出结果为PrivateSubForm_Click() Print"Click":EndSubPrivateSubForm_MouseDown(ButtonAsInteger,S
在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(keyAsciiAsInteger)EndSub若焦点位于文本框中,则能够触发KeyPress事件的操作是(
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFori=1To9Sum=Sum+
常见的软件工程方法有结构化方法和面向对象方法,类?继承以及多态性等概念属于【】。
随机试题
公共关系学正式成为一门科学的时问是【 】
半抗原是指
人体最大的腺体是
五苓散的组成药物中不含有
若()。
下列四种投资工具中,风险最低的是()。
甲公司是一家中外合资经营企业,注册资本为800万美元,合营企业合同约定合营双方分期缴纳出资,2007年5月1日甲公司取得企业法人营业执照。根据中外合资经营企业法律制度的规定,下列表述中,正确的有()。
股份有限公司的创立大会可以做出不设立公司的决议。()
软件设计中各模块之间联系的紧密程度称为()。
DeathValleyisoneofthemostfamousdesertsintheUnitedStates,coveringawideareawithitsalkalisand.Almost20percen
最新回复
(
0
)