首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click() Dim n
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click() Dim n
admin
2017-08-22
56
问题
窗体如图所示。要求程序运行时,在文本框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
单击命令按钮时,下列程序代码的执行结果为PublicSubProcl(nAsInteger,ByValmAsinteger)n=nMod10m=m\10EndsubPrivateSubComm
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是______。
列表框的______属性代表着列表框中项目的数目。
有如下程序:PrivateSubcommand1_Click()a=1:b=1Print"a=";a;",b=";bCallmult((a),b)Print"a=";a;",b=";b
以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数。阅读该程序,并在【】和【】处填上正确的内容。PrivateSubCommand1_Click()Dimd(6)fori=1To50n=【】d(n)=【
设有数组定义语句:Dima(5)AsInteger,List1为列表框控件。下列给数组元素赋值的语句错误的是
在下列选项中,哪个不是一个算法一般应该具有的基本特征______。
若某二叉树的前序遍历访问顺序是abdgcefh,中序遍历访问顺序是dgbaechf,则其后序遍历的结点访问顺序是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Forml标题为”选课”的窗体上画一个复选框数组,名称为CHl,共有四个复选框,按顺序其标题分别是”数学”、”语文”、”外语”、”计算机”,其中”语文”、”计算机”复选
随机试题
简述生物膜的流动镶嵌模型及其生物学意义。
女性不应从事何种工作女性不应从事何种负重工作
HBV感染进入后期与传染性减低的指标是
施工单位要根据工程的特点,结合施工组织设计的编制,制订(),将工程质量目标层层分解、层层下达、层层落实,落实到每个作业班组,落实到岗位和个人,使每个人都了解完成本职工作的质量要求和具体质量标准,明确自己的努力方向。
建设工程民事纠纷经不同主体调解成功并制作了调解书,其中可以强制执行的是()
企业股份制改制进行资产评估时,由审计机构进行资产评估。()
我国上市公司从历史形成来源分类,包括()。
甲股份有限公司(本题下称“甲公司”)为上市公司,20×7年至20×9年企业合并、长期股权投资有关资料如下:(1)20×7年1月20日,甲公司与乙公司签订购买乙公司持有的丙公司(非上市公司)60%股权的合同。合同规定:以丙公司20×7年5月30日评估的
下列属于问题解决的是()
此前,网曝阜阳市2014年公共自行车系统政府采购总费用为6488万元,采购自行车数量为6500辆,平均每辆自行车的采购费用约为9981.5元,近万元的“天价公共自行车”涉嫌滥用政府采购资金。由此引发了网络热议。以市政府公共采购处的名义,写一份针对
最新回复
(
0
)