阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码。 [应用说明] 某应用程序在运行过程中的一个界面如下图所示：在“供选课程”列表框(名为Listl)中选择某个课程后，再单击“，”按钮(名称为cmdSele

admin2008-05-10 51

问题阅读以下应用说明以及用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://www.kaotiyun.com/show/1sjZ777K

本试题收录于：程序员下午应用技术考试题库软考初级分类

0

程序员下午应用技术考试

软考初级

相关试题推荐

随机试题

最新回复(0)