首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
admin
2020-06-30
62
问题
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click()
Dim n%,k%
n=Len(Text1.Text)
For k=0 To Listl.ListCount-1
If Left(List1.List(k),n)=Text1.Text Then
List1.RemoveItem k
End If
Next k
End Sub
在调试时发现,如输入"陈",可以正确删除所有姓"陈"的项目,但输入"刘",则只删除了"刘邦"、"刘备"2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为( )。
选项
A、For k=List1.ListCount-1 To 0 Step-1
B、For k=0 To List1.ListCount
C、For k=1 To List1.ListCount-1
D、For k=1 To List1.ListCount
答案
A
解析
错误原因:每一次删除列表框满足项,列表框的项目数目就会相应地减少,所以就出现了漏删内容,如果把循环变量k改成从List1.ListCout-1到0,从最后一个项目往第一个项目查找,满足条件就删除该项目,从而不会出现遗漏现象,所以正确答案为A。
转载请注明原文地址:https://kaotiyun.com/show/iEHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在名称为Form1的窗体上画一个名称为Label1、标题为“添加项目:”的标签;画一个名称为Text1的文本框,没有初始内容;画一个名称为Combo1的下拉式组合框,并通过属性窗口输入若干项目(不少于三个,内容任意);再画两个命令按钮,名称分别为Co
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Command1、标题为“打开”的命令按钮,然后画一个名称为CD1的通用对话框(如图1-189所示),编写适当的事件过程,
设窗体上有名称为Option1的单选按钮,且程序中有语句:IfOption1.Value=TrueThen下面语句中与该语句不等价的是( )。
以下关于文件的叙述中,错误的是( )。
软件需求分析阶段的工作,可以分为四个方面:需求获取、编写需求规格说明书、需求评审和()。
设有以下函数过程PrivateFunctionFun(a()AsInteger,bAsSlring)AsIntegerEndFunction若已有变量声明:Dimx(5)AsInteger
软件生命周期可分为定义阶段,开发阶段和维护阶段。详细设计属于
有表示公司和职员及工作的三张表,职员可在多家公司兼职。其中公司C(公司号,公司名,地址,注册资本,法人代表,员工数),职员S(职员号,姓名,性别,年龄,学历),工作W(公司号,职员号,工资),则表W的键(码)为
算法的空间复杂度是指()。
随机试题
乙内酰脲类抗癫痫药通过减钠离子内流而使神经细胞稳定,限制钠离子通道介导的发作性放电的扩散,属于该类的抗癫痫药物是
设总体X的概率密度为 其中σ∈(0,+∞)为未知参数,X1,X2…,Xn为来自总体X的简单随机样本.记σ的最大似然估计量为求
患者女,30岁,半年前发现颈前部右侧鸽蛋大小包块,随吞咽上下移动,表面光滑,生长缓慢。1周前感冒咳嗽后颈部包块迅速增大,伴吞咽疼痛,局部有触痛。对于该患者最恰当的治疗方法是
与反流性食管炎无关的因素是
某车间的质量改进团队对A系列产品的不合格品项目进行改进时做以下工作:团队成员通过“质量改进”的培训后认为解决A系列产品的不合格品项目的质量改进应通过()。
已知a是实数,函数f(χ)=(χ-a).(1)求函数f(χ)的单调区间;(2)若a>0,设g(a)为f(χ)在区间[0,2]上的最小值,写出g(a)的表达式.
假定某日,人民币兑美元的汇率从1美元兑6.91人民币元变成1美元兑6.92人民币元,则该标价及其升贬值情况是()。
祖逖:闻鸡起舞()
微分方程③y2dx-(y2+2xy-y)dy=0中,属于一阶线性微分方程的是()
A、Iftheydon’tinvolveanyrisks.B、Iftheyproducepredictablesideeffects.C、Whentheurgentneedforthemarises.D、Whente
最新回复
(
0
)