首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1 Click( )
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1 Click( )
admin
2018-09-29
47
问题
窗体如图所示。要求程序运行时,在文本框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.Removeltem k
EndIf
Nextk
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.ListCotmt
D、For k=List1.ListCount-1 To 0 Step-1
答案
D
解析
在程序运行时删除列表框中的项目可以使用Removeltem方法,其语法为:列表框.Removeltem索引号,列表框的属性Listlndex返回当前所选项目的索引号,因此删除列表框选中项目的语句为:List1.RemoveItem List1.ListIndex。列表框的List(Index)属性返回指定索引号的列表项内容,第一个列表项的索引为0而最后一个项骨的索引为ListCount-1,其中,ListCount属性返回列表框中当前的列表项总数。
本题原代码错误原因;每执行一次RemoveItem方法后,列表框中被删除项目的后续项目的位置将前移,即其ListIndex属性值将减1。为此可从列表框的最后一个项目开始进行查找,即:Fork=List1.ListCount-1 To 0 Step-1。
转载请注明原文地址:https://kaotiyun.com/show/wQFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()DimnAsLong,sAsStringn=InputBox("输入一个数")DoWhilen0s=s&nMod
假定有以下函数过程:FunctionFun(SAsString)AsString Dims1AsString Fori=1ToLen(S) s1=LCase(Mid(S,i,1))+s1 Next
下面关于组合框Cb1的叙述中正确的是
表达式5*Sqr(25)+Sgn(4^4)的值是
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text="程序设计"Text1.SetFocusEndSubPrivateSubText1_GotF
下面可以作为VisualBasic的变量名的是
以下不能用Print方法输出数据的对象或窗口是
窗体上有一个名称为Combo1的组合框,为了引用Combo1中最后一个列表项,应使用的表达式是
检查软件产品是否符合需求定义的过程称为()。
随机试题
若函数f(x)在x0处可导,且=().
______singerand______dancerisalsogoodatdrawing.
A.肝包虫病和肺包虫病B.窦道和虫囊肿C.胆管炎和胆结石D.干线型肝硬化E.橡皮肿华支睾吸虫
主要以舌下给药为主的血管扩张剂是
合同争议的调解分为行政调解和民间调解,调节机关收到调解书后作出是否受理决定,受理条件是()等。
非代理型(风险型)CM模式的合同一般采用成本加酬金合同中的()形式。
根据《国务院关于发展城市社区卫生服务的指导意见》的规定,社区卫生服务机构提供公共卫生服务和基本医疗服务。下列服务中不属于社区卫生服务的是()。
对下列二叉树进行前序遍历的结果为()。
WhichofthefollowingEnglishsoundsisNOTbilabial?
Youshouldn’t_______yourfather’sadvice.Anywayheismuchmoreexperiencedthanyouinthismatter.
最新回复
(
0
)