首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1 Click(
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1 Click(
admin
2016-01-22
49
问题
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击“删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能:
Private Sub Command1 Click()
Dim n%.k%
n=Len(Text 1.Text)
For k=0 To List 1.ListCount-1
If Left(List 1.List(k),n)=Textl.Text Then
List 1.RemoveItem k
End If
Next k
End Sub
在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=0 To Listl.ListCount-1改为( )。
选项
A、For k=1 To List1.ListCount-1
B、For k=1 To List1.ListCount
C、For k=0 To List1.LlstCount
D、For k=List1.ListCount-1 To 0 Step-1
答案
D
解析
在程序运行时删除列表框中的项目可以使用RemoveItem方法,其语法为:列表框.Removeltem索引号,列表框的属性Lisflndex返回当前所选项目的索引号,因此删除列表框选中项目的语句为:List1.RemoveltemList1.Listlndex。列表框的List(Index)属性返回指定索引号的列表项内容,第一个列表项的索引为0而最后一个项目的索引为ListCount-1,其中,IAstCount属性返回列表框中当前的列表项总数。
本题原代码错误原因:每执行一次。Removeltem方法后,列表框中被删除项目的后续项目的位置将前移,即其Listlndex属性值将减1。为此可从列表框的最后一个项目开始进行查找,即:For k=List1.ListCount-1 To O Step-1。
转载请注明原文地址:https://kaotiyun.com/show/GwLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
常用控件的Style属性值是()。
要想改变一个窗体的标题内容,则应设置______属性的值。
下列操作不能向工程中添加宙体的是()。
函数Int(Rnd*10)+10的值的范围是______。
已知数组A(4,4),各个元素在运行程序时被赋值并打印,形成四除非方阵。请在______和______处填写所需的内容,使其产生一个转置矩阵(即行列互换),仍放在数组A中,并打印出来。例如:111122223333
窗体上有名称为Text1、Text2的两个文本框,和一个由3个单选按钮构成的控件数组Option1,如图1所示。程序运行后,如果单击某个单选按钮,则执行Text1中数值与该单选按钮所对应的运算(乘1、乘10或乘100),并将结果显示在Text2中,如图2
设有如下程序段:a$="BeujingShanghai"b$=Mid(a$,Instr(a$,"g")+1)。执行上面的程序段后,变量b$的值为______。
表达式(3/2+1)*(5/2+2)的值是
在窗体模块中用Public定义的变量的作用范围是
数据库设计的4个阶段是:需求分析、概念设计、逻辑设计和
随机试题
革兰阴性杆菌败血症发生休克的特点为()
关于肠易激综合征的叙述,不正确的是
下列科目中,事业单位核算固定资产时涉及的有()。
一个人拥有管理、记账和IT技能,又同时将这种技能提供给不同的单位,这种工作模式属于()工作模式。
对于有小数位数的数值,其有效位数是指从最左侧一位的非零数字向右数得到的位数。
儿童的发展具有明显的(),这决定了学前儿童科学教育的目标必须具有年龄层次性。
儿童动作发展具有从局部到整体的规律。()
小张老师是初中一年级(1)班的新任英语老师。她第一次登上初中一年级(1)班的讲台,学生在台下的反应很活跃,让小张很受鼓舞。她决定按原备课计划进行互动,就请了十位同学上讲台抢答表演会话。可是由于不了解学生的情况,被请上讲台的同学学习水平参差不齐,一些同学反应
一根绳子,第一次用去全长的一半多5米,第二次用去余下的一半少10米,第三次用去15米,最后还剩下10米,这根绳子原来有多少米?()
华某系江塘市某化工厂制剂车间工艺员,负责工艺流程管理和记录,兼做清洗参观服等工作,2006年3月26日午休时,华某提水桶到蒸气阀口处接热水时,被蒸气烫伤,经诊断,华某全身烫伤22%。同年5月17日,华某父亲向江塘市劳动和社会保障局提出工伤认定申请,同年7月
最新回复
(
0
)