首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
admin
2020-06-30
36
问题
窗体如图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/gmHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个如右图所示的图形控件,控件中显示了如图所示的文字,可以判断这个图形控件( )。
下面描述中,不属于软件危机表现的是( )。
窗体上有一个图片控件和一个按钮控件,下列程序执行的结果是()。PrivateSubCommand1Click()Picture1.Picture=LoadPicture("c:\picture.jpg")Pictur
耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是( )。
下列叙述中正确的是( )。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“窗体”的窗体上画一个标签,其名称为Label1,标题为“等级考试”,字体为“黑体”,BorderStyle属性为1,且可以自动调整大小
在最坏情况下,堆排序的时间复杂度是
窗体上有一个名称为VSeroll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是()。
对下列二叉树进行前序遍历的结果为
随机试题
不等分锥度铰刀的分齿夹角要求属于__________要求。
可以计入企业管理费用的税金有()
一白领女性,25岁,用新买的香水后突发咳嗽、胸闷3小时就诊。检查:大汗、呼吸困难,双肺满布哮鸣音,心率140次/分,律齐,无杂音。X线胸透双肺透光度增强。最可能的诊断是
患儿,6岁,因咳喘3天,发热1天入院。既往喘息5年,每年发作5~6次,夜间明显。体检:体温38℃,呼吸58次/分。端坐呼吸,轻度紫绀,双肺布满哮鸣音,无湿啰音,心音有力,律齐。入院后吸氧4小时。目前,最需要做哪项检查( )。
常以肌无力为最早表现的电解质紊乱是
甲国警察李某,因婚姻破裂而绝望,某日持枪向路人射击。甲国警方迅速赶到事发现场,采取措施控制事态并围捕李某。李某因拒捕被击毙。但李某的疯狂射击造成数人死亡,其中包括乙国驻甲国参赞程某。根据国际法的有关规则,就该参赞的死亡,下列判断哪一项是正确的?()
复数的共轭复数是()
(2007下项管)(2007下网工)在进行金融业务系统的网络设计时,应该优先考虑______(1)原则。在进行企业网络的需求分析时,应该首先进行______(2)。(2)
Willitmatterifyoudon’ttakeyourbreakfast?RecentlyatestwasgivenintheUnitedStates.Thosetestsincludedpeopleo
—"Whydoyoulookworried?"—"Fredleftthecompanyhalfanhourago.Hiswork______unfinishedsince."
最新回复
(
0
)