首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click()
admin
2016-08-24
20
问题
窗体如图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全国计算机二级
相关试题推荐
以下事件过程可以将打开对话框的标题改为“新时代”的是
用LineInput语句从顺序文件读出数据时,每次读出一行数据。一行是指遇到______分隔符,即认为一行的结束。
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_Click() Dima s=0 a=Array(1,2,3,
设有如下程序:PrivateSubCommand1_Click() DimsumAsDouble,xAsDouble sum=0 n=0 Fori=1To5 x=n/i
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。PrivateSubCommand1_Click()
产生[10,37]之间的随机整数的VisualBasic表达式是()。
下面的程序执行时,可以从键盘输入一个正整数,然后把该数的每位数字按逆序输出。例如:输入7685,则输出5867;输入1000,则输出0001。请填空。PrivateSubCommandl_Click()
用树形结构表示实体之间联系的模型是____________。
在E-R图中,用来表示实体的图形是()
随机试题
关于PGF2α的描述,正确的是:
点揉背部()可缓解颈部酸沉。
Graharn_Steell杂音
[2010年,第47题;2014年,第47题]如图4.1-4所示,将大小为100N的力F沿x、y方向分解,若F在x轴上的投影为50N,而沿x方向的分力的大小为200N,则F在y轴上的投影为()。
关税属于( )课税。
抹灰工程当抹灰总厚度大于或等于()数值时,应采取加强措施。
桌子上的蛋糕不知被谁吃了,以下是屋内四个人的回答。甲说:“是乙吃的。”乙说:“是丁吃的。”丙说:“我没吃。”丁说:“乙在撒谎。”,这四人中只有一人说了真话,由此可以判断()。
以下关于空值(NULL值)叙述正确的是()。
要实施两项关键政策:一是经济结构的战略性调整,一是继续扩大对外开放。
Poortransportfacilitiesandthelackofresources,rawmaterialsandenergyalsopartly______thedropincontractfulfillmen
最新回复
(
0
)