首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码。 [应用说明] 某应用程序在运行过程中的一个界面如下图所示: 在“供选课程”列表框(名为Listl)中选择某个课程后,再单击“,”按钮(名称为cmdSele
阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码。 [应用说明] 某应用程序在运行过程中的一个界面如下图所示: 在“供选课程”列表框(名为Listl)中选择某个课程后,再单击“,”按钮(名称为cmdSele
admin
2008-05-10
54
问题
阅读以下应用说明以及用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
程序员下午应用技术考试
软考初级
相关试题推荐
在Windows 2000中,下列关于文件删除和恢复的叙述,错误的是(40)。
计算机操作的注意事项中不包括________。
在Excel的A1单元格中输入函数“=LEFT(“信息处理技术员”,2)”,按回车键后,A1单元格中的值为()。
在SQL中,GROUPBY子句用于()。
在Word中,若选择的打印页码是4-10,16,20,则表示打印的是______。
企业信息系统的用户一般不包括()。
以下关于信息存储的叙述中,不正确的是(66)。
信息处理技术员资格考试的试卷包括信息处理基础知识、计算机基础知识、法律法规知识、专业英语、办公软件使用技能五个方面。某次考试后,对这五个方面分别统计了各考生的得分率以及全国的平均得分率。为了直观展现每个考生在各个方面的水平以及该考生的整体水平,并与全国平均
在Word2007文档编辑时,使用(39)________________选项卡中的“分隔符”命令,可以在文档中指定位置强行分页。
在Excel的A1单元格中输入函数“=ROUND(3.1415,2)”,则A1单元格中显示的值为(57)。
随机试题
ManypeoplewhoworkinLondonprefertoliveoutsideit,andtogototheiroffices,factoriesorschoolseverydaybytrain,c
某初产妇,35岁,对其进行B超测量骨盆结果是:入口平面前后径11cm,横径13cm;中骨盆横径9.5cm,前后径11.5cm;出口横径7.0cm,后矢状径8.5cm。该产妇是否可以试产,若可试产其时间是
关于法律原则的适用,下列哪些选项是错误的?(卷一/2008年第51题)
工程量清单计价法和工程定额计价法中收集资料不包括()。
数据档案应自人馆之日起()日内完成异地存储工作。
我国《合同法》规定,法律、行政法规规定或者当事人约定采用书面形式订立合同,当事人未采用书面形式,从()时起就没有法律效力的合同是无效合同。
会计电算化未来的发展趋势要求会计电算化与()相结合。
证券公司为期货公司提供中间介绍业务,应当取得()。
延安是中国革命______。从1935年到1948年,这里曾经是中共中央所在地,毛泽东等老一辈无产阶级革命家在陕北和延安战斗、生活、工作了13个春秋,领导全国人民进行了艰苦卓绝的斗争,作出了关系中国革命前途命运的一系列重大决策,为夺取全国政权奠定了坚实的基
Itiseasiertonegotiateinitialsalaryrequirementbecauseonceyouareinside,theorganizationalconstraints(约束)influencewa
最新回复
(
0
)