首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
admin
2015-08-28
89
问题
窗体如图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://kaotiyun.com/show/84Qp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮;然后编写如下程序:Functionfun(ByValnumAsLong)AsLongDimkAsLongk=1num=Abs(num)DoWh
要使列表框中的列表项显示成复选框形式,则应将其Style属性设置为______。
设有以下循环结构;Do循环体LoopWhile<杂件>则以下叙述中错误的是______。
在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:PrivateSubCommand1_Click()a=InputBox("请输入日期(1~31)")t="旅游景点:"_&
执行如下两条语句后,窗体上显示的是______。a=9.8596PrintFormat(a."$00,00,00")
在一个容量为32的循环队列中,若头指针front=3,尾指针rear=2,则该循环队列中共有______个元素。
通过改变单选按钮(OptionButton)控件的______属性值,可以改变单选按钮的选取状态。
结构化分析方法是面向()的自顶向下逐步求精进行需求分析的方法。
软件开发中常采用的结构化生命周期方法,由于其特征而一般称其为______。
随机试题
最可能的诊断是根据目前病例之诊断,主要治疗应包括
皮肤的多数相邻毛囊和皮脂腺的急性化脓性炎症称
某投资项目预计建成后的年固定成本为46万元,每件产品估计售价为56元,单位产品变动成本为25元,销售税率为10%。则该项目盈亏平衡点的产量为()件。
原水通过滤池时,()将水中悬浮物粘附截留。
能管理计算机的硬件设备并使得应用软件能方便、高效率地使用这些设备的是()。
新增会计科目。科目编码:1402一01科目名称:甲材料
乙公司为居民企业,主要从事货物生产和销售,2017年有关生产经营隋况如下:(1)取得不含税销售收入2500万元,销售成本1343万元;(2)发生销售费用670万元(其中广告费420万元);管理费用400万元(其中业务招待费15万元,新产品研究开发费用1
柯尔伯格道德判断发展的最高阶段是【】
一些精神疾病可以理解为不同的思考方式。米开朗琪罗、贝多芬、凡.高等许多名人或多或少有这样的特性。他们的艺术才华在一定程度上源于他们的精神紊乱,就像亚里士多德曾说过的那样,伟大的天才无不带有一丝疯狂。日前,一项针对数十万人进行的研究表明,精神分裂和躁郁症等疾
Forbusinessrelationstocontinuebetweenourtwocompanies,asatisfactory_____mustbereachedandsigned.
最新回复
(
0
)