[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

题库:初级程序员 类型:简答题 时间:2017-07-03 12:10:48 免费下载:《问答》Word试卷

[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

本题关键词:分部工程顺序码,顺序编码,程序,工程编码,工程施工程序,复苏程序,工作程序,建设程序,程序变更,程序冲突;