首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
admin
2020-07-22
22
问题
窗体如图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/XCHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click(Dimarr_x(5,5)AsIntegerFori=1To3Fori=2To4
下面程序计算并输出的是PrivateSubCommandl_Click()a=10:s=0Dos=s+a*a*a:a=a-1LoopUntila
窗体上有一个名称为Text1的文本框,一个名称为Commandl的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序:PrivateSubCommandl_Click()Dimcount(10)AsInteger第
设x是整型变量,与函数IIf(x>O,一X,x)有相同结果的代数式是.
在VisualBasic中,不能关闭的窗口是
窗体上有一个名称为Commandl的命令按钮,其事件过程如下:PrivateSubCommand1—Click()x=“VisualBasicProgramming”a=Right(x,11)b=Mid(x,7,5)c=MsgBox(a,,
以下选项中,不合法的VisualBasic的变量名是
VisualBasic组合框可表现为简单组合框、下拉式组合框、下拉式列表框三种类型,决定组合框表现为哪种类型的属性是
设x是整型变量,与函数IIf(x>0,-x,x)有相同结果的代数式是( )。
随机试题
组织变革的过程包括()
多钩瓷绝缘子型式分为()、()和()三种。
利用生活情景这种技术没有用于个别治疗,但被作为一种治疗的是()
高中阶段“统计”一章的学习中,学习了“简单随机抽样”“系统抽样”“分层抽样”三大抽样方法。某教师想要对此设计一堂习题课,以帮助学生进一步区分这三种抽样方法。请据此回答下列问题:分别设计三道习题以帮助学生巩固这三种抽样方法;
土家语在大多数情况下把原来的“主语一宾语一谓语”的语序改变为与汉语相同的“主语一谓语一宾语”的语序,这属于()。
“临、勤、近、宾、音、信”的韵母都是相同的。()
落地签证
“克隆”、“转基因”等生命科学的重大突破
设则在x=a处()
CatastrophicvolcaniceruptionsinEuropemayhaveculledNeanderthalstothepointwheretheycouldn’tbounceback,accordingt
最新回复
(
0
)