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

思路及操作代码： Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer 定义一个循环计数变量i For i = Me.ListBox1.SelectedItems.Count - 1 To 0 Step -1 Me.ListBox2.Items.Add(Me.ListBox1.SelectedItems(i)) Me.ListBox1.Items.Remove(Me.ListBox1.SelectedItems(i)) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim j As Integer For j = Me.ListBox2.SelectedItems.Count - 1 To 0 Step -1 Me.ListBox1.Items.Add(Me.ListBox2.SelectedItems(j)) Me.ListBox2.Items.Remove(Me.ListBox2.SelectedItems(j)) Next End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.ListBox2.Items.AddRange(Me.ListBox1.Items) Me.ListBox1.Items.Clear() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.ListBox1.Items.AddRange(Me.ListBox2.Items) Me.ListBox2.Items.Clear() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If Me.TextBox1.Text Then If Me.ListBox1.FindStringExact(Me.TextBox1.Text) 0 Then Me.ListBox1.Items.Add(Me.TextBox1.Text) Me.TextBox1.Clear() 清除文本框内容 Me.TextBox1.Focus() 设置插入符在文本框中 Else MsgBox(该项目已经存在！) End If End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim k As Integer For k = Me.ListBox1.SelectedItems.Count - 1 To 0 Step -1 Me.ListBox1.Items.Remove(Me.ListBox1.SelectedItems(k)) Next End Sub 按钮For循环，i计数 思路： 在列表1中循环读取被选中的对象并得到总量count，每次从总数中减掉一个数字，即从项目中剔除被