vb程序设计考前复习题型3-列表操作

《vb程序设计考前复习题型3-列表操作》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、5、新建项目test05,将其保存在考试目录下.要求：（15分）1）初始状态时，左边列表框中的数据如下图所示；2）单击'•添加"按钮，能够把下面文本框中的内容添加到左边列表框中，要求不能添加乘复的记录；3）完成中间4个按钮的功能.列表框都支持多选，而且可以进行多条记录的移动.如下图所示。初始状态把左边列表框中的多个记录移到右边列表框中思路及操作代码：PublicClassFormleAsSystem・EventArgs)HandlesPrivateSubButtonlClick(ByVaisenderAs

2、System.0bject,ByVai＞按钮For循环，i计数思路：1、在列表1中循环读取被选中的对象并得到总量count,每次从总数中减掉一个数字，即从项目中剔除被选择项目2、列表2中增加列表1中被选择的项03、删除列表1中被选屮的数据4、实现列表项冃移动操作Buttonl.ClickDimiAsInteger'定义一个循环计数变量iFori=Me.ListBox1.Selectedltems・Count一1To0Step-1Me.ListBox2・Items・Add(Me・ListBoxl.Selec

3、tedltems(i))Me.ListBox1.Items・Remove(Me・ListBox1.Selectedltems(i))NextEndSubeAsSystem.EventArgs)HandlesPrivateSubButton2_Click(ByValsenderAsSystern.0bject,ByVaiV按钮实际上是从列表1中增加列表2中被选屮的数据然后从列表2中删除被选中的数据Button2.ClickDimjAsIntegerForj=Me.ListBox2.Selectedltems

4、・Count一1To0Step-1Me.ListBoxl・Items・Add(Me・ListBox2・Selectedltems(j))Me.ListBox2・Items・Remove(Me・ListBox2・Selectedltems(j))NextEndSubPrivateSubButton3_Click(ByVaisenderAsSystem.0bject,ByVaieAsSystem.EventArgs)HandlesButton3・ClickMe.ListBox2・Items・AddRange(

5、Me・ListBox1.Items)Me.ListEoxl.Items・Clear()EndSubPrivateSubButton4_Click(ByVaisenderAsSystem.0bject,Eutton4.ClickMe.ListEoxl.Items・AddRange(Me・ListBox2.Items)Me.ListBox2・Items・Clear()EndSubPrivateSubEutton5_Click(ByValsenderAsSystern.0bject,Button5.ClickI

6、fMe.TextBoxl.Text〈＞ThenIfMe.ListBox1.FindStringExact(Me・TextBox1.Text)>>按钮列表1的内容全部到列表2中然后清除列表1中的数据ByVaieAsSystem.EventArgs)HandlesVV按钮列表2的内容全部到列表1中然后清除列表2中的数据ByVaieAsSysteni.EventArgs)Handles文本框内容添加到列表i中1、查看文本框屮是否有数据2、比对文本框中的数据是否和列表<0Then中相同，若不相同则添加数据3、否则

7、跳出提示“该项目已经存在”Me.ListBox1.Items・Add(Me・TextBox1.Text)Me.TextBoxl.Clear()'清除文本框内容Me.TextBoxl.Focus()'设置插入符在文本框中ElseMsgBox("该项目已经存在！”)EndIfEndIfEndSubByVaieAsSystem.EventArgs)HandlesPrivateSubButton6_Click(EyValsenderAsSystem.0bject,Button6・Click删除按钮从列表1中删除所

8、选中的文本DimkAsIntegerFork=Me.ListBox1.Selectedltems・Count一1To0Step-1Me.ListBox1.Items・Remove(Me・ListBox1.Selectedltems(k))NextEndSub