首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
admin
2018-05-08
32
问题
窗体如图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则以下叙述中正确的是______。
下列不属于软件工程3个要素的是()。
冒泡排序在最坏情况下的比较次数是
下列叙述中正确的是
支持子程序调用的数据结构是
关于菜单设计,下列叙述中错误的是()。
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTypeTemScoreAsIntegerStrNameAsStringEndTypeDimStudent(5)AsTem则下面的输出语句中正确的是()
在设计阶段,假定在图片框:Picturel中装入了一个图形,为了删除该图片框控件,应采用的正确操作是
在考生目录下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为”口令”和”允许次数”;一个命令按钮Cl,标题为”确定”;两个文本框名称分别为Textl和Text2。其中Textl用来输入口令(输入时,显示”*”),无初始内容;Text
随机试题
24岁男骑摩托车追尾事故致左髋后上脱位,最正确的治疗是
思维的主要过程是指
根据牙在骨内的深度,完全的骨埋伏阻生称为以上何种类型是根据阻生智齿长轴与第二磨牙长轴关系而进行的分类
董事会每年度至少召开一次会议,每次会议应当于会议召开10日前通知全体董事和监事。代表1/10以上表决权的股东、1/3以上董事或者监事会成员,可以提议召开董事会临时会议。()
以经济增加值为核心的绩效考评,对商业银行的有利影响不包括()。
有关在会计报表附注中披露会计估计变更的要求与披露会计政策变更的要求是基本一致的。()
注意:下面出现的所有文件都必须保存在指定的文件夹下。打开工作簿文件EX12.XLS(内容如下),将工作表sheet1的A1:C1单元格合并为一个单元格,内容居中;计算“人数”列的“总计”项和“所占比例”列(所占比例=人数/总计,最后一个单元格不计),将工
OnThursdayafternoonMrs.Clarkelockedthedoorandwenttothewomen’sclubasusual.Itwasapleasantwayofpassingtime【
Advertisementcanbethoughtof"asthemeansofmakingknowninordertobuyorsellgoodsorservices".Advertisementaimst
SpaceTourism[A]Makeyourreservationsnow.Thespacetourismindustryisofficiallyopenforbusiness,andticketsaregoi
最新回复
(
0
)