首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click() Dim n
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click() Dim n
admin
2017-08-22
93
问题
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:
Private Sub Command1_Click()
Dim n%.k%
n=Len(Text1.Text)
For k=0 To List1.ListCount-1
If Lefl(List1.List(k),n)=Text1.Text Then
List1.Removeltem k
End If
Next k
End Sub
在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为( )。
选项
A、For k=1 To List1.ListCount-1
B、For k=1 To List1.ListCount
C、For k=0 To List1.ListCount
D、For k=List1.ListCount-1 To 0 Step-1
答案
D
解析
在程序运行时删除列表框中的项目可以使用Removeltem方法,其语法为:列表框.Removeltem索引号,列表框的属性IAstlndex返回当前所选项目的索引号,因此删除列表框选中项目的语句为:IAstl.Removeltem List1.IAstlndex。列表框的List(Index)属性返回指定索引号的列表项内容,第一个列表项的索引为0而最后一个项目的索引为ListCount-1,其中,ListCount属性返回列表框中当前的列表项总数。
本题原代码错误原因:每执行一次RemoveItem方法后,列表框中被删除项目的后续项目的位置将前移,即其ListIndex属性值将减1。为此可从列表框的最后一个项目开始进行查找,即:Fork=List1.ListCount-1 To 0 Step-1。
转载请注明原文地址:https://kaotiyun.com/show/RtGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面语句正确的是
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFunctionf(mAsInteger)IfmMod2=0Thenf=mEls
过程语句中,使用的<参数表>可以是下列哪种()。
把窗体设置为不可见的,应该将()属性设置为False。
下面的4个数组中,语句语法正确的是______。
如果A为整数且|A|>=10,则打印“OK”,否则打印“Error”,表示这个条件的单行格式If语句是()。
单击一次命令按钮后,下列程序的执行结果为 PrivateSubCommand1_Click() DimmAsInteger,IAsInteger,x(10)AsInteger ForI=0To4:x(I)=I+1
如果准备读文件,打开顺序文件“text.dat”的正确语句是
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请选择正确的程序段是(),将程序补充完整。PrivateTypeAngKAsInteg
随机试题
关于质量管理体系的ISO9000族国际标准发布于______。
行宫见月伤心色,夜雨闻铃肠断声。行宫:
急性缺氧时机体呼吸、循环有哪些代偿反应?
手术切除恶性肿瘤的正确做法是
刘某、赵某、黄某、张某四人合伙成立一家金属冶炼公司,该公司董事长由最大的股东刘某担任,但刘某因生病长期休养,并不直接参与公司生产经营活动;公司总经理由赵某担任,全面负责生产经营活动;黄某担任冶炼车间主任,负责车间日常生产管理;张某担任公司工会主席。根据《安
不属于总监理工程师基本职责的有()。
商品房符合()条件可以预售。
如图,二面角α—l—β的大小是60°,线段ABα,B∈l,AB与l所成的角为30°,则AB与平面β所成的角的正弦值是__________.
某出租车司机因为违章被某公安机关交警部门吊销了驾驶执照。该司机认为处罚过重,并且给其造成了经济损失,其可以依法()。
ConversationalSkills1.Skilltoaskquestionsa)Beawareofthehumannature:readinesstoanswerothers’questionsr
最新回复
(
0
)