首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Private
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Private
admin
2020-07-22
70
问题
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click()
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/ENHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设R是一个2元关系,有3个元组,S是一个3元关系,有3个元组。如T=R×S,则T的元组的个数为()。
把一个名称为mnuStyle的菜单项设置为不可用的语句是
为了使每秒钟发生一次计时器事件,可以将其Interval属性设置为( )。
程序运行时,当在空文本框中依次输入1234时,窗体上显示的是()。PrivatesubText1_Change()PrintText1:EndSub
窗体上有一个名称为VScroll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
有如下数据定义语句:Dima,bAsIntegerDimx%,yasInteger执行上述语句后,不是整型变量的是
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序:PrivateSubCommand1_Click() DimxAsInteger x=Val(InputBox("输入数据")) Text1=
(1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,可以从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。如图3.158(a)是输入53后的结果,如图3.158(b)是输入100的结果。已经给出了全部控件
A、自然连接B、交C、投影D、并A关系R和关系S有公共域,关系T是通过公共域的等值进行连接的结果,符合自然连接,选A。
将E-R图转换为关系模式时,实体和联系都可以表示为( )。
随机试题
绞窄疝时,疝内容物是肠管时,其病理变化为
以下部位神经支配的对应关系是A.L2B.C7C.C6D.C8~T1E.L3支配股四头肌的是
在选择教育理财产品的时候,应该考虑:()。
p值和标准差都是用来测度风险的,它们的区别在于()。
利率风险对固定收入证券的影响不如对股票价格的影响。()
中国公民张某系一大学教授,2006年度取得的收入情况如下:(1)每月取得工资收入5600元;(2)一次性取得设计收入2万元,缴税前从中依次拿出6000元、5000元,通过国家机关分别捐给了农村义务教育和贫困地区;(3)出版专著一部,出版社支付稿酬10万元;
凡.高:《向日葵》:荷兰
函数ReadDat()的功能是实现从文件ENG62.IN中读取一篇英文文章,存入到字符串数组xx中。请编制函数encryChar(),按给定的替代关系对数组xx中所有字符进行替代,仍存入数组xx的对应的位置上,最后调用函数WriteDat()把结果xx输出
设有以下程序:PrivateSubForm_Click() x=50 Fori=1To4 y=InputBox("请输入一个整数") y=Val(y) IfyMod5=0Then a=a+y
结构化程序的三种基本控制结构是()。
最新回复
(
0
)