首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click() Dim n
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click() Dim n
admin
2017-08-22
66
问题
窗体如图所示。要求程序运行时,在文本框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。
为了显示一个窗体,所使用的方法为【】;为了隐藏一个窗体,所使用的方法为【】。
软件测试是保证软件质时的重要手段,而软件测试的主要的测试数据和【】的设计来实现。
通过文本框()事件过程可以获取文本框中输入字符的ASCII码值。
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFilel_DblClick()x=Shell(Filel.FileName,1)EndSub以下关于该程序的叙述中,错误的是__
按条件f对关系R进行选择,其关系代数表达式是
下列描述中,不是线性表顺序存储结构特征的是()。
以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。PrivateSubForm_click()Dimx,yAsSingleDimzAsIntegerx=InputBox("E
若某二叉树的前序遍历访问顺序是abdgcefh,中序遍历访问顺序是dgbaechf,则其后序遍历的结点访问顺序是
随机试题
根管治疗的非适应证是
招标人向建设行政主管部门办理申请招标手续的备案文件应包括( )。
双代号时标网络计划是以( )为尺度编制的网络计划。
一般事故由项目法人组织()进行调查。
政府发行长期债券,就可以在较长时期内占用国债认购者的资金,而不管国债认购者是否在国债期限内转让。()
个人贷款的还款方式有()
把下面六个图形分为两类,使每一类图形都有各自的共同特征或规律,分类正确的一项是()。
2008年一季度企业家信心指数比上季度上升最少的行业是()。
A、Theycostmorethantheuniversitycourses.B、Thecoursesincludebothstudyandwork.C、Youcangetrealworkingexperiencef
Ithasbeenabout______yearssincemansucceededinmakingrain.Whowasthefirstrainmakersucceedinginmakingrain?
最新回复
(
0
)