首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码。 [应用说明] 某应用程序在运行过程中的一个界面如下图所示: 在“供选课程”列表框(名为Listl)中选择某个课程后,再单击“,”按钮(名称为cmdSele
阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码。 [应用说明] 某应用程序在运行过程中的一个界面如下图所示: 在“供选课程”列表框(名为Listl)中选择某个课程后,再单击“,”按钮(名称为cmdSele
admin
2008-05-10
67
问题
阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码。
[应用说明]
某应用程序在运行过程中的一个界面如下图所示:
在“供选课程”列表框(名为Listl)中选择某个课程后,再单击“,”按钮(名称为cmdSelect),就能将该课程复制到“所选课程”列表框(名称为List2)中(但要注意不要出现重复项):如果单击“>>”按钮(名称为cmdSelAll),就能将全部供选课程名复制到列表框List2中(注意应先删除List2中的已选项);如果在“所选课程”列表框中选中某个课程,再单击“<”按钮(名称为emdDelete),就会从List2中删除该课程(未选课程时应不做处理);如果单击“<<”按钮(名称为cmdDelAll),就会从List2中删除所有已选课程。
[Vsual Basic 程序代码]
Private Sub CmdSelect_Cliek()
For i = O To List2.ListCount - 1
If Listl.Text = List2.List(i) Then Exit Sub ’不要重复选择
Next i
List2.Addltem (1) ’在List2中增添List1中所选的项
End Sub
Private Sub CrndSelAll_Click()
List2.Clear ’先删除List2中的已有项
For i = 0 To (2) ’对List1中所有各项做循环处理
List2.Addltem (3) ’将该项增添到 List2中
Next i
End Sub
Private Sub CmdDelete_Cliek()
If List2.Listlndex >= O Then ’如果List2中有选中的项,
List2.Removeltem (4) ’则删除所选的项
End If
End Sub
Private Sub CmdDelAll_Cliek()
(5)
End Sub
选项
答案
(1)Listl.Text (2) Listl.ListCount- (3) Listl.List(i) (4) List2.Lisfindex (5) List2.Clear
解析
本题涉及常用的列表框技术。
列表框常用的属性如下:
ListCount 列表框内的数据项个数
List(o),List(1),... 列表框中从上到下各个数据项内容
Text 列表框中当前选中的数据项内容
Listlndex 列表框中当前选中的数据项的序号
列表框常用的方法如下:
AddItem 列表框尾部增加一个数据项(参数给出数据项内容)
RemoveItem 列表框中删除指定的数据项(参数给出待删的数据项序号)
Clear 删除列表框中的全部数据项
本题中有两个列表框List1和List2,以及四个按钮。
按钮“>”的功能是将列表框List1中选中的一个数据项复制到列表框List2的尾部。 List1中当前所选的数据项内容是List1.Text。为避免重复,在复制前,应先判断它是否已经位于List2中。List2中,已有的数据项个数为List2.ListCount。各个数据项内容为: List2.List(O),List2.List(1),…,因此可以用循环语句来实现这种比较。如果发现重复,则退出该过程(不再复制)。将Listl.Text复制到List2的尾部,可以用如下语句实现:
List2.Addltem Listl,Text
因此,(1)处应填写Listl.Text。
如果List1中没有选中任何数据项,则上述复制语句自动作为空语句执行。
注意,如果不修改列表框属性“MultiSelect”的默认值(O),用户在列表框中就不能同时选择多个数据项。
按钮“>>”的功能是将List1中的全部数据项复制到List2中去。为避免重复,在复制前,应全部删除List2中的所有数据项。将List1中的逐个数据项:List1.List(O), Listl.List(1),…,逐个复制到List2中,可以用循环语句来实现。List1中的数据项个数为List1.ListCount,因此,循环次数就是List1.ListCount。循环变量i从0开始执行循环,直到Listl.ListCount-1。因此(2)处应填写Listl.ListCount-1。循环体内执行数据项复制,将Listl.List(i)增添到List2的尾部:
List2.Addltem Listl.List(i)
因此,(3)处应填写Listl.List(i)。
按钮“<”的功能是将List2中当前选中的数据项删除。由于删除数据项用Removeltem方法实现,其参数为选中数据项的序号值,所以,应该用语句:
List2.Removeltem List2.Listlndex
来实现。因此(4)处应填写List2.Listlndex。
如果List2中没有选择任何数据项(此时List2.Listlndex==1),则上述语句会出现运
行错误。为避免这种情况发生,可以将上述语句限制在List2.Listlndex>=O的条件下执行。
按钮“<<”的功能是删除List2中已经有的全部数据项,因此可以采用语句:
List2.Clear
来实现。因此,(5)处应填写List2.Clear。
转载请注明原文地址:https://kaotiyun.com/show/1sjZ777K
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
在Excel中,设单元格A1中的值为0,B1中的值为60,若在C1单元格中常规格式下输入函数“=ROUND(AVERAGE(A1:B1),2)”,按回车键后,C1单元格中的值为()。
CPU的主要功能是(5)。
在Excel中,根据数据表制作统计图表后,如果将其对应数据表中的数据进行修改,则图表______。
在Excel的A1单元格中输入函数“=LEFT(“信息处理技术员”,2)”,按回车键后,A1单元格中的值为()。
企业信息系统的用户一般不包括()。
一条内存不常见的容量是(1)。
下列选项中,不属于Access数据库对象的是______。
(68)________________属于人工智能的应用。
在Excel2010的A1单元格中输入函数“=ABS(ROUND(-1.478,2))”,按回车键后,A1单元格中的值为________________。
某商场记录(统计)销售情况的数据库中,对每一种商品采用了国家统一的商品编码。这种做法的好处不包括(11)________________。
随机试题
文件WJ共有4条记录,每个物理块中存放一个物理记录。它采用的链接结构如下图所示。请画出:删除记录1后的链接结构图;
输液反应中最常见的是
当地籍图未标注建筑物楼层时,修补测范围外的,在数据处理时对照原图,根据房屋的形状,参考周围的状况判定房屋的楼层,对于面积较大的房屋通过查看()或实地踏勘来确定。
对机电产品国际招标评标结果的公示期为()。
某企业在接待一外国商务考察团时向该商务考察团收取了一定的外汇,该企业通过某种秘密途径将收取的外汇转移到境外,根据规定,企业的该行为属于()。
著名学者舒尔茨把教育视为一种人力资本投资,这是因为教育具有()
坚持党的民主集中制原则的核心是()。
从所给的四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性。
行为人在法律上认识的错误对行为人的刑事责任()。
To:JohnNelsonFrom:SteveGenterRe:EmploymentDate:August31stDearMr.Nelson,Iamwritingtoyoutodiscussthe______
最新回复
(
0
)