阅读以下应用说明以及用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