首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
admin
2018-05-08
33
问题
窗体如图1所示。要求程序运行时,在文本框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.RemoveItem k
End If
Next k
End Sub
在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=0 To List1.ListCount—l改为( )。
选项
A、For k=List1.ListCount一1 To 0 Step一1
B、For k=0 To List1.ListCount
C、For k=l To List1.ListCount一1
D、For k=1 To List1.ListCount
答案
A
解析
错误原因:每一次删除列表框满足项,列表框的项目数目就会相应地减少,所以就出现了漏删内容,如果把循环变量k改成从List1.ListCout一1到0,从最后一个项目往第一个项目查找,满足条件就删除该项目,从而不会出现遗漏现象,所以正确答案为A。
转载请注明原文地址:https://kaotiyun.com/show/7cGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Text1.Text=Fun
软件需求说明书是需求分析阶段的最后成果,以下()是其应包括的内容。Ⅰ.数据描述Ⅱ.功能描述Ⅲ.性能描述Ⅳ.文件结构
若在某窗体模块中有如下事件过程:PrivamSubCommand1_Click(IndexAsInteger)......EndSub则以下叙述中正确的是______。
在窗体上画一个命令按钮,然后编写如下过程,程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为______。Functionfun(ByValnumAsLong)AsLongDimkAsLongk=1
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:PrivateSubCommand1_Click()StaticxAsIntegerStaticyAsIntegerClsy=1y=
下列叙述中正确的是
下列叙述中正确的是
以下能正确定义数据类型Systemlnfo的代码是()。
在考生目录下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为”口令”和”允许次数”;一个命令按钮Cl,标题为”确定”;两个文本框名称分别为Textl和Text2。其中Textl用来输入口令(输入时,显示”*”),无初始内容;Text
随机试题
(2019年烟台福山区)青少年的自我概念在内容和结构上都与早期个体的自我概念有很大差异,主要表现在()
物流企业债券的发行人无法支付本息而给投资者带来的风险是()
中成药处方正文不包括
肾小管各部位及其相应功能,应除外哪一项
盈亏平衡分析只用于()。
依据施工合同示范文本规定,某设备安装工程试车时发现,由于设计原因试车达不到验收要求,则应由( )。
该批货物的提单号为“7865435”。( )报检时须提供“3C”证书。( )
票据行为包括()。[2009年10月真题]
J公司的会计人员获悉D公司已破产,在查明原因后对D公司所欠的200万元应收账款全额计提了坏账准备,助理人员通过检查没有提出异议。( )当注册会计师通过了解发现相关内部控制存在且有效运行时,注册会计师就应对其进行控制测试。( )
TheCaseforKillingMyMotherA)Mymotherwantedtodie,butthedoctorswouldn’tlether.Atleastthat’sthewayitseemedto
最新回复
(
0
)