首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:Private Sub Command1_Click() Dim n%
admin
2018-09-19
48
问题
窗体如图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/tnFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面不属于软件需求分析阶段工作的是
在窗体上画一个名称为Label1的标签,然后画一个名称为HScroll1的水平滚动条,其Min和Max属性分别设置为0和255。程序运行后,如果用鼠标移动滚动框,则在标签Label1中显示滚动条的当前值,以下能实现上述操作的程序段是
在考生文件夹下有一个工程文件sjt5.vbp,其功能是:①单击“读数据”命令按钮,则将考生文件夹下in5.dat文件中的100个正整数读人数组a中,同时显示在文本框Text1中。②单击“素数”按钮,则将数组a中所有素数(只能被1和自身整除的
设整型数组a有10个元素,其中前9个元素中数已按小到大顺序排列,下面程序段的作用是x=InputBox("请输入一个整数")k=8DoIfx>=a(k)Thena(k
执行以下程序段:a$="VisualBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为( )。
有如下事件过程:PrivateSubForm_Load()ShowDimArr()AsVariantArr=Array(1,3,5,7,9,11,13,15)Callconverse(
在数据库系统中,数据模型包括概念模型、逻辑模型和
以下不合法的VisualBasic变量名是
以下合法的VB变量名是
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:OptionBase1PrivateSubCommand1_Click() DimsumAsInt
随机试题
Excel2010中,工作表是一个________。
Somepessimisticexpertsfeelthattheautomobileisboundtofallintodisuse.Theyseeadayinthenot-too-distantfuturewh
关于卵巢单纯性浆液性囊腺瘤,下列哪一项是错误的
口腔白色角化病的病因是
有关病毒性肝炎的描述下列哪项是错误的( )
下列各项有关金融工具确认和计量的表述中,不正确的是()。
聚合函数“COUNT(列名)”的语义是______。
某次考试期间道路交通量特别大。交警例行检查,发现一辆车超载,学生很多,老师也说时间很紧,没有办法才超载,作为现场的交警,你怎么办?
一台老钟,每小时比标准时间慢4分钟,下午3点钟的时候和一只走得很准的手表对过时,现在那只手表正好指向晚上10点,请问,老钟还要多久才能走到10点钟?
阅读下列材料,并回答问题:材料一:在1843年,1844年,1845年北方各商埠刚开放时英国兴奋若狂,舍菲尔德的一家著名商行向中国输出大批刀叉,并声称它准备把刀叉供给全中国。但中国人不懂得刀叉的用途,而是用筷子扒饭,他们对这些器物连看也不看。.....一
最新回复
(
0
)