首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
admin
2016-08-24
18
问题
窗体如图1所示。要求程序运行时,在文本框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.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/y4Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下程序的功能是将多维数组a(1Tom,1Ton)中的元素转移到一个名为b(1Ton*m)的一维数组中,完成该程序。OptionBase1PrivateSubCommand1_Click(IndexAsInteger)
设A="123456",则表达式Val(Left(A,4)+Mid(A,4,2))的值为
结构化程序设计主要强调的是
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() c=1234 c1=Trim(Str(c)) Fori=1To4 Pri
设A$=“北京”,B$=“Shanghai”,则表达式LEFTS(A$,2)+STRINGS(3,"-")+LEFTS(BS,8)构成的字符串是
为了能自动放大或缩小图像框中的图形与图像框的大小相适应,必须把该图片框的Stretch属性设置为______。
在窗体上有一个文本框控件,名称为TextTime;--个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimer1_______TxtTime.text=TimeEndS
在关系模型中,把数据看成是二维表,每一个二维表称为一个______。
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是()。
随机试题
()井口控制套管气常用的方法是安装套管防气阀,用以减少因套压过高而使动液面下降,造成沉没度过低(小),严重时使被分离出的气体进入泵内。
古埃及的行政组织的特点是()
患者吞咽梗阻,胸膈痞闷,情志舒畅时可稍减轻,口干咽燥,舌质偏红,苔薄腻,脉弦滑。治宜选用
Bell面瘫起病后14天内面神经电图检查示运动神经纤维变性达到下列哪一项指标则预后不良
A、β1受体B、β2受体C、M受体D、N1受体E、N2受体骨骼肌细胞膜上的受体是( )。
设计燃气锅炉房时,其泄压面积应满足锅炉间占地面积的()。
不属于实施见证取样要求的是()。
在计算贷款项目现金流量时,折旧费支出、无形资产与递延资产摊销这几项应该()。
心智技能的形成分为()阶段。
A、Anexportsalesmanworkingoverseas.B、Atraineeworkingthrougheverybranch.C、Aproductionmanagerinabranch.D、Apolicy
最新回复
(
0
)